1、首先养成好习惯，把要提取的文字放在一个特定的图层。
2、在CAD中操作：菜单--工具--AutoLisp--Visual Lisp 编辑器，把下面代码复制进去：
3、(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)
)
4、保存这个代码。记得存在哪里哟！！
这个代码会找到所有TEXT命令输入的文字（也就是单行文字），并导出到c盘 cir.txt.如果你需要MTEXT的文字，则要改变代码里面少许参数即可。（多行文字用x炸开就变成单行文字了）
5、菜单--工具--AutoLisp--Load Application--选择你刚才存的Lisp文件.
6、CAD中输入命令： gtext
7、到c盘根目录下找到cir.txt，里面内容即为提取的文字，可以复制粘贴到Word、excel中进行编辑
8、以上经 CAD 2014测试成功。
不容易呀！！
感谢来自来自百度用户you_meworld的回答
