我想看一级黄色大片_久久亚洲国产精品一区二区_久久精品免视看国产明星_91久久青青青国产免费

您的位置:網站首頁 > CAD新聞

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

時間:2012-01-28 09:11:41 來源:未知

利用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啟動錯誤”。