AutoLISP语言井下支距碎部测量绘图应用论文发表

来源：核心期刊咨询网时间：2013-05-03 14:5312

摘要：利用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}

　　(setq lgh (strlen LR))

　　(setq fh (+ (vl-string-search ";" LR) 1))

　　(if (= fh 1) (setq R (substr LR 2 lgh) L "0.0"))

　　(if (= fh lgh) (setq L (substr LR 1 (- lgh 1)) R "0.0"))

　　(if (and (/= fh 1) (/= fh lgh))

　　(setq L (substr LR 1 (- fh 1))  R (substr LR (+ fh 1))      )

　　)  ;以下由计算得出

　　(setq ang (angle A B))

　　;;;  左边支距 内部循环体1

　　(setq z (strlen L))

　　(setq zg (/ (+ z 1) 4));从输入的字符串提取左边量取距离个数

　　(setq i 0 col_id1 0 p1 (polar A ang S))

　　(command "line" A p1 "")

　　(repeat zg

　　(setq c (atof (substr L (+ (* i 4) 1) 3)))

　　(setq p2 (polar p1 (+ ang (* pi 0.5)) c))

　　(setq col_id1 (+ col_id1 1))

　　(command "color" col_id1)    (command "line" p1 p2 "")

　　(setq i (+ i 1))    (setq p1 p2)

　　)

　　;;;  右边支距  内部循环体2

　　(setq y (strlen R))

　　(setq yg (/ (+ y 1) 4))

　　(setq j 0 col_id2 1 p1 (polar A ang S))

　　(repeat yg

　　(setq d (atof (substr R (+ (* j 4) 1) 3)))

　　(setq p3 (polar p1 (+ ang (* pi 1.5)) d))

　　(setq col_id2 (+ col_id2 1))

　　(command "color" col_id2)    (command "line" p1 p3 "")

　　(setq j (+ j 1))    (setq p1 p3))

　　) ;repeat n

　　(command "line" A B "")

　　(setvar "osmode" 4133)  (setvar "cmdecho" 1)

　　(prompt "\n*****<< c:HT >> 程序设计作者：dengkaiyu*****")

　　)

　　将以上程序代码输入Visual LISP文本编辑器，然后保存为HT.lsp。通过以上程序，就可以简化井下支距测量碎部绘图的过程，一次就可以同时输入左右两边几个宽度数据，自动画出有关的支距“天线图”，大大提高了绘图效率。

　　以下为举例说明加载lisp程序然后运行的操作步骤。比如有一个井下支距测量碎部数据如下：

　　测点距离左右

　　Ⅲ701.61.6

　　61.9+4.01.8+4.2

　　91.8+2.0+2.21.7+2.1+2.3

　　151.7+2.1+2.01.7+2.3+2.2

　　181.7+2.01.7+2.2

　　Ⅲ8261.71.6

　　351.61.8

　　操作步骤如下：

　　先打开量取的井下支距测量所在的水平分层AutoCAD图形

　　命令： 输入（load “HT.lsp）

　　命令： 输入HT

　　出现提示“请输入支距起点:”       在图上点选起点Ⅲ7

　　出现提示“请输入支距终点:”       在图上点选终点Ⅲ8

　　出现提示“请输入量取段数n：”   输入7

　　出现提示“请输入距离S:”        输入0

　　出现提示“请输入左右宽度：”   输入1.6;1.6

　　出现提示“请输入距离S:”        输入6

　　出现提示“请输入左右宽度：”   输入1.9+4.0;1.8+4.2

　　出现提示“请输入距离S:”        输入9

　　出现提示“请输入左右宽度：”   输入1.8+2.0+2.2; 1.7+2.1+2.3

　　出现提示“请输入距离S:”        输入15

　　出现提示“请输入左右宽度：”   输入1.7+2.1+2.0;1.7+2.3+2.2

　　出现提示“请输入距离S:”        输入18

　　出现提示“请输入左右宽度：”   输入1.7+2.0;1.7+2.2

　　出现提示“请输入距离S:”        输入26

　　出现提示“请输入左右宽度：”   输入1.7;1.6

　　出现提示“请输入距离S:”        输入35

　　出现提示“请输入左右宽度：”   输入1.6;1.8

　　完成。

　　因为数据比较多、现场情况比较复杂，所以利用这个程序绘图还略微有点繁琐。不过由于省略了以前需要每次捕捉起点和起点终点方向的步骤，还改变了以前左边或者右边有几段宽度时只能分次输入的方式，实现一次同时输入左右两边几个宽度数据，所以也大大提高了绘图速度，并且不同段的宽度用不同颜色表示，提高了直观性。

　　最后就在相应的平巷图层使用光滑的样条曲线，根据现场实际情况连接成图。然后可以利用工具菜单里面的快速选择，选择“支距”图层，快速删除支距“天线图”。如上图2

　　3 结束语

　　通过AutoLISP语言编程，实现了简化井下支距测量碎部绘图的过程，一次就可以同时输入左右两边几个宽度数据，自动画出有关的支距“天线图”，并且使用不同的颜色表示不同段的宽度，比较直观地表现了现场的支距情况，大大提高了绘图效率。

　　[参考文献]

　　[1] 赵景亮，李志刚等编著. AutoCAD2004与AutoLISP二次开发技术[M]. 北京：清华大学出版社，2004.

　　[2] 陈伯雄，冯伟编著. VisualLisp程序设计[M]. 北京：人民邮电出版社，2002

　　[3] 吴永进，林美樱 编著. AutoLISP&DCL基础篇[M]. 北京：中国铁道出版社，2003

转载请注明来自：http://www.qikan2017.com/lunwen/lig/1092.html