利用vba對autocad二次開發(fā)在礦山測量中的應(yīng)用

1、<p>　　利用VBA對AutoCAD二次開發(fā)在礦山測量中的應(yīng)用</p><p>　　摘要：本文通過對AutoCAD繪圖軟件、二次開發(fā)語言VBA的介紹，以及分析礦山測量在制圖時對AutoCAD的需求，闡述利用VBA對AutoCAD二次開發(fā)在礦山測量中的應(yīng)用。 </p><p>　　關(guān)鍵詞：AutoCAD；VBA；二次開發(fā)；礦山測量 </p><p>　　中

2、圖分類號： O434.19 文獻(xiàn)標(biāo)識碼： A </p><p>　　1關(guān)于AutoCAD、 VBA </p><p>　　1.1介紹AutoCAD、VBA </p><p>　　AutoCAD（Auto Computer Aided Design）是美國Autodesk公司首次于1982年研究開發(fā)的計算機(jī)輔助設(shè)計軟件，是目前國際上應(yīng)用最流行的繪圖工具，功能全面，操作

3、穩(wěn)定，普適性強(qiáng)，廣泛用于二維繪圖、詳細(xì)繪制，深受各行各業(yè)設(shè)計者和工程技術(shù)人員的喜愛。與此同時，高普適性也對應(yīng)著AutoCAD另一大特點：開放的結(jié)構(gòu)體系。這種開放體系，使得不同行業(yè)、專業(yè)根據(jù)自身的特點能夠?qū)ζ溥M(jìn)行Autodesk二次開發(fā)，可以說AutoCAD的普適性為其二次開發(fā)提供了必要條件，從而也彌補(bǔ)了其專業(yè)針對性能不強(qiáng)的弱點。 </p><p>　　從AutoCAD R14.01版開始，Autodesk在Aut

4、oCAD中加入了VBA（Visual Basic for Applications），作為AutoCAD的一種二次開發(fā)工具。VBA是一種完全面向?qū)ο篌w系結(jié)構(gòu)的編程語言，是Visual Basic的一種宏語言，與VB有著相似的語言結(jié)構(gòu)和開發(fā)環(huán)境。在VBA中，AutoCAD通過AetiveX提供了一個溝通外部世界的機(jī)制，使得AutoCAD通過不同的編程語言和環(huán)境進(jìn)行二次開發(fā)。可見，VBA是通過ActiveX接口建立與AutoCAD對象之間的

5、聯(lián)系，在AutoCAD和Visual Basic之間搭建起起了一座橋梁，將其完美的融合在一起，創(chuàng)造出符合用戶要求的程序，形成新的功能性強(qiáng)、靈活性高的軟件。 </p><p>　　1.2利用VBA對AutoCAD進(jìn)行二次開發(fā)的優(yōu)點 </p><p>　　VBA與其他AutoCAD二次開發(fā)技術(shù)相比，優(yōu)點有很多： </p><p>　　VB語言基礎(chǔ)廣泛。作為世界上使用人數(shù)

6、最多的計算機(jī)編程語言，VB有非常堅實的語言基礎(chǔ)，編程環(huán)境相對于其他二次開發(fā)技術(shù)更容易學(xué)習(xí)和使用。 </p><p>　　嵌入式與獨立性并舉。在二次開發(fā)中，VBA以AutoCAD軟件為依托，但并不是所有的應(yīng)用程序都要與AutoCAD進(jìn)行交互，體現(xiàn)了VBA的靈活性。 </p><p>　　運行速度快而穩(wěn)定。當(dāng)VBA與AutoCAD在同一進(jìn)程空間運行時，運行速度要比其他二次開發(fā)語言應(yīng)用程序快，運

7、行也更加穩(wěn)定。 </p><p>　　2礦山測量對AutoCAD二次開發(fā)的需求 </p><p>　　2.1礦山測量的現(xiàn)狀 </p><p>　　礦山測量人員在井下進(jìn)行外業(yè)工作時，由于受到井下不利環(huán)境、條件與人員配置的限制，數(shù)字化儀器通用性并不高。使用光學(xué)儀器作業(yè)往往需要測量大量的基本數(shù)據(jù)，如角度、距離。在傳統(tǒng)測量內(nèi)業(yè)工藝流程中，先要將原始數(shù)據(jù)進(jìn)行處理，然后將處理好

