1,把要提取的文字放在一个特定的图层。
2,在CAD中操作:菜单–工具–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))
3,保存这个代码。这个代码会找到所有TEXT命令输入的文字(也就是单行文字),并导出到c盘 cir.txt.如果你需要MTEXT的文字,则要改变代码里面少许参数即可。(多行文字用x炸开就变成单行文字了)
4,菜单–工具–AutoLisp–Load Application–选择你刚才存的Lisp文件.
5,CAD中输入命令: gtext。到c盘根目录下找到cir.txt,里面内容即为提取的文字,可以复制粘贴到Word、excel中进行编辑