攀登架厂家
免费服务热线

Free service

hotline

010-00000000
攀登架厂家
热门搜索:
成功案例
当前位置:首页 > 成功案例

可以在VBA中获得带有预览图象的Auto是嘛

发布时间:2021-07-18 03:57:40 阅读: 来源:攀登架厂家

可以在VBA中获得带有预览图象的AutoCADquot;打开文件quot;对话框

在VBA没有直接的方法这样做。但是,你可以通过LISP和AutoCAD之间的通讯来完成。在LISP中有一个名叫getfiled的函数,它可以预览DWG并且与AutoCAD的"Open File Dialog"表现一样。

首先,通过SendCommand方法发送getfiled表达式给AutoCAD命令行并且定义一个系统变量U正处于量变到质变的时期SERS1以保存文件名。然后,你可以用GetVariable方法获得这个系统变量。最后,象使用其它任何变量一样使用它。 而且凭仗独特的能力提供1致的

Public Sub OpenDialog()

Dim fileName As String

ndCommand "(setvar " """users我们1起来看1下橡胶拉力实验机检查有哪些要点及操作规程具体有关技术问题欢迎来电咨询.:1""" "(getfiled " """Select a DWG File""" """c:/program files/acad2000/""" """dwg""" "8)) "

fileName = tVariable("users1")

MsgBox "You have selected " fileName "!!!", , "File Message"

End Sub

舟山西装订制
海南职业装订制
白城试验机厂家