基于VBA語言在田莊煤礦3603運(yùn)輸巷貫通測(cè)量誤差預(yù)計(jì)中的應(yīng)用及推廣

　　本文以臨礦集團(tuán)田莊煤礦3603運(yùn)輸巷貫通為實(shí)例，3603運(yùn)輸巷的具體含義是運(yùn)輸巷位于第16煤層，第3采區(qū)，03是工作面的順序號(hào)。通過利用數(shù)學(xué)分析方法建立誤差方程，首先利用AutoCAD用鼠標(biāo)捕捉獲取導(dǎo)線點(diǎn)和貫通相遇點(diǎn)K，通過使用VBA語言開發(fā)誤差預(yù)計(jì)功能，從而得到貫通相遇點(diǎn)K在重要方向上的誤差預(yù)計(jì)。對(duì)以往貫通測(cè)量誤差加以補(bǔ)充和完善誤差，最大限度地提高礦井貫通測(cè)量精度，為礦山建設(shè)的貫通設(shè)計(jì)提供可行性方法與理論依據(jù)。

　　本文研究的主要內(nèi)容就是基于VBA語言加載所需的程序后，計(jì)算出巷道貫通相遇點(diǎn)在重要方向上的偏差值。

　　打開巷道貫通CAD圖，加載貫通誤差預(yù)計(jì)VBA應(yīng)用程序，點(diǎn)擊工具欄中的“工具”宏菜單下的“加載工程”，打開 貫通誤差預(yù)計(jì)VBA工程，則誤差預(yù)計(jì)程序自動(dòng)加載到CAD中。若AutoCAD提示 ‘禁用宏可能保證安全’ 對(duì)話框，點(diǎn)擊‘啟用宏’即可。

　　依次打開“工具”宏菜單下的“Visual Basic編輯器”命令，或按 Alt+F11快捷鍵，就可以看到VB的集成開發(fā)環(huán)境IDE界面(Intergrated Development Environment )，點(diǎn)擊菜單欄中運(yùn)行中“運(yùn)行子程序/用戶窗體”子菜單，出現(xiàn)可以選擇貫通誤差預(yù)計(jì)子程序的加載宏對(duì)話框，依次選擇數(shù)據(jù)輸入→測(cè)角誤差計(jì)算→量邊誤差計(jì)算→水平重要方向誤差計(jì)算子程序，從而實(shí)現(xiàn)貫通誤差預(yù)計(jì)的自動(dòng)化。

　　投稿人：侯曰鵬