|
|
发表于 2008-1-18 14:29:00
|
显示全部楼层
二次教材的程序,只是打开对话框,不进行任何实质操作
' 带有预览图像的"选择文件"对话框
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 |
|
置顶卡
