AutoCAD二次開(kāi)發(fā)(VBA)

1、歡迎閱讀第14章VBA開(kāi)發(fā)在采礦CAD繪圖中的應(yīng)用AutoCAD在不但提供了強(qiáng)大的繪圖功能，同時(shí)也提供了一個(gè)功能強(qiáng)大的集成 開(kāi)以工具M(jìn)icrosoftVisualBasicforApplications (VBA) NBA 是一個(gè) AutoCAD應(yīng)用集成開(kāi)發(fā)環(huán)境，它提供了高質(zhì)量的用戶化編程能力，能夠使 AutoCAD數(shù)據(jù) 與其它VBA應(yīng)用程序，VBA的加入擴(kuò)展了 AutoCAD集成用戶化工具的能力， 它集成了 AutoLISP, VisualLISP和ObjectARXAPI等工具。這樣，就為用戶訪問(wèn) AutoCAD軟件的多種技術(shù)框架提供了新的選擇和新的開(kāi)放機(jī)會(huì)，可以按用戶所 需求的工作方式開(kāi)

2、發(fā)應(yīng)用程序。VBA開(kāi)發(fā)環(huán)境是一個(gè)可視化開(kāi)發(fā)環(huán)境。使用VBA可以通過(guò)拖拽圖標(biāo)的方法， 簡(jiǎn)單而可視化地建立用戶界面。可以使用AutoCAD工具欄，也可以使用標(biāo)準(zhǔn)VBA 界面工具創(chuàng)建新的工具欄。AutoCAD軟件中的ActiveXAutomation對(duì)象模型十分 有用。Autodesk開(kāi)放了每一個(gè)AutoCAD對(duì)象模型，這些對(duì)象模型顯示了每一個(gè) 對(duì)象的方法和屬性，并能夠依用戶的愿望去編程或用戶化AutoCAD軟件。一學(xué)習(xí)本章內(nèi)容最好具有 VisualBasic6.0基礎(chǔ)(主要是相關(guān)控件的使用方法與 Basic語(yǔ)言語(yǔ)法結(jié)構(gòu)知識(shí))，如沒(méi)有相關(guān)基礎(chǔ)知識(shí)，可在學(xué)習(xí)本章之前參考相關(guān) 書籍或在學(xué)習(xí)本章內(nèi)容過(guò)程中

3、同步使用相關(guān)參考書。通過(guò)本章的學(xué)習(xí)，應(yīng)了解和掌握以下內(nèi)容：了解 VBA。了解AutoCAD對(duì)象模型。掌握繪制AutoCAD圖形對(duì)象方法。掌握編輯圖形對(duì)象方法。掌握繪制文字方法。掌握標(biāo)注方法。掌握創(chuàng)建塊與插入塊。14.1 VBA 基礎(chǔ)在當(dāng)前AutoCAD進(jìn)程中加載的所有VBA工程都可以用“VBAt理器”對(duì)話框 來(lái)管理。這是一個(gè)AutoCAD的管理工具，可以使用它來(lái)加載、卸載、保存、新 建、嵌入和提取VBA工程。"VBAf理器”對(duì)話框如圖14- 1所示。圖14 1 "VBA管理器”對(duì)話框可以在AutoCAD的菜單欄中選擇菜單【工具】 一【宏】一 VBA管理器】 來(lái)啟動(dòng)“VBA管

4、理器；也可以在AutoCAD命令提示中輸入“vbrun命令來(lái)啟動(dòng)。當(dāng)把工程加載到AutoCAD圖形中時(shí)，所有的公用子程序也都成為可用的。 內(nèi)嵌在圖形中的工程當(dāng)圖形打開(kāi)時(shí)也被加載，而保存在 *.dvb文件中的工程則必 須另外單獨(dú)加載。加載已有的 VBA工程文件步驟如下：(1)在“VBA管理器”對(duì)話框中單擊【加載】按鈕，彈出 打開(kāi)VBA工程”對(duì) 話框，如圖14-2所示。圖14 2打開(kāi)VBA工程”對(duì)話框(2)在打開(kāi)VBA工程”對(duì)話框中選擇想要加載的工程文件。 在VBA管理器 中只允許要開(kāi)有效的dvb文件。也可以在命令提示行輸入 “vbaloa箭令來(lái)加載工程文件，該命令同樣彈出 打 開(kāi)VBA工程”對(duì)話

5、框。一個(gè)工程加載后，此工程要引用的其他所有工程也都會(huì)被 自動(dòng)加載。另外，AutoCAD再次啟動(dòng)時(shí)，會(huì)自動(dòng)加載名稱為 acad.dvb的工程文 件。每次加載工程時(shí)，都會(huì)顯示啟用或者禁用工程內(nèi)程序代碼的選項(xiàng)提示，作為防范病 毒的措施，如圖14 3所示。如果啟用了帶病毒的宏， 程序中的病毒就會(huì)開(kāi)始運(yùn)行； 如果禁用了該宏，工程仍然會(huì)被調(diào)入，但是該工程中的所有程序均不能執(zhí)行。圖143工程加載提示新工程可以在任何時(shí)候創(chuàng)建，這時(shí)它是一個(gè)獨(dú)立、完整的工程。用戶可以將它保存到工程文件中，也可以將它嵌入到圖形中。建立新的工程步驟如下：(1) “VBA管理器”對(duì)話框；(2)單擊【新建】按鈕，建立新工程。由于篇幅有限

6、卸載工程、嵌入工程、提取工程以及宏的相關(guān)知識(shí)自行學(xué)習(xí)。14.2 VBAIDE開(kāi)發(fā)環(huán)境在AutoCAD中加載了工程，就可以使用VBA交互式開(kāi)發(fā)環(huán)境 VBAIDE來(lái)編 輯宏工程的程序代碼、窗體和部件引用等元素，也可以在 VBAIDE中刪除錯(cuò)誤、 調(diào)試和運(yùn)行工程?？梢允褂孟旅娴亩N方法之一打開(kāi) VBAIDE開(kāi)發(fā)環(huán)境：(1)在命令提示行中輸入“vbaid皤令；(2)從AutoCAD的【工具】菜單中選擇菜單【宏】 一 "VisualBasiCS輯器”;打開(kāi)的VBAIDE編輯環(huán)境如圖14 4所示，在VBAIDE中可以對(duì)所有已加載 的工程進(jìn)行編輯。圖14- 4VBAIDE編輯環(huán)境每個(gè)工程都由許多不

