AutoCAD_二次開發(fā)技術(shù)VBA在窗體繪圖中的應用

1、AutoCAD二次開發(fā)技術(shù)VBA在窗體繪圖中的應用地質(zhì)10-1班何有AutoCAD二次開發(fā)技術(shù)VBA在窗體繪圖中的應用何有（黑龍江科技大學地質(zhì)10-1班）摘要：根據(jù)目前提供的AutoCAD二次開發(fā)工具,結(jié)合VB面向?qū)ο缶幊痰膹姶蠊δ?，介紹了AutoCAD進行二次開發(fā)的一股原理，著重分析了VB對AutoCAD進行二次開發(fā)的實現(xiàn)途徑和具體方法，并且結(jié)合實際要求，以窗體繪制巷道斷面為例，說明了VB對AutoCAD二次開發(fā)完成窗體化繪圖的優(yōu)點及實用性。關(guān)鍵詞：VBA;AutoCAD;二次開發(fā)一、引言AutoCAD二次開發(fā)主要包括用戶接口的設計和開發(fā)，標準元件庫的建立，工程圖紙的生成，接口文件的生成，其

2、中用戶接口包括繪圖主界面、菜單、工具按鈕和命令行等。標準元件庫的建立可以大大減少復雜繁瑣的重復勞動，同時也可以提高應用程序的標準化程度。各種明細表文件的自動生成對于完整的工程圖紙也是必須的。此外，利用數(shù)據(jù)庫技術(shù)可以實現(xiàn)2個系統(tǒng)之間的信息交換，同時引入一些復雜的算法來實現(xiàn)應用程序結(jié)構(gòu)的優(yōu)化。可以看出，二次開發(fā)特別是利用高級語言進行的AutoCAD二次開發(fā)具有較大的靈活性，再加上數(shù)據(jù)庫技術(shù)和動態(tài)鏈接庫技術(shù)的支持等，使應用程序具有更為強大的功能和運行效率，系統(tǒng)的集成性也得到很大的提高。VisualBasic是獨立于AutoCAD的開發(fā)環(huán)境，而VBA和AutoCAD運行在同一處理空間，通過接口界面提供

3、AutoCAD的編程控制。VBA通過使用ThisDrawing對象提供到AutoCAD當前進程中激活圖形的鏈接,從而可以快速訪問當前文檔對象和其方法、屬性和事件，以及其他所有對象層中的對象。這使程序執(zhí)行速度大大地提高了，兩者之間的通訊變得簡潔而高效。系統(tǒng)環(huán)境為AutoCAD和VBA之間的結(jié)合提供很強的接口功能，不但可以控制AutoCAD對象，還可以從其他應用程序發(fā)送數(shù)據(jù)或接收數(shù)據(jù)。VBA應用程序是由很多個宏組成的。二、VBA在窗體繪圖中的應用實例下面以基于AutoCAD2007用VBA作二次開發(fā)的窗體繪圖為例，詳細介紹VBA開發(fā)中的技術(shù)要點。1、研究背景Cad在在實際應用中是促進科研成果和開發(fā)

4、轉(zhuǎn)化，實現(xiàn)設計自動化的關(guān)鍵技術(shù)，是提高工程和產(chǎn)品設計水平，縮短科研和產(chǎn)品開發(fā)周期提高勞動生產(chǎn)力的重要手段，是科研單位提高科研能力、企業(yè)提高創(chuàng)新和管理水平的重要條件。相對于手工繪圖，它的優(yōu)越性在其的準確、快捷、方便和強大的儲存。在近年來看，它的優(yōu)越性越來越得到廣大人士的認可。但是，精益求精是人們一直追求的目標，傳統(tǒng)的CAD在制圖巷道斷面圖的時候，就是直線，圓弧，點這些元素的組合，每次都得這樣重復，沒有一個窗體可以實現(xiàn)，輸入所需的參數(shù)，直接出圖的設計與開發(fā)。2、VBA二次開發(fā)的技術(shù)(窗體制做)要點(1)進入VBA開發(fā)環(huán)境啟動CADf工具-宏VisualBasic編輯器插入窗體在窗體上添加所需的標簽

5、、文本框、選擇按鈕控件、命令控件(2)具體代碼雙擊命令控件進行代碼編寫，具體代碼如下：PrivateSubCommandButton1_Click()DimPiAsDoublePi=3.14159265DimbAsDoubleb=Val(Txt_B.Text)DimhAsDoubleh=Val(Txt_H.Text)DimTop_Ang,Left_Ang,Right_AngAsDoubleToP_Ang=Val(Txt_Top.Text)/180*Pi判斷左傾和右傾，進行角度對換IfOptLeft.Value=TrueThenLeft_Ang=Val(Txt_Left.Text)/180*Pi

6、Right_Ang=Val(Txt_Right.Text)/180*PiElselfOptRight.Value=TrueThenRight_Ang=Val(Txt_Left.Text)/180*PiLeft_Ang=Val(Txt_Right.Text)/180*PiEndIf判斷完成DimHd(0To9)AsDoubleHd(0)=0:Hd(1)=0an(Top_Ang)/ (Tan(Right_Ang) +op_Ang)Hd(2)=b:Hd(3)=0Hd(4)=b-(h+b/2*Tan(Top_Ang)/(Tan(Right_Ang)+THd(5)=Tan(Right_Ang)*(h+b

7、/2*Tan(Top_Ang)Tan(Top_Ang)Hd(6)=(h-b/2*Tan(Top_Ang)/(Tan(Left_Ang)-Tan(THd(7)=(Tan(Left_Ang)*Hd(6)Hd(8)=0:Hd(9)=0定義對象變量，畫巷道DimPoly_ObjAsAcadLWPolylineSetPoly_Obj=ThisDrawing.ModelSpace.AddLightWeightPolyline(Hd)完成DimMirr_ObjAsAcadLWPolylineDimMirr1(0To2)AsDoubleDimMirr2(0To2)AsDouble判斷左傾和右傾，進行鏡像并刪除

8、原來的巷道IfOptRight.Value=TrueThenMirr1(0)=0:Mirr1(1)=0Mirr2(0)=0:Mirr2(1)=1SetMirr_Obj=Poly_Obj.Mirror(Mirr1,Mirr2)Poly_Obj.DeleteEndIf完成EndSubPrivateSubCommandButton2_Click()UnloadMeEndSubPrivateSubUserForm_Activate()OptLeft.Value=1OptRight.Value=0EndSub(1)運行在窗體中輸入所需參數(shù)如圖1所示圖1(4)運行結(jié)果如圖2所示三、結(jié)語調(diào)用VBA技術(shù)可實現(xiàn)對AutoCAD的控制極大地提高編程效率。充分利用面向?qū)ο蟮拈_發(fā)技術(shù)和AutoCAD的資源，可以進一步增強程序的功能和代碼的重用性?；赩BA設計的窗體繪圖，符合工程實際要求，操作方便、簡潔，為不規(guī)則巷道斷面設計全過程提供了一體化、標準化的解決方案。實踐證明，VBA二次開發(fā)技術(shù)將VBA的快速編程優(yōu)勢與AutoCAD的圖形功能完美結(jié)合，是一種行之有效、方便實用的設計方法。參考文獻：1林在康，等.采礦AotoCAD2006入門與提高.北京.中國礦業(yè)大學出版社，2005.