哪位大侠知道怎么把CAD里面的文字批量提取出来？当然还可以再写入进去，有没有好用的软件啊？

感谢来自百度用户you_meworld的回答

以下是提取CAD的一个尝试，不过需要利用AUTOLISP。

1，首先养成好习惯，你要提取的文字应该在特定的几个图层。

2，菜单--工具--AutoLisp--Visual Lisp 编辑器，把下面代码复制进去：

(defun c:GTEXT()

(setq la (getstring "\n请输入图层名: "))

(setq ss (ssget "X" (list (cons 0 "TEXT") (cons 8 la))))

(setq fi (open "C:\\cir.txt" "w"))

(setq si 0)

(repeat (sslength ss)

(setq ct (cdr (assoc 1 (entget (ssname ss si)))))

(write-line ct fi)

(setq si (1+ si))

)

(close fi)

)

保存这个代码。记得存在哪里哟！！

这个代码会找到所有TEXT命令输入的文字，并导出到c盘 cir.txt.如果你需要MTEXT的文字，则要改变代码里面少许参数即可。

3，菜单--工具--AutoLisp--Load Application--选择你刚才存的Lisp文件.

4,在COMMAND命令行输入： gtext

5,到c盘根目录下找到cir.txt。

以上经ACAD 2014测试成功。

不容易呀！！