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