VB調(diào)用AutoCADppt課件

1、VB調(diào)用AutoCAD并畫(huà)圖,計(jì)算機(jī)輔助設(shè)計(jì) （此部分內(nèi)容可參考AutoCAD中的幫助）,VB調(diào)用AutoCAD,在 VB調(diào)用AutoCAD ，必須先引用 AutoCAD 類型庫(kù)。要在 VB 中完成此操作，請(qǐng)從“工程”菜單中選擇“引用”選項(xiàng)，啟動(dòng)“引用”對(duì)話框。在“引用”對(duì)話框中，選擇 AutoCAD 類型庫(kù)，然后單擊“確定”。,允許您選擇另外的應(yīng)用程序的對(duì)象，通過(guò)設(shè)置對(duì)那個(gè)應(yīng)用程序?qū)ο髱?kù)的引用您可以在您的代碼中使用它。,編寫(xiě)代碼調(diào)用AutoCAD,Sub Ch2_ConnectToAcad() Dim acadApp As AcadApplication On Error Resume Ne

2、xt Set acadApp = GetObject(, AutoCAD.Application.16) 如果 AutoCAD 正在運(yùn)行，指定 AutoCAD 版本號(hào)時(shí)，VB GetObject 函數(shù)將檢索 AutoCAD Application 對(duì)象。 If Err Then Err.Clear 如果 AutoCAD 沒(méi)有運(yùn)行，發(fā)生的錯(cuò)誤（本例中）會(huì)被捕獲然后清除。 Set acadApp = CreateObject(AutoCAD.Application.16) If Err Then MsgBox Err.Description CreateObject 函數(shù)接著會(huì)試圖創(chuàng)建一個(gè) Aut

3、oCAD Application 對(duì)象。如果創(chuàng)建成功，會(huì)啟動(dòng) AutoCAD；如果失敗，則會(huì)顯示一個(gè)消息框，說(shuō)明發(fā)生的錯(cuò)誤。 Exit Sub End If End If MsgBox Now running + acadApp.Name + “ version + acadApp.Version End Sub,編寫(xiě)代碼調(diào)用AutoCAD,VB調(diào)用AutoCAD,同時(shí)運(yùn)行多個(gè) AutoCAD 任務(wù)時(shí)，GetObject 函數(shù)會(huì)返回 Windows 運(yùn)行對(duì)象表中的第一個(gè) AutoCAD 實(shí)例。關(guān)于驗(yàn)證 GetObject 返回任務(wù)的詳細(xì)信息，請(qǐng)參見(jiàn) Microsoft Visual Basic

4、 文檔中關(guān)于對(duì)象運(yùn)行表 (ROT) 和 GetObject 函數(shù)的部分。 要顯示 AutoCAD 圖形窗口，需要將 AutoCAD 應(yīng)用程序的 Visible 特性設(shè)置為 TRUE,將 VBA 代碼轉(zhuǎn)換為 VB,將文檔變量設(shè)置為 AutoCAD 應(yīng)用程序中的 Document 對(duì)象。Document 對(duì)象由 Application 對(duì)象的 ActiveDocument 特性返回。 例如： Dim acadDoc as AcadDocument Set acadDoc = acadApp.ActiveDocument 從現(xiàn)在開(kāi)始，使用 acadDoc 變量引用當(dāng)前的 AutoCAD 圖形。,將

5、VBA 代碼轉(zhuǎn)換為 VB,如果 GetObject 創(chuàng)建了一個(gè)新的 AutoCAD 實(shí)例（即調(diào)用 GetObject 時(shí) AutoCAD沒(méi)有運(yùn)行）,沒(méi)有將 Visible 設(shè)置為 TRUE 會(huì)導(dǎo)致 AutoCAD 應(yīng)用程序不可見(jiàn),甚至AutoCAD 不顯示在 Windows 任務(wù)欄上。 注意 使用依賴于版本的 ProgID。如果 CreateObject 或 GetObject 函數(shù)使用的是獨(dú)立于版本的 ProgID，則將函數(shù)更改為使用依賴于版本的 ProgID。例如，如果使用的是 CreateObject，請(qǐng)將 CreateObject (AutoCAD.Application) 替換為 C

6、reateObject (AutoCAD.Application.16)。,注意 AutoCAD 2004 的 COM （components object model）應(yīng)用程序訪問(wèn)的注冊(cè)表項(xiàng)為 AutoCAD.Application.16,注意事項(xiàng),例題1,Private Sub Command2_Click() This example creates a circle in model space. Dim circleObj As AcadCircle Dim centerPoint(0 To 2) As Double Dim radius As Double Define the c

7、ircle centerPoint(0) = 100#: centerPoint(1) = 100#: centerPoint(2) = 0# radius = 100# Create the Circle object in model space Set circleObj = acadDoc.ModelSpace.AddCircle(centerPoint, radius) acadApp.Visible = True ZoomExtents End Sub,在AutoCAD上畫(huà)圓,將 VBA 代碼轉(zhuǎn)換為 VB,將代碼樣例中所有的 ThisDrawing 引用替換為引用活動(dòng)文檔的用戶指定

8、的變量。要完成這項(xiàng)操作，請(qǐng)為 AutoCAD 應(yīng)用程序 (acadApp) 和當(dāng)前的文檔 (acadDoc) 定義變量。然后，將應(yīng)用程序變量設(shè)置為當(dāng)前的 AutoCAD 應(yīng)用程序。,VBA 與 VB 比較代碼樣例,使用 VBA 創(chuàng)建直線： Sub Ch2_AddLineVBA() 本例在模型空間中添加一條直線 定義直線的起點(diǎn)和端點(diǎn) Dim lineObj As AcadLine Dim startPoint(0 To 2) As Double Dim endPoint(0 To 2) As Double startPoint(0) = 1 ：startPoint(1) = 1 startPoi

9、nt(2) = 0 endPoint(0) = 5: endPoint(1) = 5: endPoint(2) = 0 在模型空間中創(chuàng)建直線 Set lineObj = ThisDrawing. ModelSpace.AddLine (startPoint, endPoint) 放大新創(chuàng)建的直線 ZoomAll End Sub,VBA 與 VB 比較代碼樣例,VBA 與 VB 比較代碼樣例,VBA 與 VB 比較代碼樣例,使用 VB 創(chuàng)建直線： Sub Ch2_AddLineVB() 連接至 AutoCAD 應(yīng)用程序 (略) Dim acadDoc As AcadDocument Set acadDoc = acadApp.ActiveDocument 創(chuàng)建直線的端點(diǎn) Dim lineObj As AcadLine Dim startPoint(0 To 2) As Double Dim endPoint(0 To 2) As Double startPoint(0) = 1 :startPoint(1) = 1 :startPoint(2) = 0 endPoint(0) = 5: endPoint(1) = 5: endPoint(2) =