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

工程

|

标签：

|

字号大中小

订阅

;

该程序主要用于

CAD

点(

point

)三维坐标提取，并将数据输出为

CASS

软件中使用的数据格式

;

输出格式：

点号

,,

测量

Y

值，测量

X

值，测量

Z

值

例：

1,,100.3244,1232,433,25

;2010-05-17

;

命令：

plzbsc

(defun c:plzbsc()

(princ "\n

选择所需输出的点(

point

)

:")

(setq ss (ssget ));;

选取坐标点

(setq n (sslength ss ));

计算坐标点数量

(setq ff (open (getfiled "

文件保存为

" "f:/" "dat" 1) "w"));

保存路径

(setq i 0)

(repeat n

(setq spt (ssname ss i ))

(setq ept (entget spt))

(if (= (cdr (assoc 0 ept)) "POINT")

(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)

地形图上提取碎步点(高程点)坐标并输出到文本

2010-05-18 08:50:38|

分类：