cad 知识

http://www.gstarcad.com/BBS/simple/?t8512.html
本例使用Open方法打开一个现存的图形。其中Visual Basic的Dir函数用于在打开文件前检查该文件是否存在。你可更改文件的名称和路径为你系统中存在的AutoCAD图形文件。

Sub Ch3_OpenDrawing()

Dim dwgName As String

dwgName = "c:\Program Files\acad2000\sample\campus.dwg"

If Dir(dwgName) <> "" Then

ThisDrawing.Application.Documents.Open dwgName

Else

MsgBox "文件 " & dwgName & " 并不存在。"

End If

End Sub