1、AutoCAD二次開發技術VBA在窗體繪圖中的應用地質10-1班何有AutoCAD二次開發技術VBA在窗體繪圖中的應用何有（黑龍江科技大學地質10-1班）摘要：根據目前提供的AutoCAD二次開發工具,結合VB面向對象編程的強大功能，介紹了AutoCAD進行二次開發的一股原理，著重分析了VB對AutoCAD進行二次開發的實現途徑和具體方法，并且結合實際要求，以窗體繪制巷道斷面為例，說明了VB對AutoCAD二次開發完成窗體化繪圖的優點及實用性。關鍵詞：VBA;AutoCAD;二次開發一、引言AutoCAD二次開發主要包括用戶接口的設計和開發，標準元件庫的建立，工程圖紙的生成，接口文件的生成，其

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

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

4、轉化，實現設計自動化的關鍵技術，是提高工程和產品設計水平，縮短科研和產品開發周期提高勞動生產力的重要手段，是科研單位提高科研能力、企業提高創新和管理水平的重要條件。相對于手工繪圖，它的優越性在其的準確、快捷、方便和強大的儲存。在近年來看，它的優越性越來越得到廣大人士的認可。但是，精益求精是人們一直追求的目標，傳統的CAD在制圖巷道斷面圖的時候，就是直線，圓弧，點這些元素的組合，每次都得這樣重復，沒有一個窗體可以實現，輸入所需的參數，直接出圖的設計與開發。2、VBA二次開發的技術(窗體制做)要點(1)進入VBA開發環境啟動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)運行在窗體中輸入所需參數如圖1所示圖1(4)運行結果如圖2所示三、結語調用VBA技術可實現對AutoCAD的控制極大地提高編程效率。充分利用面向對象的開發技術和AutoCAD的資源，可以進一步增強程序的功能和代碼的重用性。基于VBA設計的窗體繪圖，符合工程實際要求，操作方便、簡潔，為不規則巷道斷面設計全過程提供了一體化、標準化的解決方案。實踐證明，VBA二次開發技術將VBA的快速編程優勢與AutoCAD的圖形功能完美結合，是一種行之有效、方便實用的設計方法。參考文獻：1林在康，等.采礦AotoCAD2006入門與提高.北京.中國礦業大學出版社，2005.