尼姆对斯特拉斯堡:autoCAD文字導出Excel文件的小插件

法国尼姆足球队 www.vtssaj.com.cn 经常有网友问我有没有将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文件了。

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

為您推薦

發表評論

聯系我們

聯系我們

在線咨詢: QQ交談

地址:中國·貴州·貴陽 友情鏈接QQ:1034559333 本站QQ群:123733639
關注微信
微信掃一掃關注我們

微信掃一掃關注我們

關注微博
返回頂部

關于本站 || 版權聲明 || 免責條款 || 隱私條款 || 法国尼姆足球队 || ||

Copyright??2018 法国尼姆足球队 All Rights Reserved·黔ICP備15000265號-2