CAD批量提取数值lisp插件_CAD批量获取文本坐标及内容

;

该插件可以批量获取

CAD

中由

text

创建的文本坐标信息和文本标注

信息。

;

使用方法：将以下代码复制粘贴至

txt

文本中，另存为

*.lisp

格式

文件，

在

cad

中

lisp

插件加载即可，

选中所要提取的文本，

输入

plwbsc

即可批量导出文本信息。

;

命令：

plwbsc

(defun c:plwbsc()

(princ "\n

选择所需输出的文本

TEXT:")

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

(progn

(setq lxyz (cdr (assoc 10  ept)))

(setq sx (rtos (nth 1 lxyz)));

将坐标值实数转换成字符

(setq sy (rtos (nth 0 lxyz)))