利用VB進(jìn)行AutoCAD二次開發(fā)，首先應(yīng)該將VB于CAD進(jìn)行鏈接：在編寫VB代碼之前，在VB編程環(huán)境中引用CAD對象庫，在編寫VB程序代碼時(shí)，創(chuàng)建CAD對象啟動運(yùn)行CAD程序。

VB與CAD進(jìn)行鏈接后，就可以利用AutoCAD對象及其下級對象的屬性和方法，完成用VB語言在AutoCAD環(huán)境中的圖形繪制和編輯操作，引用CAD對象庫：在VB環(huán)境中選擇“工程-引用”命令打開引用對話框，選中AutoCAD2004對象庫，電腦上安裝了什么版本的CAD這里就會出現(xiàn)對應(yīng)的對象庫。創(chuàng)建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啟動錯(cuò)誤")
            Exit Sub
        End If
    End If
    acadapp.Visible = True
End Sub

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