国产aaaa级全身裸体精油片_337p人体粉嫩久久久红粉影视_一区中文字幕在线观看_国产亚洲精品一区二区_欧美裸体男粗大1609_午夜亚洲激情电影av_黄色小说入口_日本精品久久久久中文字幕_少妇思春三a级_亚洲视频自拍偷拍

首頁 > 化工知識 > CAD插件-CAD文字導出Excel文件

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

時間：2020-08-04 來源：CAD小苗 瀏覽：
經(jīng)常有網(wǎng)友問我有沒有將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中加載。

版權：如無特殊注明，文章轉載自網(wǎng)絡，侵權請聯(lián)系cnmhg168#163.com刪除！文件均為網(wǎng)友上傳，僅供研究和學習使用，務必24小時內刪除。
相關推薦