lisp 获取横断面数据_CAD中高程点提取横断面数据的方法

展开全部

方法1：结合EXCEL，先用ID命令依次32313133353236313431303231363533e59b9ee7ad9431333332633539点取各点，之后从命令行选择X,Y,Z坐标数据，导入用EXCEL中计算。

方法2：用lisp编程。大概写了下，边桩数量7个，前4个一组，后3个一组，按你给的格式定的，先选取桩号，然后是中桩，再是边桩，然后是下一组桩号，中桩，边桩，以此类推，源代码：

;;从这里开始往下复制

(defun getinput()

(setqss1 (ssget '((0 . "TEXT,MTEXT")))

tt  (entget (ssname ss1 0))

ttt (cdr (assoc 1 tt))

aa  (getpoint "\n点取中桩点：")

ax  (car aa)

ay  (cadr aa)

az  (caddr aa)

bb  (getpoint "\n点取第一个边桩点：")

bx  (car bb)

by  (cadr bb)

bz  (caddr bb)

bzz (abs (- bz az))

bl  (sqrt (- (expt (distance aa bb) 2) (expt bzz 2)))

cc  (getpoint "\n点取第二个边桩点：")

cx  (car cc)

cy  (cadr cc)

cz  (caddr cc)

czz (abs (- cz az))

cl  (sqrt (- (expt (distance aa cc) 2) (expt czz 2)))

dd  (getpoint "\n点取第三个边桩点：")

dx  (car dd)

dy  (cadr dd)

dz  (caddr dd)

dzz (abs (- dz az))

dl  (sqrt (- (expt (distance aa dd) 2)