在CAD平台上二次开发储量核定程序.pdf

在CAD平台上二次开发储量核定程序 毕宇庆 山西晋城煤业集团古书院矿,山西 晋城 048000 摘要文中应用Visual lisp语言编制储量核定程序,用于底板等高线及储量计算图上自动标注储量 图例,并且能自动计算出各块段的面积及储量大小,替代了人工计算工作,提高了工作效率。 关键词 Visual lisp;储量;计算 中图分类号 TD17713 文献标识码B 文章编号 1001 - 358X2005 03 - 0058 - 02 生产矿井每年进行生产许可证的年检审核及资 源管理时,都离不开一项重要内容煤炭储量的核 查。这项工作涉及到表格、 图纸和文字说明部分,而 且计算量非常大。每当矿井盘区设计修改、 重新核 定储量、 编制衔接安排时,都需要重复在图上进行储 量的计算。在这种情况下,随着采掘工作图的填、 绘、 成图都由CAD平台完成,工程技术人员探讨通 过CAD内嵌的Visual Lisp语言编制储量计算程序, 达到快速查明储量分布、 填绘储量计算图的目的。 1 储量核定 矿产/资源储量估算以各煤层底板等高线及储 量计算图1 5000为依据,对井田范围内的各处块 段进行等级分类,并计算各块段的面积,然后估算储 量。资源/储量估算公式为资源/储量万t 面积 m 2 厚度m 视密度 t/m31 /10000 本地区视密度确定为 115 t/m 3。 就晋城煤层而言,井田内大部分地区地层倾角 平缓,一般均在15 以下,因此可以采用煤层的伪厚 度及煤层水平投影面积进行估算,对煤层倾角大于 15的情况,采用煤层的真厚度和斜面积进行估算, 两种情况下程序原理是一样的,本文没有对第二种 情况进行深入讨论。 在储量计算图上,还要在不同的块段内部标出 如图1所示的储量计算图例。 图1 储量计算图例 图中; 1为块段号和储量级别; 2为储量块段面 积 m 2 ; 3 为储量万t ; 4为储量计算利用厚度; 5 为煤层倾角。 大多数储量块段并非规则的多边形,传统的工 作方法用求积仪在图上求面积,或者把多边形划分 为一个个的小三角形分别求面积后累加。前者精度 不高,后者计算量大、 速度慢而且很辛苦。用Vlisp 程序语言能实现省时快捷填图的要求。 2 设计思路及程序清单 程序设计的思路为在1 5000采掘图上1dwg 文件勾出块段或工作面的形状,输入块段名、 储 量级别、 煤厚、 煤的视密度后,选择块段内空白位置 点击,自动标出一个储量计算图例,并且自动在图例 内标注块段名称、 煤厚、 面积和储量。通过自动计算 储量的方法减轻人工计算量,快速完成各煤层的储 量核定工作。 程序设计时,要先生成一个“ 储量计算 ” 图层,所 有新标注的图例将放于这一图层上,便于图形文件 管理。程序运行时,先初始化ActiveX环境,把Auto2 cad实体转化为VLA对象,获取对象块段的面积 属性,通过调用L ISP内部函数计算块段储量,通过 一定的命令序列,自动完成图例绘制、 文字标注、 储 量计算任务。 程序清单如下 ; ; ;储量计算程序用于各煤层储量核查与计 算 defun c chuliang2 setvar “Echo“ 0 setvar “osmode“ 0 setvar “ angbase“ 115707963 setvar “ angdir“ 1 vl - load - com ; |初始化ActiveX环境|; 85 第3期 2005年9月 矿 山 测 量 M I NE SURVEYI NG No13 Sept12005 command “ layer“ “M“ “储量计算“ “ c“ 4 “ “ “ “ setq e car entsel “ \n请选择要计算的块 段 “ ; |获取所选对象的实体名|; setq bbb vlax - ename - vla - object e ; |把autocad实体转化为VLA对象|; setq ccc vlax - get bbb “ area“ setq kd getstring “ \n请输入块段名称 “ setq mh getreal “ \n请输入煤层厚度 “ setq qj getreal “ \n请输入煤层倾角 “ setq pt getpoint “ \ n请指定储量符号位 置 “ setq mh - 1 rtosmh 2 2 setq ccc - 1 rtos ccc 2 0 setq qj - 1 rtos qj 2 0 command “ circle“ pt 75 setq pt_x1 mapcar ’ ’ - 6510 3710 01 0 pt setq pt1 list car pt_x1 cadr pt_x1 setq pt_x2 mapcar ’ ’ 6510 3710 01 0 pt setq pt2 list car pt_x2 cadr pt_x2 command “ line“ pt1 pt2 “ “ setq mid osnap pt1 “midp“ setq mid_1 mapcar ’ ’010 210 01 0 mid command “ text“ “ j“ “ bc“ mid_1 15 90 kd “ “ setq ddd 3ccc mh 11 5 setq ddd - 1 rtos / ddd 10000 2 1 setq pt3 mapcar ’ ’ - 7510 010 010 pt setq pt4 mapcar ’ ’ 7510 010 010 pt command “ line“ pt3 pt4 “ “ setq mid1 mapcar ’ ’010 210 pt command “ text“ “ j“ “ bc“ mid1 15 90 ccc - 1 “ “ setq pt5 mapcar ’ ’ - 6510 - 3710 01 0 pt setq pt6 mapcar ’ ’ 6510 - 3710 01 0 pt command “ line“ pt5 pt6 “ “ setq mid2 osnap pt5 “midp“ setq mid_2 mapcar ’ ’ 010 210 01 0 mid2 setq mid_3 mapcar ’ ’ - 2010 - 3010 01 0 mid2 setq mid_4 mapcar ’ ’ 2010 - 3010 01 0 mid2 command “ line“ mid2 mapcar ’ ’010 - 7510 010 pt “ “ command “ text“ “ j“ “ bc“ mid_2 15 90 ddd - 1 “ “ command “ text“ “ j“ “ bc“ mid_3 15 90 mh - 1 command “ text“ “ j“ “ bc“ mid_4 15 90 qj - 1 setvar “Echo“ 1 使用方法在CAD命令提示行输入CHUL2 I ANG2回车,程序运行,按照命令行的提示,输入各 参数值,在各个块段的合适位置点击后就会生成该 块段的储量计算图例。也可以在自定义的工具栏中 定义启动程序按钮,根据自己的喜好制作一个易于 识别的按钮图像,在与此按钮关联的宏内输入C Cchuliang2,以后核定储量的时候,直接点击该图标, 就可以启动核定程序了。此程序已在Autocad2002 和2004版本下运行通过。 3 结 语 采用储量计算程序,绘制出了古书院矿及相邻 矿井3、9、15煤层的储量计算图,并且可以绘制不 同比例的盘区及工作面的储量变更图,彻底解决了 储量管理工作中的人工计算问题。由于自己掌握源 程序,针对不同图纸的不同要求,还可以按图纸比例 进行修改,满足各类比例图纸标注的需要,使用起来 十分方便。 作者简介毕宇庆1969 - ,男,山西晋城人, 1991年毕业于 阜新矿业学院,大学本科,曾发表论文多篇,现在山西晋城煤 业集团古书院矿技术部从事技术管理工作。 收稿日期 2005 - 04 - 13 95 第3期 毕宇庆在CAD平台上二次开发储量核定程序 2005年9月