lisp正负调换_坐标提取lisp程序 -

坐标提取lisp程序

2010-05-17 20:50:07| 分类： 工程 | 标签： |字号大中小 订阅

;该程序主要用于CAD点(point)三维坐标提取，并将数据输出为CASS软件中使用的数据格式 ;输出格式： 点号,,测量Y值，测量X值，测量Z值 例：1,,100.3244,1232,433,25 ;2010-05-17 ;命令：plzbsc (defun c:plzbsc()

(princ \选择所需输出的点(point):\ (setq ss (ssget ));;选取坐标点 (setq n (sslength ss ));计算坐标点数量

(setq ff (open (getfiled \文件保存为\保存路径 (setq i 0) (repeat n

(setq spt (ssname ss i )) (setq ept (entget spt))

(if (= (cdr (assoc 0 ept)) \ (progn

(setq lxyz (cdr (assoc 10 ept))) (setq sx (rtos (nth 1 lxyz)));将坐标值实数转换成字符 (setq sy (rtos (nth 0 lxyz))) (setq sz (rtos (nth 2 lxyz)))

(setq i1 (+ i 1));计算点序号

(setq sn (rtos i1 2 0));将序号实数转换成字符 (setq sxyz (strcat sn\sy \sx \sz)) (write-line sxyz ff) ) )

(setq i (+ i 1)) );repeat )

(prompt \命令:plzbsc >> *输出格式(点号,, Y，X，Z)**\(prin1)

地形图上提取碎步点(高程点