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

方法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