VB 连接AutoCad 模块代码

Option Explicit

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