怎样调用文件对话框，不用commomDiag控件
<P>我的VBA里没有commonDiag控件，没有注册，我怎么才能调用文件对话框，或者类如此类功能的操作</P><P>求助</P> <P>在下载区找找commonDiag类</P> <P>版主你好，我在论坛上看到mccad回答在VBA中打开有预览的对话框，他的回答如下：</P>
<P>在VBA没有直接的方法这样做。但是，你可以通过LISP和AutoCAD之间的通讯来完成。在LISP中有一个名叫getfiled的函数，它可以预览DWG并且与AutoCAD的"Open File Dialog"表现一样。 <BR> 首先，通过SendCommand方法发送getfiled表达式给AutoCAD命令行并且定义一个系统变量USERS1以保存文件名。然后，你可以用GetVariable方法获得这个系统变量。最后，象使用其它任何变量一样使用它。 </P>
<P></P>
<P>Public Sub OpenDialog() <BR>Dim fileName As String <BR>ThisDrawing.SendCommand "(setvar " & """users1""" & "(getfiled " & """Select a DWG File""" & """c:/program files/acad2000/""" & """dwg""" & "8)) " <BR>fileName = ThisDrawing.GetVariable("users1") <BR>MsgBox "You have selected " & fileName & "!!!", , "File Message" <BR>End Sub <BR>我运行了一下，可以运行，但就是选择了文件之后没法打开，且一直在选择文件对话框里面，请楼主看看，</P>
<P>再者想请问一下，他的sendcommand里面的代码都是代表什么意思，</P> <P>我在控件上能够找到common diag控件，但是拉到窗体上，系统提示，不能添加控件，因为没有授权，</P>
<P>应该如何做，</P> <P>你所说的那段代码是选择文件对话框中带预览窗口的。</P>
<P>对于普通的打开文件对话框，可以用以下函数：</P>
<P><A href="http://www.mjtd.com/function/list.asp?id=367&ordertype=byletter" target="_blank" >http://www.mjtd.com/function/list.asp?id=367&ordertype=byletter</A></P> <P>不好意思，我又在外面发了一个贴子，没有看到你回了，我的AUTOCAD是从我们学校网上下载的，可能有些问题吧，一些控件不能加载说没有授权，还有你的程序运行有问题，命令行提示信息：命令: (setvar "users1"(getfiled "Select a DWG File""c:/program <BR>files/acad2000/""dwg"8)) ; 错误: AutoCAD 变量设置被拒绝: "users1" nil</P>
<P>你运行一下，试试，还有点完确定后，他一直停在打开上，不能加载图片，不知道怎么回事</P> 我这里并不存在你所说的问题。 郑老师，那保存文件对话框如何打开呢！
页:
[1]