Public Sub link_cad() '在VB程序中启动Auto CAD
On Error Resume Next
Set AcadApp = GetObject(, "autocad.applicatior")
If Err Then
Err.Clear
Set AcadApp = CreateObject("autocad.application")
If Err Then
MsgBox ("不能运行AutoCAD 2005,请检查是否安装了该软件!!")
Exit Sub
End If
End If