7、同的元素構(gòu)成的。一個(gè)工程可以包含的元素有對(duì)象、窗 體、標(biāo)準(zhǔn)模塊、類模塊和引用等。對(duì)象。對(duì)象元素是指VBA工程的程序代碼將要存取的對(duì)象或者文件，例如，對(duì)AutoCADVBA工程而言，ThisDrawing對(duì)象代表的是當(dāng)前的 AutoCAD圖形；窗體。窗體元素是放置其他對(duì)象的容器，它常常用于創(chuàng)建工程的自定義對(duì)話框；標(biāo)準(zhǔn)模塊。標(biāo)準(zhǔn)模塊也稱為程序代碼模塊，或者簡(jiǎn)稱模塊。程序代碼模塊中包含程 序代碼行和函數(shù)等；類模塊。類模塊元素是指所有包含本身的對(duì)象，這些對(duì)象被定義為類別；引用。引用元素是指對(duì)其他工程或者程序的使用參考。在VBAIDE編輯環(huán)境可以進(jìn)行添加新元素、導(dǎo)入元素和編輯元素，具體操 作方法及步驟請(qǐng)

8、自行學(xué)習(xí)。14.3 ActiveX 基礎(chǔ)基于AutoCAD的VBA應(yīng)用程序就是高級(jí)程序語(yǔ)言的計(jì)算功能與 AutoCAD 的繪圖功能結(jié)合，使有 VBA程序語(yǔ)句來(lái)控制對(duì)AutoCAD圖形的操作。要很好 地使用VBA開(kāi)發(fā)AutoCAD應(yīng)用程序，就必須熟悉與要開(kāi)發(fā)的應(yīng)用程序類型相 關(guān)的AutoCAD實(shí)體和對(duì)象集合、它們的屬性和操作方法，以及都有哪些資源可 以使用。引外還需要了解 ActiveX相關(guān)語(yǔ)法知識(shí)。在本節(jié)學(xué)習(xí)過(guò)程中要注意理解 ActiveX對(duì)象模型。對(duì)象是AutoCADActiveX接口的主要單位，每一個(gè)開(kāi)放的對(duì)象均代表一個(gè) AutoCAD的明確組件，VBA應(yīng)用程序就是通過(guò) AutoCAD的這

9、些對(duì)象來(lái)控制 AutoCAD圖形的。AutoCADActiveX接口有以下五種類型的對(duì)象：AutoCAD圖形實(shí)體。例如直線、橢圓、圓弧、文字與標(biāo)注等；AutoCAD非圖形實(shí)體。如線型、標(biāo)注樣式、文字樣式、表格樣式等；AutoCAD結(jié)構(gòu)實(shí)體。如圖層與圖塊等實(shí)體；AutoCAD視圖實(shí)體。如視圖和視口等；圖形和AutoCADVBA 應(yīng)用程序本身。AutoCAD的對(duì)象是分層的，這個(gè)分層結(jié)構(gòu)就 是應(yīng)用程序能夠操作的對(duì)象模型， 其中根又象是 Application對(duì)象，對(duì)對(duì)象的操作是 依對(duì)象模型的分層關(guān)系進(jìn)行逐級(jí)操作的，對(duì)象分層結(jié)構(gòu)如圖 14 5所小。Dous白nt£圖145對(duì)象分層結(jié)構(gòu)Appl

10、ication 對(duì)象是AutoCADActiveXAutomation 對(duì)象模型的 根對(duì)象，在Application對(duì)象中可以存取任 何其他的對(duì)象，也可以設(shè)置對(duì)象的屬性和 使用方法。此外，Application對(duì)象還可以 通過(guò)Documents集合來(lái)訪問(wèn)AutoCAD圖 形，通過(guò) MenuBar和MenuGroups集合來(lái) 訪問(wèn)AutoCAD菜單和工具條，以及通過(guò) VBA的屬性來(lái)訪問(wèn)VBAIDE 。對(duì)象的結(jié)構(gòu) 如圖14 6所示。Elockser SpaceDi cticnaini 陣GroupsLayersLinetypesFloConfi gurati onsai ster£dAp

11、psT«ctStyleLCSsVi ewsViewportsDhe eFr a£erenc « mFlatUtility圖 14 6Application 對(duì)象 Document對(duì)象也就是AutoCAD圖形， 用戶可以通過(guò)它來(lái)引用 AutoCAD的圖形 對(duì)象和非圖形對(duì)象。所有Document對(duì)象都 屬于Documents集合。用戶通過(guò)Documents 集合可以存取所有圖形對(duì)象，例如直線、 圓和圓弧等，圖形對(duì)象的存取是通過(guò)Documents集合下的ModelSpace和PaperSpac既合來(lái)實(shí)現(xiàn)的。用戶通過(guò) Documents集合也可以存取大部分的非圖形對(duì)象，例

12、如圖層、線型和文字樣式等， 這些非圖形對(duì)象的存取是通過(guò) Documents集合下的Layers、Linetypes和TextStyles 等集合來(lái)實(shí)現(xiàn)的。Documents集合的結(jié)構(gòu)如圖147所示。圖形對(duì)象也就是圖形實(shí)體，是組成 AutoCAD圖形的主要元素，它在 AutoCAD 中是可以看到的對(duì)象，如直線、圓、圓弧文字等。在VBA應(yīng)用程序中創(chuàng)建這些圖形對(duì)象，需要使用 Add方法對(duì)象，例如創(chuàng)建 一個(gè)新的直線對(duì)象，需要使用 AddLine方法，創(chuàng)建一個(gè)圓弧對(duì)象，需要使用 AddArc方法；在VBA應(yīng)用程序中編輯這些圖形對(duì)象，可以使用對(duì)象本身的方法和屬性，每一個(gè)圖形對(duì)象都有方法可以讓應(yīng)用程序執(zhí)行大

13、部分的AutoCAD編輯命令，例如 Move、Erase和Mirror方法等。非圖形對(duì)象屬于AutoCAD圖形的一部分，但是在繪圖窗口中是不可見(jiàn)的，例如 Layers、Linetypes 和 SelectionSets對(duì)象等。在VBA應(yīng)用程序中要?jiǎng)?chuàng)建這些非圖形對(duì)象，需要使用上一級(jí)的Collection對(duì) 象的Add方法。另外，每一個(gè)非圖形對(duì)象均有特殊用闕蝕4祛documents所 以設(shè)置及存取擴(kuò)展實(shí)體數(shù)據(jù)和刪除自己的方法。Preferences®合是AutoCAD對(duì)象模型下的一個(gè)重要對(duì)象集合，它的層結(jié)構(gòu)如 圖14 8所示。圖 148Preference冰合Plot對(duì)象提供對(duì)AutoC

