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

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

關(guān)鍵詞：AutoCAD；VBA；二次開發(fā)；礦山測量

中圖分類號： O434.19 文獻(xiàn)標(biāo)識碼： A

1關(guān)于AutoCAD、 VBA

1.1介紹AutoCAD、VBA

AutoCAD（Auto Computer Aided Design）是美國Autodesk公司首次于1982年研究開發(fā)的計算機(jī)輔助設(shè)計軟件，是目前國際上應(yīng)用最流行的繪圖工具，功能全面，操作穩(wěn)定，普適性強(qiáng)，廣泛用于二維繪圖、詳細(xì)繪制，深受各行各業(yè)設(shè)計者和工程技術(shù)人員的喜愛。與此同時，高普適性也對應(yīng)著AutoCAD另一大特點(diǎn)：開放的結(jié)構(gòu)體系。這種開放體系，使得不同行業(yè)、專業(yè)根據(jù)自身的特點(diǎn)能夠?qū)ζ溥M(jìn)行Autodesk二次開發(fā)，可以說AutoCAD的普適性為其二次開發(fā)提供了必要條件，從而也彌補(bǔ)了其專業(yè)針對性能不強(qiáng)的弱點(diǎn)。

從AutoCAD R14.01版開始，Autodesk在AutoCAD中加入了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對象之間的聯(lián)系，在AutoCAD和Visual Basic之間搭建起起了一座橋梁，將其完美的融合在一起，創(chuàng)造出符合用戶要求的程序，形成新的功能性強(qiáng)、靈活性高的軟件。

1.2利用VBA對AutoCAD進(jìn)行二次開發(fā)的優(yōu)點(diǎn)

VBA與其他AutoCAD二次開發(fā)技術(shù)相比，優(yōu)點(diǎn)有很多：

VB語言基礎(chǔ)廣泛。作為世界上使用人數(shù)最多的計算機(jī)編程語言，VB有非常堅實(shí)的語言基礎(chǔ)，編程環(huán)境相對于其他二次開發(fā)技術(shù)更容易學(xué)習(xí)和使用。

嵌入式與獨(dú)立性并舉。在二次開發(fā)中，VBA以AutoCAD軟件為依托，但并不是所有的應(yīng)用程序都要與AutoCAD進(jìn)行交互，體現(xiàn)了VBA的靈活性。

運(yùn)行速度快而穩(wěn)定。當(dāng)VBA與AutoCAD在同一進(jìn)程空間運(yùn)行時，運(yùn)行速度要比其他二次開發(fā)語言應(yīng)用程序快，運(yùn)行也更加穩(wěn)定。

2礦山測量對AutoCAD二次開發(fā)的需求

2.1礦山測量的現(xiàn)狀

礦山測量人員在井下進(jìn)行外業(yè)工作時，由于受到井下不利環(huán)境、條件與人員配置的限制，數(shù)字化儀器通用性并不高。使用光學(xué)儀器作業(yè)往往需要測量大量的基本數(shù)據(jù)，如角度、距離。在傳統(tǒng)測量內(nèi)業(yè)工藝流程中，先要將原始數(shù)據(jù)進(jìn)行處理，然后將處理好的數(shù)據(jù)準(zhǔn)確、合理的體現(xiàn)在圖紙上或計算機(jī)上。在繪圖過程中，基本會重復(fù)相同的工作，如繪制巷道、采場平面圖：要將測得的同一方位上的支距點(diǎn)（特征點(diǎn)）在不同的比例尺下進(jìn)行逐一展繪、分別成圖，無論是手工繪圖還是普通的CAD制圖，都是一項重復(fù)率極高、效率極低的工作，而且極容易隨著制圖人員的疏漏和疲勞產(chǎn)生誤差，甚至是錯誤。

通過以上對礦山測量內(nèi)外業(yè)工作的描述可見，礦山測量的硬件設(shè)施難以有實(shí)質(zhì)性的提升，但是內(nèi)業(yè)處理仍有很大的操作空間。如果我們將AutoCAD進(jìn)行二次開發(fā)，將傳統(tǒng)數(shù)據(jù)處理與制圖這兩項“脫節(jié)”的工作有機(jī)結(jié)合在一起，將會大大提升工作效率和內(nèi)業(yè)精度。

2.2開發(fā)方法

二次開發(fā)主要方法是把原始的測量數(shù)據(jù)進(jìn)行專業(yè)分類，將不同種類的數(shù)據(jù)分別傳遞給不同的參數(shù)（相同種類傳遞相同參數(shù)），再根據(jù)測量人員的要求，用相關(guān)的公式、方法將參數(shù)進(jìn)行專業(yè)性整合，當(dāng)參數(shù)改變時（即不同種類的觀測值、觀測量），程序仍然按照預(yù)定的表達(dá)式來執(zhí)行，通過人機(jī)交互，完成繪圖，從而實(shí)現(xiàn)變量化設(shè)計，自動化制圖。

2.3程序界面

如圖1所示，進(jìn)入VBA二次開發(fā)程序界面之后，在編寫代碼之前，要根據(jù)該程序所需的變量、參數(shù)，來確定都要在界面當(dāng)中添加哪些控件。

2.4代碼部分

