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

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

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啟動(dòng)錯(cuò)誤")
            Exit Sub
        End If
    End If
    acadapp.Visible = True
End Sub

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