14、AD中頁(yè)面設(shè)置”對(duì)話框設(shè)置值的存取，應(yīng)用程序還能 夠通過(guò)該對(duì)象以不同的方法來(lái)打印圖形。Utility對(duì)象提供應(yīng)用程序中使用的輸入函數(shù)和轉(zhuǎn)換函數(shù)，它在對(duì)象模型的層 次結(jié)構(gòu)如圖14- 9所示。如圖 14 9Preference Plot 和 Utility 對(duì)象引用對(duì)象是開(kāi)發(fā)程序必需的工作。 可以直接引用對(duì)象，也可以先定義一個(gè)變 量，然后通過(guò)變量來(lái)引用對(duì)象。如果是直接引用對(duì)象，需要把對(duì)象引入到方法調(diào) 用語(yǔ)句中。例如，在模型空間中生成一條直線，需要首先定義直線的起點(diǎn)和終點(diǎn) 坐標(biāo)，然后調(diào)用AddLine方法來(lái)創(chuàng)建直線對(duì)象。DimSpoint(0To2)AsDoubleDimEpoint(0To2)As

15、DoubleDimLineObjAsAcadLineSpoint(0)=0Spoint=0Spoint(2)=0Epoint(0)=100Epoint(1)=100Epoint(2)=0SetLi如果是通過(guò)變量來(lái)引用對(duì)象，需要把變量定義為所需的對(duì)象類型， 然后將變 量設(shè)置為適當(dāng)?shù)膶?duì)象。它的格式一般為：DimVariablenameAsObjectTypeSetVariablename=Thisdrawing.<Object>Thisdrawing對(duì)象提供了連接 Document對(duì)象的功能，而根對(duì)象(Application 對(duì)象)在對(duì)象模型結(jié)構(gòu)層次中是位于Document對(duì)象之上的，

16、因此如何看血根對(duì) 象就成了一個(gè)主要問(wèn)題。這時(shí)需要用Document對(duì)象的一個(gè)名為Application的屬 性，可以用該屬性引用 Application對(duì)象。集合對(duì)象是事先已經(jīng)定義好的對(duì)象，它包含類似于對(duì)象的所有引用，也就是對(duì)象的所有引用的上一級(jí)對(duì)象，具有Collection對(duì)象的集合如表141所示。表14 1具有Collection對(duì)象的集合集合名稱WiDocuments當(dāng)前AutoCAD中打開(kāi)的全部圖形ModelSpace模型空間中的全部圖形對(duì)象PaperSpace當(dāng)前圖紙空間布局中的全部圖形對(duì)象Block特殊塊內(nèi)的全部實(shí)體Blocks圖形中的全部塊對(duì)象Dictionaries圖形中的全部

17、字典DimStyles圖形中的全部標(biāo)注樣式Groups圖形中的全部對(duì)象組Hyperlinks指定實(shí)體的全部超級(jí)鏈接Layers圖形中的全部圖層Layouts圖形中的全部布局MenuBar當(dāng)前顯示在AutoCAD中的全部菜單MenuGroups當(dāng)前已加載的全部菜單和工具欄RegisteredApplications圖形中全部已注冊(cè)的應(yīng)用程序SelectionSets圖形中的全部選擇集TextStyles圖形中的全部文字樣式UCSs圖形中的全部用戶坐標(biāo)系Views圖形中的全部視圖Viewports圖形中的全部視口幾乎所有的集合對(duì)象都是通過(guò) Document對(duì)象來(lái)存取的。Document對(duì)象包含 每

18、一個(gè)集合對(duì)象的屬性，用戶可以對(duì)這些屬性進(jìn)行編輯和使用。例如，在下面的程序中定義了一個(gè)變量，然后將變量設(shè)置為當(dāng)前圖形的Layers集合，將來(lái)對(duì)該變量的使用，就是對(duì)AutoCAD當(dāng)前圖形所有圖層的使用。DimLayerCollectionAsAcadLayersSetLayerCollection=ThisDrawing.Layers例外的是，Documents、MenuBar、MenuGroups這幾個(gè)集合對(duì)象是經(jīng)過(guò) Application對(duì)象來(lái)存取的，Application對(duì)象同樣包含了每一個(gè)集合的屬性。要在集合對(duì)象中添加新成員，需要使用Add方法。例如，在下面的程序中創(chuàng)建一個(gè)新圖層并將它添加

19、到Layers集合中。DimNewLayerAsAcadLayer要在集合對(duì)象中刪除成員，需要使用 Delete方法。例如，在下面的程序中刪 除圖層集合中的新圖層”。DimNewLayerAsAcadLayerNewLayer.Delete14.4 編與程序要想能夠快速、順利地編寫應(yīng)用程序，需要自學(xué)掌握以下內(nèi)容：屬性、方法和事件的概念；掌握引用對(duì)象的方法(通過(guò)父對(duì)象依次引用)；數(shù)據(jù)類型的概念、創(chuàng)建方法及使用方法；數(shù)組的定義與使用；IfThen.Else 語(yǔ)句；ForNext語(yǔ)句；Val()函數(shù)；具備了上述基本知識(shí)就可以在 VBAIDE環(huán)境中輕松編寫應(yīng)用程序了，在編 寫采礦應(yīng)用程序時(shí)，要對(duì)圖形進(jìn)

20、行分析，在AutoCAD二次開(kāi)發(fā)過(guò)程中，針對(duì)固定式圖形往往能夠取得較好的效果，比如編寫花道斷面”應(yīng)用程序，編寫 采煤工作面布置圖”應(yīng)用程序等。新建圖形需要用到Documents對(duì)象的Add方法。下面的程序使用 Add方法， 以默認(rèn)的模板文件建立一個(gè)新的圖形。DimNewObjectAsAcadDocument要對(duì)已有向圖形進(jìn)行操作，必須先打開(kāi)它。需要使用到Documents對(duì)象的Open方法。下面的程序使用 Open方法來(lái)打開(kāi)一個(gè)已有的圖形文件 “Mine.dwg,” 其中VisualBasic的Dir函數(shù)用來(lái)在打開(kāi)圖形之前檢查圖形文件是否存在，如果不存在則顯示警告信息。使用此例子時(shí)應(yīng)該改變圖

