解决浩辰CAD在WIN10系统下不能加载贱人工具箱使用数据导出

      浩辰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--