井下巷道剖面繪制程序介紹

礦山測量工作是礦山生產(chǎn)建設(shè)的重要環(huán)節(jié)，也是礦山安全、生產(chǎn)、改造和編制長遠發(fā)展規(guī)劃等各項工作的基礎(chǔ)，繪制井下剖面圖，測量人員計算往往采用先繪制格網(wǎng)，然后逐點輸入，本項目通過CAD中的宏程序，通過批量展點，一次成圖，實現(xiàn)了電腦自動繪圖，極大減輕了測量人員的勞動強度，提高了勞動效率。

一、準備工作

由于程序是在cad環(huán)境下開發(fā)的vba程序，所以要注冊以下兩個控件，具體方法如下：

1、將下圖所示四個小東西放到C:WINDOWSsystem32目錄下，如果有則覆蓋

2、打開運行，分別輸入“regsvr32 comdlg32.ocx”和“regsvr32 msflxgrd.ocx”點擊確定，顯示注冊成功即可，如下圖：

二、加載程序

打開cad程序，工具——宏——加載工程，找到“繪制剖面.dvb”，打開就行了。

三、運行宏

跟剛才差不多一樣，工具——宏——宏，點擊“運行”，程序就開始運行了，見下圖

加載完還有一種運行方法，即在cad命令行輸入“-vbarun”回車，再輸入“繪制剖面”。

四、程序的操作

程序很簡單，填好四個參數(shù)，即“巷道名稱”、“巷道方位”、“橫向比例尺”、“縱向比例尺”，點擊，即可將井下測得的數(shù)據(jù)進行導入：

再點擊就能夠?qū)崿F(xiàn)自動成圖了。在本圖中，測點、點位高、點之距，累計距離、坡度比等數(shù)據(jù)一目了然。

五、注意事項

1、數(shù)據(jù)的格式為：

點號，X坐標，Y坐標，頂板高程，底板高程

2、txt數(shù)據(jù)文件中前后不能有空格

完成單位：內(nèi)蒙古鄂爾多斯永煤礦業(yè)投資有限公司

成果類別：小發(fā)明 獲獎等級：二等獎