怎样调用文件对话框，不用commomDiag控件

matrix · 发表于 2006-4-7 11:13:00

我的VBA里没有commonDiag控件，没有注册，我怎么才能调用文件对话框，或者类如此类功能的操作
求助

雪山飞狐_lzh · 发表于 2006-4-7 11:42:00

在下载区找找commonDiag类

matrix · 发表于 2006-4-7 20:33:00

版主你好，我在论坛上看到mccad回答在VBA中打开有预览的对话框，他的回答如下：
在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
我运行了一下，可以运行，但就是选择了文件之后没法打开，且一直在选择文件对话框里面，请楼主看看，
再者想请问一下，他的sendcommand里面的代码都是代表什么意思，

matrix · 发表于 2006-4-7 20:43:00

我在控件上能够找到common diag控件，但是拉到窗体上，系统提示，不能添加控件，因为没有授权，
应该如何做，

mccad · 发表于 2006-4-7 21:56:00

你所说的那段代码是选择文件对话框中带预览窗口的。
对于普通的打开文件对话框，可以用以下函数：

matrix · 发表于 2006-4-7 22:39:00

不好意思，我又在外面发了一个贴子，没有看到你回了，我的AUTOCAD是从我们学校网上下载的，可能有些问题吧，一些控件不能加载说没有授权，还有你的程序运行有问题，命令行提示信息：命令: (setvar "users1"(getfiled "Select a DWG File""c:/program
files/acad2000/""dwg"8)) ; 错误: AutoCAD 变量设置被拒绝: "users1" nil
你运行一下，试试，还有点完确定后，他一直停在打开上，不能加载图片，不知道怎么回事

ogjifu2uzdg.JPG