經(jīng)常有網(wǎng)友問(wèn)我有沒(méi)有將CAD文字輸出到WORD或EXCEL的插件，我這里有一個(gè)非常簡(jiǎn)單的LSP程序，可以選取圖中文字，直接存成EXCEL文件。
程序代碼如下：
(defun c:Q2()
(setq ffn (getfiled "寫(xiě)出文件" "" "xls" 1))
(princ "n選取文字...")
(setq ss (ssget))
(setq ff (open ffn "w"))
(setq i 0)
(repeat (sslength ss)
(setq ssn (ssname ss i))
(setq ssdata (entget ssn))
(setq sstyp (cdr (assoc 0 ssdata)))
(if (or (= sstyp "TEXT") (= sstyp "MTEXT"))
(progn
(setq txt (cdr (assoc 1 ssdata)))
(princ txt ff)
(princ "n" ff)
)
)
(setq i (1+ i))
)
(close ff)
(princ (strcat "n寫(xiě)出文件: " ffn))
(prin1)
)
使用方法如下：
1、打開(kāi)記事本，將上述代碼復(fù)制粘貼到記事本中，然后另存為q2.lsp（文件名可以隨意，但擴(kuò)展名必須是LSP）。
2、在CAD中輸入AP，加載保存的LISP文件。

3、輸入Q2命令，就可以只選取文字并保存成EXCEL文件了。

這個(gè)插件可以將圖中任意的文字保存到EXCEL文字中，不僅限于表格中的文字。但要想利用此插件將表格文字輸出成相同格式的EXCEL文件還有點(diǎn)麻煩，可將表格中分類輸出成EXCEL文件，然后再將這些EXCEL文件合并起來(lái)。

此插件可以在AUTOCAD、浩辰CAD等類似CAD中加載。