AutoLISP语言在井下支距碎部测量绘图应用.docVIP

AutoLISP语言在井下支距碎部测量绘图应用 　　摘要：利用AutoLISP语言编程实现了井下支距碎部测量绘图的标准化，简化了传统绘图过程中繁琐的步骤，大大提高了绘图的速度，实现了井下支距碎部测量绘图的半自动化。 　　关键词：AutoLISP；自动化；程序 　　Abstract: Using the Auto LISP programming language underground branch from the broken, surveying and mapping standardized to simplify the tedious steps in the traditional drawing process, greatly improving the speed of drawing, the underground Offset broken, surveying and mapping of semi-automated.Keywords: Auto LISP; automation; program 　　中图分类号：P271文献标识码：A文章编号：2095-2104（2012） 　　0 引言 　　矿山井下测量的碎部测量方法主要是支距测量，传统的AutoCAD上图方法虽然可以绘图，但是步骤比较繁琐，不利于提高绘图速度。 　　AutoLISP是为扩展和自定义AutoCAD功能而设计的编程语言，它起源于20世纪50年代末的LISP语言，AutoLISP被引入AutoCAD作为应用程序编程的接口（API），AutoLISP嵌入AutoCAD内部，它不仅具备一般高级语言的基本结构和功能，而且还具有强大的图形处理功能，由于AutoLISP易于掌握，因此是AutoCAD用户中使用较为广泛的编程语言之一。 　　矿山测量工作中的井下支距测量碎部绘图工作是一项普通的绘图工作。传统的支距测量碎部绘图方法是先画出起点A到终点B的直线，然后反复的捕捉AB方向，输入距离，从起点画直线，然后再捕捉与前面方向成90°的方向左边依次输入左边的几个宽度，然后再捕捉与AB方向成90°的右边依次输入右边的几个宽度。最后根据现场情况用样条曲线分别连接左右各端点。这种绘图方法效率低，步骤繁琐，给绘图工作带来了极大的不方便。利用AutoLISP语言编写绘图程序能够实现左右边几个宽度分别同时输入并且自动识别和绘图，简化了绘图过程和步骤，也提高了成图速度。 　　1 程序的实现 　　 井下支距测量碎部图的绘图过程包括井下现场量测、数据的采集记录、绘制成图几个过程。前两个过程是数据采集阶段，可以利用全站仪实现快速观测和数据的自动存储传输等操作；不过，由于现场湿度温度比较高，以及井下巷道现场通视条件比较差，一般情况下还是采用钢尺进行??测左右宽度的方法，用记录纸记录有关的数据以便以后检查。绘制成图的过程还可以细分为画距离中心线和左右宽度的支距“天线图”过程，以及最后的左右边分别连线过程。最后的连线过程比较简单，不需要编程。画支距“天线图”的过程相当繁琐，所以要用编程来简化这个过程。 　　 　　根据井下支距测量碎部绘图的情况，使用了含有两个内部循环的循环体。外部循环体用来画从起点到支距点的直线。两个内部循环体分别根据左右边几个宽度来画出相应宽度的直线。 　　程序代码如下： 　　(defun c:HT() 　　(setq A (getpoint 请输入支距起点：)) 　　(setq B (getpoint \n请输入支距终点：)) 　　(setq n (getint \n请输入量取段数n：)) 　　(setvar osmode 0)(setvar cmdecho 0) 　　;;;循环体 　　(repeat n 　　(setq S (getreal \n请输入距离S：)) 　　(setq LR (getstring \n请输入左右宽度：));;;{比如左1.5右2.0，则输入1.5;2.0}#160; #160;#160; (setq lgh (strlen LR))#160; (setq fh (+ (vl-string-search ; LR) 1))#160; #160; (if (= fh 1) (setq R (substr LR 2 lgh) L 0.0))#160; #160; (if (= fh lgh) (setq L (substr LR 1 (- lgh 1)) R 0.0))#160; #160; #160; #160; (if (and (/= fh 1) (/= fh lgh))#160; #160; #160; (setq L (substr LR 1 (- fh 1))R (sub