21、形文件的名稱和路徑，指定此圖形文件在自己系統(tǒng)中存在的實(shí)際位置。DimFileNameStrAsStringFileNameStr="c:MyDocumentMine.dwg"IfDir(FileNameStr)<>""ThenFileNameStrElseMsgBox"文件"&FileNameStr&"不存在"EndIf ；! 一在 VBA 程序中，可以使用 Application 對(duì)象的 WindowTop、WindowLeft、 Width和Height屬性來(lái)定位AutoCAD窗口在

22、屏幕左上角的位置和寬度以及高度。 下面的程序?qū)utoCAD窗口定位在距屏幕左邊和頂邊均為 10個(gè)像素的位置，并 將窗口的寬度與高度均設(shè)置為 500個(gè)像素。ThisDrawing.Application.WindowTop=10可以通過(guò)設(shè)置Application對(duì)象的WindowState屬性來(lái)最大化或者最小化 AutoCAD窗口。該屬性有三個(gè)可選值：acMax、acMin、acNorm,分別對(duì)應(yīng)AutoCAD 窗口的最大狀態(tài)、最小狀態(tài)和正常狀態(tài)。使用Utility對(duì)象所提供的方法，可以快速地解決一些數(shù)學(xué)計(jì)算問(wèn)題，或者計(jì) 算出圖形上的點(diǎn)。使用Utility對(duì)象所提供的方法，可以進(jìn)行如下工作：A

23、ngleFromXAxis方法：找出線與 X軸的夾角；AngleToString方法：將字符串表示的角度轉(zhuǎn)換為實(shí)數(shù)值；DistanceToReal方法：將由字符串表示的距離值轉(zhuǎn)換為單精度的實(shí)數(shù)值；CreateTypeArray方法：建立包含整數(shù)陣列、浮點(diǎn)數(shù)陣列、單精度陣列等的 Variant;PolarPoint方法：查找出與已知點(diǎn)成指定角度和距離的點(diǎn)；TranslateCoordinates方法：將某點(diǎn)從一個(gè)坐標(biāo)系統(tǒng)轉(zhuǎn)換為另一種坐標(biāo)系統(tǒng)。點(diǎn)距離的計(jì)算在應(yīng)用程序中使用很多，查兩條平等直線之間的距離就需要通 過(guò)點(diǎn)距離計(jì)算。下面的程序使用了 GetDistance方法來(lái)取得兩點(diǎn)之間的距離，然后使用

24、 MsgBox函數(shù)將計(jì)算結(jié)果顯示出來(lái)。Dim TwoPDist As DoubleMe.HideMsgBox"這兩個(gè)點(diǎn)之間的距離為："&TwoPDist在應(yīng)用程序中計(jì)算面積，需要使用對(duì)象的A rea屬性，該屬性可計(jì)算出圓弧、 圓、橢圓、橢圓弧、面域、多段線或者封閉的區(qū)域的面積。計(jì)算出來(lái)的面積會(huì)隨 查詢對(duì)象的類型不同有所不同：封閉的多段線和多邊形：對(duì)于有寬度的多段線或多邊形，面積是以寬度的中心線為邊界來(lái)計(jì)算的；非封閉對(duì)象：假設(shè)在非封閉對(duì)象的起點(diǎn)和終點(diǎn)間有一直線連接，所組成的封閉區(qū)域的面積即為非封閉的面積；面域：面域的面積等于面域中對(duì)象的共有部分的面積?？梢杂?jì)算一個(gè)沒(méi)有

25、邊界的封閉區(qū)域的面積，該區(qū)域由指定的二維或者三維點(diǎn)來(lái)定義，而這些點(diǎn)必須位于同一個(gè)平面上。 計(jì)算由指定點(diǎn)組成的區(qū)域面積的步驟 如下：(1)使用GetPoint方法取得用戶的指定點(diǎn)；(2)使用用戶指定的點(diǎn)來(lái)創(chuàng)建無(wú)寬度的多段線，通常使用AddLightWeightPolyline方法創(chuàng)建無(wú)寬度的多段線；(3)使用Area屬性取得新建立的多段線的面積；(4)使用Erase方法刪除多段線。下面的程序接受用戶輸入8個(gè)點(diǎn)，然后使用這8個(gè)點(diǎn)來(lái)創(chuàng)建封閉多段線。再 計(jì)算面積，將結(jié)果顯示在信息框中。DimP1AsVariantDimP2AsVariantDimP3AsVariantDimP4AsVariantDim

26、P5AsVariantDimP6AsVariantDimP7AsVariantDimP8AsVariantMe.Hide提示輸入點(diǎn)'根據(jù)這些點(diǎn)創(chuàng)建二維多段線DimPolyObjAsAcadLWPolylineDimPLPoint(0To15)AsDoublePLPoint(0)=P1(0)PLPoint(1)=P1(1)PLPoint(2)=P2(0)PLPoint(3)=P2(1)PLPoint(4)=P3(0)PLPoint(5)=P3(1)PLPoint(6)=P4(0)PLPoint(7)=P4(1)PLPoint(8)=P5(0)PLPoint(9)=P5(1)PLPoint

27、(10)=P6(0)PLPoint(11)=P6(1)PLPoint(12)=P7(0)PLPoint(13)=P7(1)PLPoint(14)=P8(0)PLPoint(15)=P8(1)PolyObj.Closed=TrueMsgBox"這些點(diǎn)定義區(qū)域的面積為："&PolyObj.Area,"計(jì)算定義面積"_開(kāi)發(fā)的應(yīng)用程序在運(yùn)行時(shí)，通常要用到用戶輸入的參數(shù)：字符串、點(diǎn)坐標(biāo)值、 長(zhǎng)度值等，或者是選項(xiàng)的關(guān)鍵字，例如上述需要用戶指定的二維多段線的各點(diǎn)。 在獲得了輸入信息后，再進(jìn)行下上步工作。取得用戶的輸入需要用到Utility對(duì)象 的一些方法和屬性

