怎么把CAD中的文字批量導出到Word中編輯？

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中進行編輯