浩辰CAD在在WIN10系统下不兼容贱人工具箱，百度之，找到一个简单的导出文字的LSP程序源码，可以直接存成EXCEL或者TXT文本（修改第2行代码["xls"]改成["txt"]）。 快捷键命令：DD 即可导出文字数据 程序代码如下：
(defun c:DD()
(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、打开记事本，将上述代码复制粘贴到记事本中，然后另存为DD.lsp（文件名可以随意，但扩展名必须是LSP）。
2、在浩辰CAD中输入AP，加载保存的LISP文件。
3、输入DD命令，就可以导出选取的文字并保存成EXCEL或者TXT文本（默认CAD图纸名）。
4、已做好下载浩辰CAD中加载即用：http://ztc.bosim.top/f/986adcad129449c8bd8f/
转载至：http://blog.sina.com.cn/s/blog_148647ecf0102wtq7.html
本文链接：http://www.bosim.vip/index.php/post/3.html
--EOF--