28、。Utility對(duì)象的有關(guān)用戶輸入的方法主要有：GetAngle :取得角度值；GetCornet：取得對(duì)角點(diǎn)；GetDistance：取得兩點(diǎn)間的距離；GetEntity :取得實(shí)體對(duì)象；GetInput:取得用戶的輸入；GetInteger ：取得整數(shù)；GetKeyword :取得關(guān)鍵詞；GetOrientation :取得方向；GetPoint:取得點(diǎn)坐標(biāo)；GetReal:取得實(shí)數(shù)；GetRemoteFile :取得遠(yuǎn)程文件名；GetString ：取得字符串；GetSubEntity :取得子對(duì)象。下面就用以GetString方法和GetPoint方法分別編寫應(yīng)用程序。1 .GetSt

29、ring 方法GetString方法提示用戶在AutoCAD的命令輸入一個(gè)字符串。該方法需要兩個(gè)參數(shù)，第一個(gè)參數(shù)控制輸入字符串的空格，如果設(shè)置為 0,表示不接受空格， 一旦出現(xiàn)空格就可以終止輸入；如果設(shè)置為 1,則字符串可以包含空格，需要使 用回車鍵來(lái)終止輸入；第二個(gè)參數(shù)是提示字符。下面的程序顯示 請(qǐng)輸入你的姓名：”的提示，需要按下回車鍵來(lái)結(jié)束輸入，輸入的字符串允許帶有空格，輸入的字符串存儲(chǔ)在InPutStr變量中，并用信息框顯示：DimInPutStrAsStringMe.HideMsgBox"輸入的姓名是："&InPutStr2 .GetPoint 方法GetP

30、oint方法提示用戶在AutoCAD的命令提示中輸入點(diǎn)坐標(biāo)。該方法需要用 兩個(gè)參數(shù)：起點(diǎn)坐標(biāo)(可選)和提示字符串。如果有起點(diǎn)，AutoCAD從該點(diǎn)到取得的點(diǎn)繪制一條伸縮線，如果需要控制用戶輸入格式，則在使用該方法之前調(diào) 用 InitializeUserInptu 方法。下面的程序提示輸入兩個(gè)點(diǎn)，然后使用這兩個(gè)點(diǎn)作為起點(diǎn)和終點(diǎn)繪直線。DimSPAsVariantDimEPAsVariantDimHintlAsStringDimHint2AsStringHint1=vbCrLf&"輸入直線起點(diǎn)："Hint2=vbCrLf&"輸入直線終點(diǎn)："M

31、e.Hide取得第一點(diǎn)，基準(zhǔn)點(diǎn)缺省'使用上面取得的輸入點(diǎn)作為基準(zhǔn)點(diǎn)，再取得一點(diǎn))使用兩點(diǎn)繪制一直線進(jìn)行設(shè)置AutoCAD環(huán)境或者繪圖等其他操作，最簡(jiǎn)單的方法是使用 SendCommandT法將命令傳送到AutoCAD的命令提示行。SendCommand方法需要一個(gè)參數(shù)，該參數(shù)即為要傳送的命令字符用，該字符 用里必須包含有命令所需要的參數(shù)， 并且按照命令的執(zhí)行順序依次排列。 其中字 符串中的空格相當(dāng)于 ASCII碼，表示在鍵盤上按下了 Enter鍵。與AutoLISP環(huán) 境不同，在VBA程序中，如果調(diào)用SendCommand但沒(méi)有參數(shù)是無(wú)效的。下面的程序先在點(diǎn)(10, 10, 0)和點(diǎn)(

32、 20, 22, 0)之間繪制一直線，然后 以點(diǎn)(20, 22, 0)為圓心，繪制一個(gè)半徑為5的圓，最后以點(diǎn)(20, 30, 0)為 起點(diǎn)，以字高為5,傾斜30°繪制文字。ThisDrawing.SendCommand"_line10,10,020,22,0"ThisDrawing.SendCommand"_circle20,22,05”ThisDrawing.SendCommand"_text20,30,0530礦工程'"使用SendCommand方法需則注意的是，在每個(gè)字符串的結(jié)尾都有一個(gè)空格， 這是相當(dāng)于輸入命令以后，按

33、下 Enter鍵，開(kāi)始執(zhí)行命令。與直接使用AutoCAD 一樣，在VBA應(yīng)用程序?qū)D形的操作中，首先是繪制 圖形對(duì)象，只有有了圖形對(duì)象，才能進(jìn)行其他的操作，例如編輯、打印等。在VBA,應(yīng)用程序中，可以繪制和編輯幾乎所有的 AutoCAD實(shí)體對(duì)象，從最 簡(jiǎn)單的點(diǎn)和直線到多段線和文字，以及關(guān)聯(lián)的剖面線對(duì)象等?？梢詫?shí)體對(duì)象添 加到當(dāng)前的模型空間中，也可以將實(shí)體對(duì)象創(chuàng)建在圖紙空間或者塊中。在直接使用AutoCAD繪圖時(shí)，用戶可以使用幾種不同的方法來(lái)繪制相同的 實(shí)體對(duì)象，但是，在ActiveXAutomation中，繪制一個(gè)實(shí)體只有一種方法。使用 CreateObjec域Dim和New關(guān)鍵字繪制實(shí)體對(duì)

34、象的 VB和VBA方法只能用來(lái)創(chuàng) 建AutoCADApplication對(duì)象，所有其他AutoCAD實(shí)體對(duì)象都必須使用 AutoCAD 環(huán)境中提供的Add或Add<objectname>!r式來(lái)繪制。所有的圖形對(duì)象都是創(chuàng)建在ModelSpace集合、PaperSpac既合或者Block集 合上的對(duì)象，這三個(gè)集合分別對(duì)應(yīng) AutoCAD的模型空間、圖紙空間和塊。ModelSpace集合是由對(duì)象的 ModelSpace屬性返回；而PaperSpac源合則是由對(duì) 象的PaperSpacfl性返回。在這些空間上繪制圖形，用戶可以直接使用這些集 合對(duì)象，這時(shí)需要將實(shí)體對(duì)象設(shè)置到當(dāng)前激活圖層。

