CAD插件-CAD文字导出Excel文件

经常有网友问我有没有将CAD文字输出到WORD或EXCEL的插件，我这里有一个非常简单的LSP程序，可以选取图中文字，直接存成EXCEL文件。

程序代码如下：

(defun c:Q2()

(setq ffn (getfiled "写出文件" "" "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写出文件: " ffn))

(prin1)

)

使用方法如下：

1、打开记事本，将上述代码复制粘贴到记事本中，然后另存为q2.lsp(文件名可以随意，但扩展名必须是LSP)。

2、在CAD中输入AP，加载保存的LISP文件。

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

更多CAD使用技巧请访问：CAD十万个为什么