帮帮我啊

tuzianjing

谁知道怎么调用cad内部的保存对话框阿。

                       谢谢

aa2567

二次教材的程序,只是打开对话框,不进行任何实质操作

' 带有预览图像的"选择文件"对话框
Public Sub OpenDialog()
    Dim strFileName As String
   
    ' 确保USERS1系统变量为空
    ThisDrawing.SetVariable "USERS1", ""
   
    ' 显示“选择文件”对话框，并且获得用户选择的结果
   
    ThisDrawing.SendCommand "(setvar " & """USERS1""" & "(getfiled " & """选择图形文件""" & """c:/""" & """dwg""" & "7)) "  '1.3.5.7.9.11.13单数保存文件,2.4.6.8.10.12双数打开文件
    strFileName = ThisDrawing.GetVariable("USERS1")
   
       ' 显示选择结果
    If Len(strFileName) = 0 Then
        MsgBox "未选择任何图形文件！", vbInformation, "选择结果"
    Else
        MsgBox "选择的文件是：" & strFileName, vbInformation, "选择结果"
    End If
    ThisDrawing.SetVariable "USERS1", ""
End Sub