<span style="font-family: Arial, Helvetica, sans-serif;">
</span>
<span style="font-family: Arial, Helvetica, sans-serif;">Option Explicit</span>
Public acadapp As AcadApplication
Public Sub 连接autocad()
On Error Resume Next
Set acadapp = GetObject(, "autocad.applicatior")
If Err Then
Err.Clear
Set acadapp = creatobject("autocad.application")
If Err Then
MsgBox ("不能运行AutoCad,请检查是否装了AutoCad")
Exit Sub
End If
End If
acadapp.Visible = True
End Sub
方法2:
Dim acadapp As AcadApplication '在窗体代码声明段定义acadapp
Private Sub Form_Load()
On Error Resume Next
Set acadapp = GetObject(, "autocad.application")
If Err Then
Err.Clear
Set acadapp = CreateObject("autocad.application")
If Err Then
MsgBox ("不能运行AutoCad,请检查是否安装了CAD")
Exit Sub
End If
End If
acadapp.Visible = True
End Sub