8、的數(shù)據(jù)準(zhǔn)確、合理的體現(xiàn)在圖紙上或計算機(jī)上。在繪圖過程中，基本會重復(fù)相同的工作，如繪制巷道、采場平面圖：要將測得的同一方位上的支距點（特征點）在不同的比例尺下進(jìn)行逐一展繪、分別成圖，無論是手工繪圖還是普通的CAD制圖，都是一項重復(fù)率極高、效率極低的工作，而且極容易隨著制圖人員的疏漏和疲勞產(chǎn)生誤差，甚至是錯誤。 </p><p>　　通過以上對礦山測量內(nèi)外業(yè)工作的描述可見，礦山測量的硬件設(shè)施難以有實質(zhì)性的提升，但是內(nèi)

9、業(yè)處理仍有很大的操作空間。如果我們將AutoCAD進(jìn)行二次開發(fā)，將傳統(tǒng)數(shù)據(jù)處理與制圖這兩項“脫節(jié)”的工作有機(jī)結(jié)合在一起，將會大大提升工作效率和內(nèi)業(yè)精度。 </p><p><b>　　2.2開發(fā)方法 </b></p><p>　　二次開發(fā)主要方法是把原始的測量數(shù)據(jù)進(jìn)行專業(yè)分類，將不同種類的數(shù)據(jù)分別傳遞給不同的參數(shù)（相同種類傳遞相同參數(shù)），再根據(jù)測量人員的要求，用相關(guān)的

10、公式、方法將參數(shù)進(jìn)行專業(yè)性整合，當(dāng)參數(shù)改變時（即不同種類的觀測值、觀測量），程序仍然按照預(yù)定的表達(dá)式來執(zhí)行，通過人機(jī)交互，完成繪圖，從而實現(xiàn)變量化設(shè)計，自動化制圖。 </p><p><b>　　2.3程序界面 </b></p><p>　　如圖1所示，進(jìn)入VBA二次開發(fā)程序界面之后，在編寫代碼之前，要根據(jù)該程序所需的變量、參數(shù)，來確定都要在界面當(dāng)中添加哪些控件。 &

11、lt;/p><p><b>　　2.4代碼部分 </b></p><p>　　此處將部分 “圖2繪制采場、聯(lián)絡(luò)道平面圖程序設(shè)計”的代碼進(jìn)行注釋，對照示意圖來進(jìn)行AutoCAD VBA二次開發(fā)的解析： </p><p>　　Private Sub CommandButton7_Click()‘計算羅盤導(dǎo)線點坐標(biāo) </p><p&g

12、t;　　Dim b2, b3, b4, b5, b6, b7 As Double‘定義過程變量的數(shù)據(jù)類型 </p><p>　　Const pm As Double = 3.141592653‘定義常量 </p><p>　　If tt1 = "" Then‘IF條件語句，該text文本框為空傾角為0 </p><p><b>　　tt

13、1 = 0 </b></p><p><b>　　End If </b></p><p>　　b1 = tx3 - 7.5‘井下與井上磁方位角差值 </p><p>　　b2 = (b1) / 180 * pm‘將角度進(jìn)行弧度化 </p><p>　　圖1 繪制采場、聯(lián)絡(luò)道平面圖程序設(shè)計 </p>

14、<p>　　b3 = tx4 * (Cos(tt1 / 180 * pm))‘計算羅盤導(dǎo)線長度 </p><p><b>　　b4 = tx1 </b></p><p>　　b6 = b3 * Sin(b2) </p><p>　　b7 = b3 * Cos(b2) </p><p>　　f1 = Val(

15、CInt(Right(Fix((b4 + b6) * 10000), 1) / 10)) / 1000 + Val(Left(Fix((b4 + b6) * 10000), 7)) / 1000‘計算未知點坐標(biāo) </p><p>　　f2 = Val(CInt(Right(Fix((b5 + b7) * 10000), 1) / 10)) / 1000 + Val(Left(Fix((b5 + b7) * 100

16、00), 7)) / 1000 </p><p>　　tx5 = f1‘將已求出的坐標(biāo)值體現(xiàn)在文本框中 </p><p><b>　　End Sub </b></p><p>　　Private Sub CommandButton8_Click()‘展羅盤導(dǎo)線點 </p><p>　　Dim lpp, lpdx As A

