[LISP程序]：用AutoCAD 绘制声波曲线的Autolisp 程序

dg_lcl

(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 操作屏幕的命令行中装入该程序，然后按着屏幕上的提示一步步的进行直到结束。该程序还可以用来做标贯曲线等曲线。