CAD批量提取数值lisp插件_批量提取cad坐标到txt的lisp源码

(defun c:plzbsc()

(princ "\n

选择所需输出的点(

point

)

:")

(setqss (ssget ));;

选取坐标点

(setq n (sslengthss ));

计算坐标点数量

(setqff (open (getfiled "

文件保存为

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

保存路径

(setqi 0)

(repeat n

(setqspt (ssnamessi ))

(setqept (entgetspt))

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

(progn

(setqlxyz (cdr (assoc 10

ept)))

(setqsx (rtos (nth 1 lxyz)));

将坐标值实数转换成字符

(setqsy (rtos (nth 0 lxyz)))

(setqsz (rtos (nth 2 lxyz)))

(setq i1 (+ i 1));

计算点序号

(setqsn (rtos i1 2 0));

将序号实数转换成字符

(setqsxyz (strcatsn",,"

sy ","

sx

","

sz))

(write-linesxyzff)

)

)

(setqi (+ i 1))

);repeat

)

(prompt "* <<

命令

:plzbsc>> *

输出格式(点号

,, Y

，

X

，

Z

)

**")

(prin1)