菜鸟求一个读取CAD图形中所有文字的LISP函数

solock

由于本人的小行业需要校对CAD中的图形标注，由于校对我已经可以通过软件实现，但是不知道怎么读取CAD中的所有字符。

恳求哪位大侠给一段

Gu_xl

(defun c:tt ()
(setq ss (ssget '((0 . "*text:))))
(if ss
(progn
(setq fn "c:\\text.txt")
(setq f (open f "w"))
(repeat (setq n (sslength ss))
(setq en (ssname ss (setq n (1- n))))
(setq txt (cdr (assoc 1 (setq enl (entget en)))))
(setq xy (cdr (assoc 10 enl)))
(write-line (strcat (vl-princ-tostring xy) "  " txt) f)
)
(close f)
(startapp "note.pad.exe" fn)
)
)
)

itoboy

来学习学习。