EXCEL VBA在保护煤柱留设中应用.pdfVIP

第2期 矿 山 测 量 No．2 2014年 4月 MINE SURVEYING Apr．2014 doi：10．3969／j．issn．1001—358X．2014．02．12 EXCELVBA在保护煤柱留设中应用 才 向军 (唐山开滦林西矿业有限公司，河北 唐山 063104) 摘要：文中用ExcelVBA编写了角度计算、垂线长度计算、两条直线交点坐标等 函数 ，并根据垂线法 留设保护煤柱相关公式；用Excel编制 了垂线法留设煤柱计算表 ；复制垂线法留设煤柱计算表相关 数据到AutoCAD中 自动绘制煤柱线。在实践 中得到了较好的应用，并取得很好的效果。 关键词 ：Excel；VBA；垂线法；保护煤柱 ；AutoCAD 中图分类号 ：P209 文献标识码 ：B 文章编号 ：1001—358X(2014)02—0034—04 留设合理的保护煤柱可以使地面建 (构)筑物免 围护带边界与煤层走向平行时 ： 受地下开采的影响。保护煤柱一般 已经在建矿初期 q=( 一h)co 设计中留设 ，但随着勘探程度 的增加 (煤层底板等高 1：(H—h)cotT 线调整 、冲积层厚度调整)；地面建 (构)筑物重要性 、 围护带边界与煤层走 向垂直时为走 向方 向垂线 用途、平面形状变化 ；岩层移动参数的调整 ，保护煤 长度 ： 柱也应做相应 的修改。保护煤柱计算工作量大 ，计 K=(H—h)cot8 算完成后再根据相关数据绘制到AutoCAD图中，步 式中：y、卢和6——分别为上山、下山、走向方向的岩 骤多，易出错。用 ExcelVBA编写了角度计算、垂线 层移动角 ； ， 长度计算 、两条直线交点坐标等 函数，并根据垂线法 — — 围护带边界与煤层走 向线之 间所加 的锐 留设保护煤柱相关公式 ，用 Excel编制了垂线法留设 角； 煤柱计算表 ，复制垂线法 留设煤柱计算表相关数据 — — 煤层倾角 ； 到 AutoCAD中自动绘制煤柱线 。 日——煤层到地表的垂深。 1．2 函数 定制 1 数学模型及函数定义 打开 Excel，在菜单上依次点击 [工具][宏]一 1．1 数学模型 [VisualBasic编辑器 ]或按 Alt+FI1即进入 1．1．1 松散层保护边界 VBAIDE。 从围护带边界向外量取 s后确定松散层保护边 1．2．1 定角度相关函数 界 ，s的计算公式 ： 下面定义五个与角度有关的函数 ：FwJ函数为 S=h×cot()／ 已知两点坐标计算方位角 ，FwT函数为计算 已知方 式中：——松散层厚度 ；——松散层移动角。 位角顺时针转9O。后方位角 ，FWG函数为计算 已知 1．1．2 垂线长度 方位角逆时针转 90。后方位角 ，JJR函数为计算煤层 用垂线法设计与煤层走向斜交的受护对象保护 倾 向与围护带边界倾 向夹角 (锐角)，JJ函数为计算 煤柱时，煤柱在煤层上山方 向垂线长度 q，下山方 向