35、1 .點(diǎn)樣式點(diǎn)的樣式以及點(diǎn)的大小是可以設(shè)置的。AutoCAD提供了 20種點(diǎn)樣式，點(diǎn)的大小尺寸可以是相對(duì)于屏幕坐標(biāo)，也可以是相對(duì)于絕對(duì)坐標(biāo)。系統(tǒng)變量是 PDMODE和PDSIZE用于控制點(diǎn)對(duì)象的樣式和大小。2.繪制點(diǎn)對(duì)象Dim PointObj As AcadPointDim pP(0To2) As Double點(diǎn)的位置pP(0)=12pP(1)=12pP(2)=0繪制點(diǎn)二. . .設(shè)置系統(tǒng)變量，設(shè)置點(diǎn)的樣式與大小ThisDrawing.SetVariable"pdmode",34ThisDrawing.SetVariable"pdsize”,4直線是AutoCA

36、D中最基本的對(duì)象，可以是單段線段，也可以是連續(xù)折線段。使用指定坐標(biāo)點(diǎn)的方式繪制直線較方便。默認(rèn)的直線線型是CONTINUOUS，但在實(shí)際圖形中，許多對(duì)象需要使用其他的線型，在編寫應(yīng)用程序時(shí)也可以設(shè)置線 型。Dim LineObj As AcadLineDim SP(0To2) As DoubleDim EP(0To2) As Double'起點(diǎn)坐標(biāo)SP(0)=0SP(1)=0SP(2)=0'終點(diǎn)坐標(biāo)EP(0)=100EP(1)=50EP(2)=0'繪制直線可以使用LineObj對(duì)象的Linetype屬性改變線型，以滿足編寫應(yīng)用程序需求。DimLTnameAsString

37、LTname="Center”加載線型文件“acadiso.lin ”acadDoc.Linetypes.LoadLTname,App.Path&"acadiso.lin”LineObj.Linetype="Center”LineObj.LinetypeScale=5LineObj.Update繪制圓需要使用AddCircle方法，該方法需要兩個(gè)參數(shù)。第一個(gè)參數(shù)是設(shè)置 圓的圓心坐標(biāo)，第二個(gè)參數(shù)設(shè)置圓的半徑。下面的程序繪制一個(gè)圓心坐標(biāo)為(10, 10, 0)、半徑為100的圓。DimCenP(0To2)AsDoubleDimRAsDoubleCenP(0)=

38、10CenP(1)=10CenP(2)=0R=100繪制圓弧需要使用AddArc方法，該方法需要四個(gè)參數(shù)。第一個(gè)參數(shù)為圓心 坐標(biāo)，第二個(gè)參數(shù)為圓弧半徑，第三個(gè)參數(shù)為圓弧起始角度，第四個(gè)參數(shù)為圓弧 的終止角度。下面的程序要繪制一個(gè)1/4圓，圓心坐標(biāo)為(100, 0, 0),圓弧半徑為100, 起始角度為0°,終止角度為90 o這里需要注意的是，在編寫應(yīng)用程序給定角度 時(shí)，需要按弧度給變量賦值。DimArcObjAsAcadArcDimCenP(0To2)AsDoubleDimRAsDoubleDimSAngAsDoubleDimEAngAsDoubleCenP(0)=100CenP(1

39、)=0CenP(2)=0R=100SAng=0SetArcObj=ThisDrawi繪制橢圓需要使用AddEllipse方法，該方法需要三個(gè)參數(shù)。第一個(gè)參數(shù)為橢 圓中心坐標(biāo)，第二個(gè)參數(shù)為主軸上一點(diǎn)，第三個(gè)參數(shù)為橢圓兩軸的半徑比例，它是一個(gè)小于1的數(shù)值。DimCenP(0To2)AsDoubleDimMajAxisP(0To2)AsDoubleDimRadtAsDouble定義橢圓參數(shù)CenP(0)=100CenP(1)=100CenP(2)=0MajAxisP(0)=130MajAxisP(1)=100MajAxisP(2)=0Radt=0.6請(qǐng)自行運(yùn)行程序查看程序運(yùn)行結(jié)果。多段線是由多條線段

40、組成的組合對(duì)象，這些線段可以是直線段，也可以是圓弧段。在VBA程序中，有兩種方法繪制多段線對(duì)象：AddPolyline和AddLightWeightPolyline ,其中，AddPolyline方法可以繪制二維或三維多段線， 它的參數(shù)是一個(gè)多段線頂點(diǎn)的三維坐標(biāo)；AddLightWeightPolyline方法只能繪制 二維多段線，它的參數(shù)是多段線頂點(diǎn)的二維坐標(biāo)下面的程序是應(yīng)用 AddLightWeightPolyline方法，以二維坐標(biāo)點(diǎn)(10, 10)、 (20, 20)、(30, 30)、(40, 40)與(50, 50)為頂點(diǎn)繪制一條二維多段線， 在開(kāi)發(fā)采礦工程專業(yè)圖形時(shí)，通常使用Ad

41、dLightWeightPolyline方法繪制二維多段線。DimLWPLinObjAsAcadLWPolylineDimPp(0To9)AsDoublePp(0)=10:Pp(1)=10Pp(2)=20:Pp(3)=20Pp(4)=30:Pp(5)=30Pp(6)=40:Pp=40Pp(8)=50:Pp(9)=50樣條曲線在AutoCAD中是繪制在世界坐標(biāo)系(WCS)中的XY平面上的。這種曲線在繪制煤層底板等高線及在編制煤礦瓦斯地質(zhì)圖中應(yīng)用廣泛。繪制樣條曲線需要使用AddSpline方法，該方法需要三個(gè)參數(shù)。第一個(gè)參數(shù)為樣條曲線頂 點(diǎn)的坐標(biāo)，第二個(gè)參數(shù)和第三個(gè)參數(shù)分別是樣條曲線起點(diǎn)和終點(diǎn)的切

42、點(diǎn)坐標(biāo)。下面的程序使用三點(diǎn)在模型空間中繪制樣條曲線。其中樣條曲線的起始相切 點(diǎn)為(2, 3, 0),終點(diǎn)切點(diǎn)為(3, 1, 0)。DimSpLinObjAsAcadSplineDimSTanP(0To2)AsDoubleDimETanP(0To2)AsDoubleDimVetPoints(0To8)AsDoubleSTanP(0)=2STanP(1)=3STanP(2)=0ETanP(0)=3ETanP(1)=1ETanP(2)=0VetPoints(0)=0.6VetPoints(1)=0.9VetPoints(2)=0VetPoints(3)=4.5VetPoints(4)=6VetPoi

