可以在VBA中获得带有预览图象的AutoCAD "打开文件"对话框吗
1个回答
展开全部
在VBA没有直接的方法这样做。但是，你可以通过LISP和AutoCAD之间的通讯来完成。在LISP中有一个名叫getfiled的函数，它可以预览
DWG并且与AutoCAD的"Open File Dialog"表现一样。
首先，通过SendCommand方法发送getfiled表达式给AutoCAD命令行并且定义一个系统变量USERS1以保存文件名。然后，你可以用
GetVariable方法获得这个系统变量。最后，象使用其它任何变量一样使用它。
Public Sub OpenDialog()
Dim fileName As String
ThisDrawing.SendCommand "(setvar " & """users1""" & "(getfiled "
& """Select a DWG File""" & """c:/program files/acad2000/"""
& """dwg""" & "8)) "
fileName = ThisDrawing.GetVariable("users1")
MsgBox "You have selected " & fileName & "!!!", , "File
Message"
End Sub
DWG并且与AutoCAD的"Open File Dialog"表现一样。
首先，通过SendCommand方法发送getfiled表达式给AutoCAD命令行并且定义一个系统变量USERS1以保存文件名。然后，你可以用
GetVariable方法获得这个系统变量。最后，象使用其它任何变量一样使用它。
Public Sub OpenDialog()
Dim fileName As String
ThisDrawing.SendCommand "(setvar " & """users1""" & "(getfiled "
& """Select a DWG File""" & """c:/program files/acad2000/"""
& """dwg""" & "8)) "
fileName = ThisDrawing.GetVariable("users1")
MsgBox "You have selected " & fileName & "!!!", , "File
Message"
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
