经常有网友问我有没有将CAD文字输出到WORD或EXCEL的插件，我这里有一个非常简单的LSP程序，可以选取图中文字，直接存成EXCEL文件。
程序代码如下：
(defun c:Q2()
(setq ffn (getfiled '写出文件' '' 'xls' 1))
(princ '选取文字...')
(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 '' ff)
)
)
(setq i (1+ i))
)
(close ff)
(princ (strcat '写出文件: ' ffn))
(prin1)
)
使用方法如下：
1、打开记事本，将上述代码复制粘贴到记事本中，然后另存为q2.lsp（文件名可以随意，但扩展名必须是LSP）。
2、在CAD中输入AP，加载保存的LISP文件。
3、输入Q2命令，就可以只选取文字并保存成EXCEL文件了。
程序代码如下：
(defun c:Q2()
(setq ffn (getfiled '写出文件' '' 'xls' 1))
(princ '选取文字...')
(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 '' ff)
)
)
(setq i (1+ i))
)
(close ff)
(princ (strcat '写出文件: ' ffn))
(prin1)
)
使用方法如下：
1、打开记事本，将上述代码复制粘贴到记事本中，然后另存为q2.lsp（文件名可以随意，但扩展名必须是LSP）。
2、在CAD中输入AP，加载保存的LISP文件。
3、输入Q2命令，就可以只选取文字并保存成EXCEL文件了。