43、nts(5)=0VetPoints(6)=12VetPoints(7)=1VetPoints(8)=0創(chuàng)建剖面線剖面線是以某種圖案按一定的方式填充圖形中的指定區(qū)域的對(duì)象。在VBA應(yīng)用程序中創(chuàng)建剖面線的過(guò)程通常是這樣的：首先創(chuàng)建Hatch對(duì)象，然后為其指定外部回路，也就是剖面線最外層邊界；最后指定要繪制剖面線的區(qū)域。要?jiǎng)?chuàng)建 Hatch對(duì)象，需要使用AddHatch方法，該方法需要三個(gè)參數(shù)，分別設(shè)置Hatch對(duì)象的圖案類型、圖案名稱和關(guān)聯(lián)性。使用AddHatch方法最重要的是構(gòu)建一個(gè)封閉的邊界，例如編寫應(yīng)用程序繪制 噴射混凝土支護(hù)巷道斷面圖”，其中噴射混 凝土的圖示表示中需要使用 Hatch方法，

44、在構(gòu)建封閉區(qū)域時(shí)較為麻煩。1 .剖面線的關(guān)聯(lián)性與直接使用AutoCAD繪制剖面線一樣，用戶的VBA程序也可以創(chuàng)建關(guān)聯(lián)式 或者非關(guān)聯(lián)式的剖面線。關(guān)聯(lián)式剖面線與它們的邊界是相互聯(lián)系的，在邊界修改 時(shí)剖面線也自動(dòng)更新；而非關(guān)聯(lián)式剖面線與邊界是相互獨(dú)立的。 關(guān)聯(lián)性是在剖面 線創(chuàng)建時(shí)設(shè)置的，一旦創(chuàng)建剖面線后，用戶可以刪除關(guān)聯(lián)性，但是不能再創(chuàng)建關(guān) 聯(lián)性。要?jiǎng)?chuàng)建關(guān)聯(lián)式剖面線，需要在使用AddHatch方法時(shí)，將它的第三個(gè)參數(shù)(Associativity)設(shè)置為TRUE,如果要?jiǎng)?chuàng)建非關(guān)聯(lián)式剖面線，則需要將第三個(gè) 參數(shù)設(shè)置為FLASE。2 .剖面線圖案類型用圖案填充區(qū)域可以使用 AutoCAD提供的實(shí)體填充和標(biāo)

45、準(zhǔn)的預(yù)定義的剖面 線圖案，也可以使用定制的圖案。在使用 AddHatch方法時(shí)，第一個(gè)參數(shù)即是指 定剖面線圖案的類型。該參數(shù)有三個(gè)常數(shù)可選：AcHatchPatternTypePredefined :使用 AutoCAD 提供的定義在 acad.pat文件中的圖案； AchatchPatternTypeUserDefined :使用當(dāng)前線型定義的剖面線的圖案； AcHatchPatternTypeCustomDefined :使用用戶定義的 PAT文件中的圖案。3 .剖面線圖案名稱在使用AutoCAD方法時(shí)，第二個(gè)參數(shù)即是指定剖面線圖案的名稱。該名稱 在所選的圖案類型中必須是有效的名稱。在創(chuàng)建

46、了 Hatch對(duì)象后，就可以添加剖面線的邊界。剖面線的邊界可以是直 線、弧、圓、二維多段線等，以及多個(gè)對(duì)象的組合。第一個(gè)添加的邊界必須是最外側(cè)邊界，它定義了剖面線的最外面范圍。要加入最外側(cè)邊界，需要使用剖面線對(duì)象的 AppendOuterLoop方法。在定義最外側(cè)邊 界線后，可以繼續(xù)加入內(nèi)部世界，這時(shí)需要使用剖面線對(duì)象的AppendInnerLoop方法。AppendOuterLoop方法和AppendInnerLoop方法均需要一個(gè)參數(shù)，該參數(shù)是 構(gòu)成回路的圖形對(duì)象數(shù)據(jù)矩陣。內(nèi)部邊界定義的是剖面線內(nèi)孤立的對(duì)象，稱為孤島。Hatch對(duì)象如何處理這些島是根據(jù)剖面線對(duì)象的HatchStyle屬性的

47、設(shè)置值而定。HatchStyle屬性可以設(shè)置的值及描述如表14 2所示。表14-2剖面線樣式HatchStyle描述指定標(biāo)準(zhǔn)樣式或正常。 此樣式由最外面區(qū)域邊界向內(nèi)創(chuàng)建剖面Normal線。如果AutoCAD碰到內(nèi)部邊界，會(huì)關(guān)閉剖面線，直到碰到另一個(gè)邊界。填滿最外面區(qū)域。此樣式也是從區(qū)域最外邊界向內(nèi)創(chuàng)建剖面Outer線，但是一旦遇到內(nèi)部邊界即關(guān)閉剖面線，不再向里填充。Ignore忽略內(nèi)部邊界。此樣式使剖面線通過(guò)所有的內(nèi)部對(duì)象。當(dāng)完成定義剖面線后，必須要先計(jì)算后才能顯示，這需要執(zhí)行Evaluate方法。 卜面的應(yīng)用程序是在模型空間中繪制關(guān)聯(lián)的剖面線。DimHatchObjAsAcadHatchDi

48、mPatternNameAsStringDimPatternTypeAsLongDimPolyObj2(0To0)AsAcadEntityDimVetPoint2(0To14)AsDouble定義多段線頂點(diǎn)的圖案名稱VetPoint2(0)=50VetPoint2(1)=50VetPoint2(2)=0VetPoint2(3)=80VetPoint2(4)=50VetPoint2(5)=0VetPoint2(6)=80VetPoint2(7)=60VetPoint2(8)=0VetPoint2(9)=50VetPoint2(10)=60VetPoint2(11)=0VetPoint2(12)=

49、50VetPoint2(13)=50VetPoint2(14)=0PatternName="solid"PatternType=0創(chuàng)建多段線'創(chuàng)建剖面線對(duì)象給剖面線對(duì)象賦邊界HatchObj.AppendOuterLoop(PolyObj2)HatchObj.Evaluate如果要偏移對(duì)象，需要使用 Offset方法。對(duì)象的Offset方法需要一個(gè)重要的 參數(shù)(距離值)。如果距離值為正值，則向外偏移繪制一個(gè)較大的曲線，即新對(duì) 象的曲率半徑比原對(duì)象的大；如果距離是負(fù)值，那么 AutoCAD會(huì)以原對(duì)象偏移 繪制出一個(gè) 較小”的曲線，也就是新對(duì)象曲率半徑更??；如果距離值無(wú)

