纵断绘图软件

看看我用AUTOLISP编写的：
;
; 10/24/2006


; pt0 平面图中剖面线起点
; pt1 平面图中剖面线终点
; pt2 平面图中剖面线与地形线（地质线）的交点
; h 与pt2相应的剖面图上地形点高程
; L01 pt0与pt1的距离
; L02 pt0与pt2的距离
; pt3 与pt2相应剖面图上的地点
(alert
"\n 使用方法如下：
\n 输入字母hpm『绘剖面的拼音开头』
\n 依据命令行的提示进行操作。
\n ************
\n *熊 光 旭*
\n ************
")
(defun c:hpm (/ pt0 pt1 pt01 pt2 pt3 a b c q h L01 L02)
(alert
"\n 该程序不得随意传播，未经作者同意不得应用于其他软件
\n 希望该程序能提高你的工作效率
\n 希望可以帮助大家,欢迎多联系，交流
\n 云南省煤炭地质勘查院——熊光旭，电话13518788474
\n CAD二次开发，版权所有，熊光旭，^_^ ^_^
")
;(setq a(getvar "blipmode"))
;(setq b(getvar "cmdecho"))
;(setq c(getvar "osmode"))

;(setvar "blipmode" 0)
;(setvar "cmdecho" 0)
;(setvar "osmode" 0)


(setq pt0(getpoint"\n 输入剖线起点坐标 <0,0>:"))
(if (= nil pt0) (setq pt0(list 0 0)))
(setq pt1(getpoint"\n 输入剖线终点坐标 <100,100>:"))
(if (= nil pt1) (setq pt1(list 100 100)))

(setq L01(distance pt0 pt1))
(setq pt01(polar pt0 0 L01))

(command "pline" pt0 pt01 "c")

(setq q 1)

(while (/= q 9999)
(setq pt2(getpoint"\n 输入剖线与地形线（地质线等）的交点坐标 <50,50>:"))
(if (= nil pt2) (setq pt2(list 50 50)))

(setq L02(distance pt0 pt2))

(setq h(getreal"\n 输入高程〔如果入 9999 则退出程序〕<100.00>:"))
(if (= nil h) (setq h 100))
(if (= h 9999) (exit))


(setq pt3(list (+ (car pt0) L02) (+ (cadr pt0) h)))

(command "circle" pt3 3)


) ;end while
;(setvar "blipmode" a)
;(setvar "cmdecho" b)
;(setvar "osmode" c)
;(princ)
) ;end of hpm

谢谢楼主的无私奉献,希望大家都能上传好的资料,供大家分享.