哪位大侠知道怎么把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测试成功。
不容易呀!!
温馨提示:答案为网友推荐,仅供参考
第1个回答  2017-08-24
装一个机械制图的CAXA,用CAXA打开DWG图,再用LIST命令就会出来文字内容,复制粘贴道EXCEL,排序,删除,替换就OK啦。优点是所有内容一次全显。
第2个回答  2017-01-10

第3个回答  2013-01-15
工具 快速选择
相似回答