50、效，則會(huì) 返回一個(gè)錯(cuò)誤。下面的程序先創(chuàng)建一條多段線和一個(gè)圓，然后偏移這兩個(gè)對(duì)象。DimCircleObjAsAcadCircleDimCenP(0To2)AsDoubleDimRAsDoubleDimPLineObjAsAcadLWPolylineDimPLPoints(0To11)AsDoubleCenP(0)=30:CenP(1)=30R=10PLPoints(0)=30:PLPoints(1)=30PLPoints(2)=31:PLPoints(3)=41PLPoints(4)=22:PLPoints(5)=22PLPoints(6)=35:PLPoints=32PLPoints(8)=

51、37:PLPoints(9)=39PLPoints(10)=33:PLPoints(11)=32PLineObj.Closed=True'偏移多段線和圓DimOffsetCircleAsVariantDimOffsetPlineAsVariantOffsetCircle=CircleObj.Offset(2.5)OffsetPline=PLineObj.Offset(1)鏡像對(duì)象需要使用Mirror方法。與AutoCAD中的鏡像不同，這個(gè)方法會(huì)保留原來(lái)的對(duì)象。如果要?jiǎng)h除原來(lái)的對(duì)象，需要另外使用Erase方法。Mirror方法需要兩個(gè)坐標(biāo)參數(shù)。這兩個(gè)坐標(biāo)值定義鏡像線的端點(diǎn)，對(duì)稱于此 鏡像

52、線繪制出對(duì)象的副本。在下面的程序中先創(chuàng)建一條多段線，然后鏡像該多段 線。DimPlineObjAsAcadLWPolylineDimPLPoint(0To7)AsDoublePLPoint(0)=0:PLPoint(1)=0PLPoint(2)=1000:PLPoint(3)=0PLPoint(4)=1000:PLPoint(5)=1000PLPoint(6)=0:PLPoint=1000PlineObj.Closed=TruePlineObj.UpdateDimMirrP1(0To2)AsDoubleDimMirrP2(0To2)AsDoubleMirrP1(0)=0MirrP1(1)=-5

53、0MirrP1(2)=0MirrP2(0)=10MirrP2(1)=-50MirrP2(2)=0PlineObj.MirrorMirrP1,MirrP21 .環(huán)形陣列所有的圖形都可以進(jìn)行環(huán)形陣列，如果要?jiǎng)?chuàng)建環(huán)形陣列，需要使用該對(duì)象提 供的ArrayPolar方法，該方法需要三個(gè)參數(shù)。環(huán)形陣列創(chuàng)建的對(duì)象數(shù)目、陣列角 度和陣列的中心點(diǎn)坐標(biāo)。其中對(duì)象的數(shù)目必須是大于1的正整數(shù)；陣列角度為非 0的數(shù)值，單位是弧度，正值為逆時(shí)針陣列，負(fù)值則為順時(shí)針陣列，如果角度等 于0,則會(huì)產(chǎn)生錯(cuò)誤；中心點(diǎn)是包含三個(gè)單精度數(shù)的Variant數(shù)據(jù)陣列，這些單精度代表指定環(huán)形陣列中心點(diǎn)的三維WCS坐標(biāo)值。AutoCAD自動(dòng)

54、計(jì)算陣列中心點(diǎn)到原來(lái)對(duì)象上的參考點(diǎn)的距離。VBA的環(huán)形陣列方法ArrayPolar與AutoCAD的Array命令的區(qū)別在于它不支持陣列操作時(shí) 旋轉(zhuǎn)對(duì)象。下面的程序先創(chuàng)建一個(gè)橢圓，然后對(duì)橢圓進(jìn)行環(huán)形陣列，共創(chuàng)建10個(gè)橢圓,其中環(huán)形陣列的基點(diǎn)為(300, 40, 0),陣列角度為270°。DimElliseObjAsAcadEllipseDimEllCenP(0To2)AsDoubleDimEllMajAxisP(0To2)AsDouble DimEllAxisScaleAsDoubleDimRotateP(0To2)AsDoubleDimArrayNumberAsIntegerDim

55、ArrayAngleAsDoubleDimArrayResultAsVariantEllCenP(0)=20EllCenP(1)=40EllCenP(2)=0EllMajAxisP(0)=25EllMajAxisP(1)=40EllMajAxisP(2)=0EllAxisScale=0.6EllAxisScale)定義陣列參數(shù)RotateP(0)=300RotateP(1)=40RotateP(2)=0ArrayNumber=10ArrayAngle=4.71ArrayResult=ElliseObj.ArrayPolar(ArrayNumber,ArrayAngle,RotateP)2 .矩

56、形陣列要?jiǎng)?chuàng)建二維矩形陣列，需要使用對(duì)象提供的ArrayRectangular方法。這個(gè)方法需要提供4個(gè)參數(shù)：列數(shù)、行數(shù)、行距和列距。如果列間距為正值，則陣列時(shí) 對(duì)象沿X軸正向排列繪制；為負(fù)值則陣列時(shí)對(duì)象沿X軸負(fù)向排列繪制。如果行間距為正值，則陣列時(shí)對(duì)象沿 Y軸正向排列繪制；為負(fù)值則陣列時(shí)對(duì)象沿Y軸負(fù)向排列繪制。矩形陣列的列和行總是與坐標(biāo)軸成正交的，也即為90°夾角?？梢酝ㄟ^(guò)SnapRotationangle屬性來(lái)設(shè)置矩形陣列的傾斜角,該屬性設(shè)置的角度同時(shí)也是捕 捉點(diǎn)的旋轉(zhuǎn)角度。當(dāng)這個(gè)角度非 0值，就可以創(chuàng)建傾斜的矩形陣列了。下面的程序先創(chuàng)建一個(gè)五角星，然后再對(duì)五角星進(jìn)行矩形陣列，創(chuàng)建5X4共20個(gè)五角星。DimPolyLineObjAsAcadLWPolylineDimPolyLineP(0To21)AsDoubleDimArrayRowsAsIntegerDimArrayColsAsIntegerDimArrayRowDisAsDoubleDimArrayColDisAsDoubleDimarrayResultAsVariantDimLevelDisAsDoubleDimLevelsAsInteger定義五角星PolyLineP(0)=0:PolyLineP(1)=0PolyLine