此處將部分 “圖2繪制采場、聯(lián)絡(luò)道平面圖程序設(shè)計”的代碼進(jìn)行注釋，對照示意圖來進(jìn)行AutoCAD VBA二次開發(fā)的解析：

Private Sub CommandButton7_Click()‘計算羅盤導(dǎo)線點(diǎn)坐標(biāo)

Dim b2, b3, b4, b5, b6, b7 As Double‘定義過程變量的數(shù)據(jù)類型

Const pm As Double = 3.141592653‘定義常量

If tt1 = "" Then‘IF條件語句，該text文本框?yàn)榭諆A角為0

tt1 = 0

End If

b1 = tx3 - 7.5‘井下與井上磁方位角差值

b2 = (b1) / 180 * pm‘將角度進(jìn)行弧度化

圖1 繪制采場、聯(lián)絡(luò)道平面圖程序設(shè)計

b3 = tx4 * (Cos(tt1 / 180 * pm))‘計算羅盤導(dǎo)線長度

b4 = tx1

b6 = b3 * Sin(b2)

b7 = b3 * Cos(b2)

f1 = Val(CInt(Right(Fix((b4 + b6) * 10000), 1) / 10)) / 1000 + Val(Left(Fix((b4 + b6) * 10000), 7)) / 1000‘計算未知點(diǎn)坐標(biāo)

f2 = Val(CInt(Right(Fix((b5 + b7) * 10000), 1) / 10)) / 1000 + Val(Left(Fix((b5 + b7) * 10000), 7)) / 1000

tx5 = f1‘將已求出的坐標(biāo)值體現(xiàn)在文本框中

End Sub

Private Sub CommandButton8_Click()‘展羅盤導(dǎo)線點(diǎn)

Dim lpp, lpdx As AcadPoint

Dim lpposition(0 To 2) As Double

Dim lpd(0 To 2) As Double

lpposition(0) = Val(tx1)‘三維坐標(biāo)賦值

lpposition(1) = Val(tx2)

lpposition(2) = 0

Set lpp = ThisDrawing.ModelSpace.AddPoint(lpposition) ‘將點(diǎn)展入到AutoCAD中

lpd(0) = Val(tx5)

lpd(1) = Val(tx6)

lpd(2) = 0

Set lpdx = ThisDrawing.ModelSpace.AddPoint(lpd)

End Sub

Private Sub CommandButton15_Click() ‘計算支距點(diǎn)坐標(biāo)

Dim lpzhu, lpz, lpy, zdz, zdy, l6, r6, l61, r61, lpzy, lpzx, lpry, lprx, msg As Double

If tt1 <> 0 Then

msg = MsgBox("注意，傾角不為0時主尺沒有鋪在地面，請認(rèn)真檢查數(shù)據(jù)，謝謝", 0 + vbInformation)

End If

Const hlp As Double = 3.141592653

lpzhu = tx7 ‘將測得的主尺位置、對應(yīng)的左右支距賦值

lpz = tx8

If lpzhu = 0 Then

zdz = tx1

zdy = tx2

End If

If lpzhu <> 0 Then‘計算主尺不為0時，主尺點(diǎn)坐標(biāo)

zdz = tx1 + lpzhu * Sin(b1 / 180 * hlp)

End If

lpzy = lpz * Sin(l61)‘計算坐標(biāo)增量與支距點(diǎn)坐標(biāo)

lpzx = lpz * Cos(l61)

If tx8 = "" Or tx8 = 0 Then

tx10 = ""

If tx9 = "" Or tx9 = 0 Then

tx12 = ""

End If

End Sub

Private Sub CommandButton9_Click()‘展左支距點(diǎn)

Dim lpzz(0 To 2) As Double

Dim lpointzuozhi As AcadPoint

lpzz(0) = Val(tx10)

lpzz(1) = Val(tx11)

lpzz(2) = 0

Set lpointzuozhi = ThisDrawing.ModelSpace.AddPoint(lpzz)

End Sub

3結(jié)束語

使用VBA對AutoCAD進(jìn)行二次開發(fā)，是今后提高礦山測量人員繪圖效率、精度，減少工作量的重要手段，它很好的補(bǔ)充了AutoCAD的制圖功能。到目前為止，此種方法在礦山測量領(lǐng)域應(yīng)用并不廣泛，仍有很大空間，是值得投入與研究的。希望能有更多的工程技術(shù)人員加入到二次開發(fā)的行列中，讓AutoCAD軟件在使用上更加得心應(yīng)手，為礦山數(shù)字化做出自己的貢獻(xiàn)。

參考文獻(xiàn)：

[1] 王圍,李波,鄒元平.AutoCAD二次開發(fā)中的若干問題探析[J].電腦知識與技術(shù),2012,08 (1):163-165.

[2] 張帆，鄭立楷，王華杰.AutoCAD VBA開發(fā)精彩實(shí)例教程[M].北京:清華大學(xué)出版社,2004.

[3] 李琳. 基于VBA的AutoCAD二次開發(fā)[J].硅谷,2011,(18):191.

[4] 孫運(yùn)平,高玉春. AutoCAD二次開發(fā)及應(yīng)用研究[J].商場現(xiàn)代化,2012,(679):102.

作者簡介：王鵬霖，1988年生，大學(xué)本科，籍貫：山東省五蓮縣，測量助理工程師，主要從事礦山測量工作