[文章]：Autolisp编程两例

fyje

Autolisp编程两例
梁秀娟 赵兴民

       AutoCAD具有强大的绘图功能，可用于绘制各种专业图件，尤其适用于二次开发（使用Autolisp语言、C语言等），是勘测设计和科学研究的最佳制图软件之一。

      制图软件不同，对图件的编辑有不同的影响。对成果图的整饰，笔者认为还是在AutoCAD下进行为好。例如，可将Excel, Surfer, Grapher等软件绘制的图件调入AutoCAD 环境下进行再处理，最终输出令人满意的图件。

       目前各单位已对AutoCAD 进行了不同程度的开发，但仍有时候不能尽如人意，比如用CAD做声波曲线和静力触探曲线等。此时可以用LISP语言自编一些实用的小程序，解决此类难题。下面介绍两例小程序。

       1 用AutoCAD 绘制声波曲线的Autolisp 程序

       (defun C:px1()(setq hb (getreal"\n 波速1米等于图面多少毫米?"))(setq vb (getreal"\n 孔深1米等于图面多少毫米?"))(setq n 1)(while (= n 1)(setq p0 (getpoint"\n用鼠标拾取孔口点 p0?"))(command "ucs" "o" p0)(setq y1 (getreal"\n 输入测点深度?"))

(setq x1 (getreal"\n 输入测点波速?"))

(setq x1 (* x1 hb))

(setq y1 (* y1 vb))

(setq y1 (* y1 -1))

(setq p1 (list x1 y1))

(setq y2 (getreal"\n 输入下一点深度?"))

(while (/= y2 -1)

(setq x2 (getreal"\n 输入起下一点波速?"))

(setq x2 (* x2 hb))

(setq y2 (* y2 vb))

(setq y2 (* y2 -1))

(setq p2 (list x2 y2))

(command "line" p1 p2 ^c )

(setq p1 p2)

(setq y2 (getreal"\n 输入下一点深度?"))

)

(setq n (getreal"\n 绘制下一个孔吗(0/1)?"))

)

(command "ucs" "" )

)

应用时在AutoCAD 操作屏幕的命令行中装入该程序，然后按着屏幕上的提示一步步的进行直到结束。该程序还可以用来做标贯曲线等曲线。

　

       2 用AutoCAD 绘制静力触探曲线的Autolisp 程序

       (defun c:jtx()(setq nme (getstring"\n 输入数据文件名f=?"))(setq tex (open nme "r"))(setq hb (getreal "\n ps=1MPa相当 acad 几毫米hb？"))(setq vb (getreal "\n 孔深1米相当 acad 几毫米vb？"))(setq h 0.1)(setq p0 (getpoint "\n 用鼠标拾取孔口一点p0=？"))

(command "ucs" "o" p0)

(setq a1 (read-line tex))

(setq b1 (read a1))

(setq x1 (* b1 hb))

(setq y1 (* h vb -1))

(setq p1 (list x1 y1))

(while (/= tex nil)

(setq h (+ 0.1 h))

(setq a2 (read-line tex))

(setq b2 (read a2))

(setq x2 (* b2 hb))

(setq y2 (* h vb -1))

(setq p2 (list x2 y2))

(command "line" p1 p2 ^c)

(setq p1 p2)

)

(command "ucs" "")

(close tex)

)

操作条件：静力触探数据文件已经存在，为文本格式。

      操作方法：首先装入静力触探曲线程序，然后按着屏幕提示直接读入已有的数据文件，即能自动画出曲线。