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

《AutoLISP语言程序在露天矿地质测量中的应用.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、露天采矿技术2015年第11期·57·DOI：10．13235~．cnki．Item．2015．11．018AutoLISP语言程序在露天矿地质测量中的应用杨利波，冯艳平(金堆城钼业汝阳有限责任公司，河南fifo471200)摘要：通过AutoCAD内嵌语言AutoLISP的二次开发，编制出适应本单位生产工作中需要的程序，使繁琐重复性的绘图工作自动完成，减轻工程技术人员的工作强度，提高工作效率。关键词：AutoLISP；爆孔品位；自动绘图；品位计算中图分类号：TD672文献标志码：B文章编号：1671—9816(2015)11—0

2、057—04ApplicationofAutoLISPlanguageprograminopen-pitminegeologicalsurveyYANGⅡb0．FENGYanping(JinduichengMolybdenumMiningRuyangCo．，Ltd．，Ruyang471200,China)Abstract：ThroughtheseconddevelopmentofAutoCADembeddedlanguageAutoLISP，theauthorprogramstomeetworkrequirementsandmak

3、etherepetitivedrawingautomaticallycompleted，whichcanreducetheworkingintensityofengineeringandtechnicalpersonnelandimprovetheworkeficiency．Keywords：AutoLISP；blastholegrade；automaticdrawing；gradecalculation金钼汝阳公司委托西安建筑科技大学矿山系统提取爆孔坐标程序：主要用getfiled函数创建一工程研究所，基于AutoCAD软件基础

4、上开发了《东沟个用于保存爆孑L坐标的文件名；getpoint函数指定取钼矿采剥计划及测量验收系统软件》。该软件基本满样点并返回该点坐标表；car函数用于返回表的第1足了公司13常生产计划、测量计算等工作，但该软件个元素，即取样位置的Y坐标；cadr函数用于返回表在地质爆孑L品位的采集上，需要人工输入计算。针对的第2个元素，即取样位置的坐标；caddr函数用爆孔数量多，输入费时费力还容易出错，及在配矿过于返回表的第3个元素，即取样位置的坐标。通过程中所计算指定区域中的炮孔平均品位因网格太大这几个关键函数及循环函数while可以依次按

5、照取不适应于目前生产现状的现实，为此以AutoLISP语样顺序提取爆孑L坐标【。程序代码如下：言为基础开发出了“爆孔品位自动成图及计算系统”。(setqfileph(getfiled”请输入要保存爆孔位置坐标数据的文件名⋯⋯”dat”1))．1AutoLISP语言的应用(setqfile(openfileph”a”))AutoLISP由Autodesk公司开发的LISP程序语(setqpt(getpoint”＼n请选择爆孔位置．fI))言，AutoLISP语言是嵌入在AutoCAD内部的编程语(setqdotnil)言，是开发应用

6、AutoCAD不可缺少的工具。(setqdot(getint”＼I1请输入爆孔编号<1>：”))1．1AutoLISP语言在爆孔品位自动成图中的应用(if(=dotnil)(setqdot1))在生产过程中，首先根据爆孔位置测量图纸进(whilept行取样，然后将取样化验结果作成爆孔品位图。这就(setqx(rtos(cadrpt)))要首先要按照取样顺序提取坐标位置，然后根据制(setqY(rtos(cal"pt)))作好的数据格式文件，通过AutoLISP软件的读取，(setqz(rtos(caddrpt)))自动绘制出所需要

7、的图纸。(setqsn(rtosdot20))1．1．1提取爆孔位置坐标(setqsxyz(strcat8n”，，”Y11911XIflllz))(write-linesxyzfile)收稿日期：2015-05—07(command”TEXT””8””仿宋体”pt”1”08n)作者简介：杨利波(1980一)，河南fifo&，助理工程师，现在金堆城钼业汝阳有限责任公司从事露天矿山测绘工作。(setqpt(getpoint”＼Il请选择下一爆孔位置：”))·58·露天采矿技术2015年第11期。(if【／=ptnil)结果函数，对品位

8、进行区间判断，在判断结果为T(progn时，通过函数ssadd将对象(图元)加入到对应选择(setqdot(1+dot))集中，然后通过command调用change命令分别对选(princ(strcat”、I1请输入爆孔编号⋯’<”(itoa择集