如何提取CAD图纸中的TEXT文本并导入到外部文件中去

dgbgg-100

在图纸中搜索到所有的TEXT文本并把他门全部导入到外部文件中去！


                                 图纸中的TEXT文本中包含了以下内容：


                                 1：文本中有“-”符号！


                                 2：第一个是数字，也有的是字母！


希望给位大大们能给小弟一点帮助，能有完整的源代码就跟好！小弟在这里先谢谢各位了~！！！

yshf

;请试用以下程序：
(defun c:cc()
(setq ff (open (getfiled "请选择提取结果存盘文件" "" "" 13) "w")
sa (ssget "x" '((0 . "TEXT")))
n (sslength sa) i 0
)
(repeat n
(setq zfc (cdr (assoc 1 (entget (ssname sa i)))) i (1+ i))
(if (vl-string-search "-" zfc) (princ (strcat zfc "\n") ff))
)
(close ff) (princ)
)

香田里浪人

找不到提取文件