;

該插件可以批量獲取

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

總結

以上是生活随笔為你收集整理的CAD批量提取数值lisp插件_CAD批量获取文本坐标及内容的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。