井下巷道剖面绘制程序介绍

井下巷道剖面绘制程序介绍

矿山测量工作是矿山生产建设的重要环节，也是矿山安全、生产、改造和编制长远发展规划等各项工作的基础，绘制井下剖面图，测量人员计算往往采用先绘制格网，然后逐点输入，本项目通过CAD中的宏程序，通过批量展点，一次成图，实现了电脑自动绘图，极大减轻了测量人员的劳动强度，提高了劳动效率。

一、准备工作

由于程序是在cad环境下开发的vba程序，所以要注册以下两个控件，具体方法如下：

1、将下图所示四个小东西放到C:WINDOWSsystem32目录下，如果有则覆盖

2、打开运行，分别输入“regsvr32 comdlg32.ocx”和“regsvr32 msflxgrd.ocx”点击确定，显示注册成功即可，如下图：

二、加载程序

打开cad程序，工具——宏——加载工程，找到“绘制剖面.dvb”，打开就行了。

三、运行宏

跟刚才差不多一样，工具——宏——宏，点击“运行”，程序就开始运行了，见下图

加载完还有一种运行方法，即在cad命令行输入“-vbarun”回车，再输入“绘制剖面”。

四、程序的操作

程序很简单，填好四个参数，即“巷道名称”、“巷道方位”、“横向比例尺”、“纵向比例尺”，点击，即可将井下测得的数据进行导入：

再点击就能够实现自动成图了。在本图中，测点、点位高、点之距，累计距离、坡度比等数据一目了然。

五、注意事项

1、数据的格式为：

点号，X坐标，Y坐标，顶板高程，底板高程

2、txt数据文件中前后不能有空格

完成单位：内蒙古鄂尔多斯永煤矿业投资有限公司

成果类别：小发明 获奖等级：二等奖