17、cadPoint </p><p>　　Dim lpposition(0 To 2) As Double </p><p>　　Dim lpd(0 To 2) As Double </p><p>　　lpposition(0) = Val(tx1)‘三維坐標(biāo)賦值 </p><p>　　lpposition(1) = Val(tx2) <

18、;/p><p>　　lpposition(2) = 0 </p><p>　　Set lpp = ThisDrawing.ModelSpace.AddPoint(lpposition) ‘將點展入到AutoCAD中 </p><p>　　lpd(0) = Val(tx5) </p><p>　　lpd(1) = Val(tx6) </p&g

19、t;<p>　　lpd(2) = 0 </p><p>　　Set lpdx = ThisDrawing.ModelSpace.AddPoint(lpd) </p><p><b>　　End Sub </b></p><p>　　Private Sub CommandButton15_Click() ‘計算支距點坐標(biāo) </

20、p><p>　　Dim lpzhu, lpz, lpy, zdz, zdy, l6, r6, l61, r61, lpzy, lpzx, lpry, lprx, msg As Double </p><p>　　If tt1 0 Then </p><p>　　msg = MsgBox("注意，傾角不為0時主尺沒有鋪在地面，請認(rèn)真檢查數(shù)據(jù)，謝謝",

21、 0 + vbInformation) </p><p><b>　　End If </b></p><p>　　Const hlp As Double = 3.141592653 </p><p>　　lpzhu = tx7 ‘將測得的主尺位置、對應(yīng)的左右支距賦值 </p><p>　　lpz = tx8 </p

22、><p>　　If lpzhu = 0 Then </p><p>　　zdz = tx1 </p><p>　　zdy = tx2 </p><p><b>　　End If </b></p><p>　　If lpzhu 0 Then‘計算主尺不為0時，主尺點坐標(biāo) </p><

23、;p>　　zdz = tx1 + lpzhu * Sin(b1 / 180 * hlp) </p><p><b>　　End If </b></p><p>　　lpzy = lpz * Sin(l61)‘計算坐標(biāo)增量與支距點坐標(biāo) </p><p>　　lpzx = lpz * Cos(l61) </p><p>

24、;　　If tx8 = "" Or tx8 = 0 Then </p><p>　　tx10 = "" </p><p>　　If tx9 = "" Or tx9 = 0 Then </p><p>　　tx12 = "" </p><p><b>　　

25、End If </b></p><p><b>　　End Sub </b></p><p>　　Private Sub CommandButton9_Click()‘展左支距點 </p><p>　　Dim lpzz(0 To 2) As Double </p><p>　　Dim lpointzuozhi

26、 As AcadPoint </p><p>　　lpzz(0) = Val(tx10) </p><p>　　lpzz(1) = Val(tx11) </p><p>　　lpzz(2) = 0 </p><p>　　Set lpointzuozhi = ThisDrawing.ModelSpace.AddPoint(lpzz) </

27、p><p><b>　　End Sub </b></p><p><b>　　3結(jié)束語 </b></p><p>　　使用VBA對AutoCAD進(jìn)行二次開發(fā)，是今后提高礦山測量人員繪圖效率、精度，減少工作量的重要手段，它很好的補(bǔ)充了AutoCAD的制圖功能。到目前為止，此種方法在礦山測量領(lǐng)域應(yīng)用并不廣泛，仍有很大空間，是值得投

28、入與研究的。希望能有更多的工程技術(shù)人員加入到二次開發(fā)的行列中，讓AutoCAD軟件在使用上更加得心應(yīng)手，為礦山數(shù)字化做出自己的貢獻(xiàn)。 </p><p><b>　　參考文獻(xiàn)： </b></p><p>　　[1] 王圍,李波,鄒元平.AutoCAD二次開發(fā)中的若干問題探析[J].電腦知識與技術(shù),2012,08 (1):163-165. </p><

29、p>　　[2] 張帆，鄭立楷，王華杰.AutoCAD VBA開發(fā)精彩實例教程[M].北京:清華大學(xué)出版社,2004. </p><p>　　[3] 李琳. 基于VBA的AutoCAD二次開發(fā)[J].硅谷,2011,(18):191. </p><p>　　[4] 孫運平,高玉春. AutoCAD二次開發(fā)及應(yīng)用研究[J].商場現(xiàn)代化,2012,(679):102. </p>