VB 连接AutoCad 模块代码

<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

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