AutoLISP语言程序在露天矿地质测量中的应用.pdfVIP

露天采矿技术 2015年第 11期 ·57· DOI：10．13235~．cnki．Item．2015．11．018 AutoLISP语言程序在露天矿地质测量中的应用 杨利波 ，冯艳平 (金堆城钼业汝阳有限责任公司，河南 fifo471200) 摘 要：通过AutoCAD内嵌语言AutoLISP的二次开发，编制出适应本单位生产工作中需要的程 序 ，使繁琐重复性的绘图工作 自动完成，减轻工程技术人员的工作强度 ，提高工作效率。 关键词：AutoLISP；爆孔品位；自动绘图；品位计算 中图分类号：TD672 文献标志码：B 文章编号：1671—9816(2015)11—0057—04 ApplicationofAutoLISP languageprogram inopen-pitminegeologicalsurvey YANG Ⅱb0．FENG Yanping (JinduichengMolybdenum MiningRuyangCo．，Ltd．，Ruyang471200,China) Abstract：Through the second developmentofAutoCAD embedded languageAutoLISP，the auhtor programsto meetwork requirementsandmaketherepetitivedrawingautomaticallycompleted，whichcanreducetheworkingintensityofengineeringand technicalpersonnelandimprovehteworkefficiency． Keywords：AutoLISP；blastholegrade；automaticdrawing；rgadecalculation 金钼汝阳公司委托西安建筑科技大学矿山系统 提取爆孔坐标程序：主要用getfiled函数创建一 工程研究所，基于AutoCAD软件基础上开发了 《东沟 个用于保存爆孑L坐标的文件名；getpoint函数指定取 钼矿采剥计划及测量验收系统软件》。该软件基本满 样点并返回该点坐标表；car函数用于返回表的第 1 足了公司13常生产计划、测量计算等工作，但该软件 个元素，即取样位置的Y坐标；cadr函数用于返回表 在地质爆孑L品位的采集上，需要人工输入计算。针对 的第 2个元素，即取样位置的 坐标；caddr函数用 爆孔数量多，输入费时费力还容易出错，及在配矿过 于返 回表的第 3个元素，即取样位置的 坐标。通过 程中所计算指定区域中的炮孔平均品位因网格太大 这几个关键函数及循环函数 while可以依次按照取 不适应于目前生产现状的现实，为此以AutoLISP语 样顺序提取爆孑L坐标 【。程序代码如下： 言为基础开发出了爆“孔品位 自动成图及计算系统”。 (setqfileph(getfiled”请输入要保存爆孔位置坐 标数据的文件名……”dat”1)) ． 1 AutoLISP语言的应用 (setqfile(openfileph”a”)) AutoLISP由Autodesk公司开发的LISP程序语 (setqpt(getpoint”＼n请选择爆孔位置．fI)) 言，AutoLISP语言是嵌入在AutoCAD内部的编程语 (setqdotnil) 言，是开发应用 AutoCAD不可缺少的工具。