利用VB與AutoCAD鏈接進行CAD二次開發

利用VB進行AutoCAD二次開發，首先應該將VB於CAD進行鏈接：在編寫VB代碼之前，在VB編程環境中引用CAD對象庫，在編寫VB程序代碼時，創建CAD對象啟動運行CAD程序。

VB與CAD進行鏈接后，就可以利用AutoCAD對象及其下級對象的屬性和方法，完成用VB語言在AutoCAD環境中的圖形繪制和編輯操作，引用CAD對象庫：在VB環境中選擇“工程-引用”命令打開引用對話框，選中AutoCAD2004對象庫，電腦上安裝了什么版本的CAD這里就會出現對應的對象庫。創建CAD對象的典型代碼如下所示。

Dim acadapp As AcadApplication
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 ("CAD啟動錯誤")
            Exit Sub
        End If
    End If
    acadapp.Visible = True
End Sub

上面代碼中的set語句將AutoCAD對象引用賦給變量acadapp，用來創建CAD對象的實例，如果AutoCAD已經啟動，則getobject函數返回對該對象的引用，如果AutoCAD啟動，則利用createobject函數啟動新的CAD對象。如果AutoCAD未能創建，則消息框提示信息“CAD啟動錯誤”。