井下大巷控制测量中的ExcelVBA应用开发.pdfVIP

2013年第3期 中州煤炭 总第207期 井下大巷控制测量 中的ExcelVBA应用开发 张群超 ，禄 占磊 ，陈凯华。 (1．河南省新郑煤 电有限责任公司，河南 新郑 451184；2．博兴县 国土资源局，山东 滨州 256500) 摘要 ：在工程量及数测量数据处理过程 中，常常需要处理计算大量的数据 ，手工计算费时费力、效率不高。为 了克服上述 困难 ，运用 ExcelVBA编写了导线测量 电子计算簿。介绍 了利用 ExcelVBA编写程序 ，以便更快 捷地进行巷道掘进方 向的中线标定，且该算法在新郑煤 电公司井下大巷控制测量中得到了使用。实践证明， 此 电子簿不但可以提高效率 ，还可以对原始测绘数据进行有效 的管理 。 关键词 ：巷道控制测量 ；Excel；VBA；二次开发 中图分类号：TDI73 文献标志码 ：B 文章编号 ：l003—0506(2013)03—0021—02 河南省新郑煤 电有 限责任公司为河南省 “十 巷道布设 ，闭 (附)合在基本控制导线上 ，作为采 区 五”、“十一五”重点建设项 目，是 由郑煤集 团、神火 巷道平面测量的控制 ，称为采 区控制 导线，它分为 集团、河南省煤田地质局共同出资建设 的一座现代 15”和 30”两级 。 化矿井 ，设计生产能力300万t／a。主采二．煤 ，兼采 1．2 巷道高程控制测量 二 煤，井田东西走 向长 13．5km，南北倾斜宽3～4 巷道高程测量通常分为井下水准测量和井下三 km，工作面皆为贯通导线距离超过4km的大型工 角高程测量。当巷道 的坡度小于 8。时，用水准测 作面 ，控制测量站数繁多。 量 ；坡度大于8。时，用三角高程测量。 巷道控制测量 中常常需要处理计算大量 的数 井下高程点的设置方法与导线点雷同，无论永 据 ，人员配置却相对匮乏，若采用手工计算 的方式 ， 久点或临时点，都可 以设在巷道顶板 、底板或两帮 不但费时费力且准确度不高。在工程量及数测量数 上。井下高程点也可以和导线点共用 ，永久水准点 据处理过程中，Excel经常是测量技术人员利用的工 每隔300—800m设置 1组 ，每组埋设 2个以上水准 具 。笔者利用 Excel的强大功能，总结 出了用计算 点 ，两点间距以30～80m为宜。 机计算 导线测量数据 的可行方法 ，并利用 Excel 2 程序设计 目的 VBA的逻辑语句编制 了应用程序 ，该程序的应用可 将测量人员从手工计算工作环节中解放 出来 。 煤矿施工测量中使用最多、计算最为复杂 的是 巷道掘进方向的中线标定 ，即中线控制点的点坐标 1 巷道控制测量概述 和中线方位角 。该应用程序的主要 目标就是计算巷 1．1 巷道平面控制测量 道中线测点的坐标方位角及参数。 在一般矿井 中，井下平面控制测量分为两类 ：一 3 ExcelVBA程序设计 类导线精度较高 ，沿主要巷道 (包括斜井、暗斜井 、 平硐 、运输巷道 、矿井总回风巷道 、主要采区上下山、 在矿 山测量中，经常需要计算角度的三角函数 石门等)布设 ，称为基本控制导线 ，按测角 中误差， 值，角度的换算是60进制的，Excel表格本身的公式 又分为 7”和 15”两级；另一类导线精度较低 ，沿次要 无法直接计算60进制角度 的三角函数 ，如果使用弧