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 "* <> *输出格式(点号,, Y，X，Z)**")

(prin1)