用AutoLisp开发坑透设计一键成图实用程序

用AutoLisp开发坑透设计一键成图实用程序

摘

要：工作面面宽不同，导致了发射点间距和接收范围不同；其次每条接收射线的距离又不同。故没有标准射线可以统一使用，每个工作面只能一步一步进行画制，严重影响了工作效率。使用AutoLisp进行原创程序开发，从而解决上述问题。可实现一键快速成图功能，提高了工作效率。实现坑透设计图制作标准化、规范化、统一化。Keys：坑透；设计图；程序；工作面1引言无线电波透视法（坑透）是矿井工作面在回采前，对面内断层、陷落柱、煤层变薄区等地质构造进行探测，将井下采集的坑透数据进行处理，结合矿方地质资料进行综合分析，最终圈定坑透异常区。矿方根据异常区情况，提前采取措施，以保证工作面综合机械化采煤的安全顺利进行。为了确保施工质量及作业安全，结合矿方提供的相关地质资料，需要提前编制坑透设计，其中坑透发射和接收设计图是一项重要内容。用AutoLisp开发的实用程序，针对不同工作面面宽、接收范围，可以一键成图，提高了工作效率，也解决图件缺乏统一标准的问题。2需要解决的技术问题因为在坑透设计中需明确发射点、接收点的位置，各矿井不同工作面面宽距离不统一，存在以下情况：当工作面宽>190m时发射点距为80m，接收点距为10m，接收范围为170m；当工作面宽<90m时发射点距为30m，接收点距为5m，接收范围为60m；具体情况见表1。表1

工作面坑透设计参考表工作面面宽发射点间距接收点间距接收范围>190m80m10m160m160-190m70m10m140m140-160m60m10m120m110-140m50m10m100m90-110m40m10m80m<90m30m5m60m日常工作是根据上述坑透设计参考表，从而绘制具体坑透设计图。如图1所示，回风巷（或运输巷）每隔50m布一个发射点，运输巷（或回风巷）每隔10m接收一个场强值，共接收11个场强值，接收段距离为100m。从上述可知，工作面面宽不同，导致了发射点间距和接收范围不同；其次每条接收射线的距离又不同。故没有标准射线可以统一使用，每个工作面只能一步一步进行画制，严重影响了工作效率。图1坑透设计布置图3程序编制Lisp(ListProcessinglanguage)是一种计算机的表达处理语言,是人工智能学科领域应用较为广泛的一种程序设计语言。使用AutoLisp可直接调用全部AutoCad的全部命令,成为AutoCad二次开发的基本工具。作为开发工具，AutoLisp提供了一个完整的集成开发环境(IDE),包括编译器、调试器和其它工具,可以提高自定义AutoCad的效率。根据实际工作中遇到的问题，进行系统分析，从而构建思维模型，最后将这些思路绘制成程序流程图，如图2所示。图2程序流程图按程序流程绘图步骤写成AutoLisp程序语言，最后保存为扩展名为“lsp”的应用程序ktxj.lsp。下面为编写的程序部分内容：(defunc:ktxj()

(setvar"cecolor""6")

(setqBB(getreal

"\n输入发射间距(向右为正,向左为负):"))

(setqZ1(getpoint"\n选择发射点"))

(setqA0(getpoint"\n选择第一接收点"))

(setqAA(getreal

"\n输入接收间距(向右为正,向左为负):"))

(setqBJ(absBB))

;BJ是指发射点之间的距离。

(if(=BJ80

)...(command"ARRAY"(120))

(princ1)

(command"")

)4应用实例首先要把该程序加载到AutoCAD中，具体操作步骤如下：工具→加载应用程序→选中“ktxj.lsp”程序→加载。其次也可以把程序文件放到启动组中，每次打开AutoCAD时可自动加载程序，更加快捷和方便。下面以某矿1212（3）工作面为例，该面长1760m,面宽232m,。通过工作面面长和面宽，确定该工作面每个发射间距为80m,接收间距10m，接收范围160m。在AutoCAD命令行输入ktxj（坑透设计）后，出会现图3对话框。由于各矿工作面切眼位置不同，导致回采顺序有从右到左、有的从左到右，为了便于区分，故程序设计上从左到右数字为正，从右到左数字为负。以本面为例，该工作面从右到左回采，故发射间距为-80m，接收点间距为-10m等，几秒钟后会自动生成坑透设计图，如图4所示，程序运行结束。图3AutoCAD对话框

图41212（3）工作面坑透设计图5结论可实现一键快速成图功能，极大的提高了工作效率和准确率；其次由程序统一设定了发射直线的颜色、线宽和图层等，使的坑透设计图更加标准化和规范化。未来用AutoLisp程序语言充分结合Surfer软件内生Scripter脚本语言，实现从坑透设计到成果自动化成图，从而极大的提高了工作效率，缩短坑透设计、报告编制时间；其次省去了中间人为出错的过程，避免了制图过程中的技术风险；更好的指导煤矿安全生产。Reference：〔1〕刘天佑.地球物理勘探概论〔M〕.湖北：中国地质大学出版社，2017.〔2〕胡仁喜.AutoLISP高级应用实例〔M〕.北京：机械工业出版社，2005..〔3〕王锦祥.现代煤田地质勘探、煤矿矿井物探及测