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

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

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

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

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

5、、文本框、選擇按鈕控件、命令控件(2)具體代碼雙擊命令控件進(jìn)行代碼編寫(xiě)，具體代碼如下：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判斷左傾和右傾，進(jìn)行角度對(duì)換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定義對(duì)象變量，畫(huà)巷道DimPoly_ObjAsAcadLWPolylineSetPoly_Obj=ThisDrawing.ModelSpace.AddLightWeightPolyline(Hd)完成DimMirr_ObjAsAcadLWPolylineDimMirr1(0To2)AsDoubleDimMirr2(0To2)AsDouble判斷左傾和右傾，進(jìn)行鏡像并刪除

8、原來(lái)的巷道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)運(yùn)行在窗體中輸入所需參數(shù)如圖1所示圖1(4)運(yùn)行結(jié)果如圖2所示三、結(jié)語(yǔ)調(diào)用VBA技術(shù)可實(shí)現(xiàn)對(duì)AutoCAD的控制極大地提高編程效率。充分利用面向?qū)ο蟮拈_(kāi)發(fā)技術(shù)和AutoCAD的資源，可以進(jìn)一步增強(qiáng)程序的功能和代碼的重用性?；赩BA設(shè)計(jì)的窗體繪圖，符合工程實(shí)際要求，操作方便、簡(jiǎn)潔，為不規(guī)則巷道斷面設(shè)計(jì)全過(guò)程提供了一體化、標(biāo)準(zhǔn)化的解決方案。實(shí)踐證明，VBA二次開(kāi)發(fā)技術(shù)將VBA的快速編程優(yōu)勢(shì)與AutoCAD的圖形功能完美結(jié)合，是一種行之有效、方便實(shí)用的設(shè)計(jì)方法。參考文獻(xiàn)：1林在康，等.采礦AotoCAD2006入門與提高.北京.中國(guó)礦業(yè)大學(xué)出版社，2005.