請問各位如何將AUTOCAD文字內容複製到EXCEL的方法

Question

1.一張AUTOCAD電子檔平面圖上(鋼構結構圖)有上百處(不同的座標上)的文字內容,文字內容都是由英文字及數字組成如’’L17J1-338’’(為鋼構件構件號碼)
我想將其文字內容”一次”全部複製到EXCEL儲存格內作應用如排序之類的

2.請問除了寫程式外還可以用什麼電腦操作方式達到’’一次全部複製到EXCEL儲存格’’作編輯的效果

ps:麻煩各位先進了,請將各位想得到的方法提供給我,有任何疑問請不用客氣發問…….先謝過

TO 阿德
可以麻煩詳述做法嗎?我試看看
我不是專業繪圖員(不會用AUTOCAD指令 只會用滑鼠改改圖而已),所以可否請越詳細越好 謝謝

TO 阿德
我有寫信給他,請他幫忙了,不過如你所說,可能沒空回覆
那基本上我只是對繪圖弱了點,操作應該OK
不如大大可否先將重點部分敘述一下,我試看看
不清楚的我爬文看看,真的不懂得>

TO恐龍大大
我會做圖塊
所以我要用第二種方法
但奇怪你回答的我只看到文字,剩下的圖面我看不到><
所以第二種的操作方法可以重點敘述一下嗎?謝謝^^

Answer 1

您可以將以下文字複製、貼上到一個名為 txt2file.lsp 的文字檔中，將此檔存檔並放入 Autocad 安裝目錄下的 support 目錄，以後有此需要先在AutoCAD命令列先輸入 (load "txt2file") ，再輸入 txt2file 即可。有使用問題歡迎再問我囉

(defun c:txt2file ()
(setq i 0)
(setq j 0)
(princ "\n選取文字輸出至 C:/EXCEL.TXT: ")
(setq ss (ssget))
(if ss
(progn
(setq nn (sslength ss))
(setq file (open "c:/excel.txt" "w"))
(repeat nn
(setq ename (ssname ss i))
(setq en (entget ename))
(setq enf (cdr (assoc 0 en)))
(if (or (= enf "TEXT") (= enf "MTEXT"))
(progn
(setq value (cdr (assoc 1 en)))
(write-line value file)
)
)
(setq i (+ 1 i))
)
(close file)
)
(princ "\n未選取物件")
)
(princ)
)

Answer 2

有見到你的問題，以你現在所學層級，實在沒法子可以一口氣轉文字物件到EXCEL上。解決你的問題方式有幾種：1.單獨使用文字編輯，將文字物件一個個的打開，複製文字內容，再一個個貼上到EXCEL儲存格。
圖片參考：http://f3.yahoofs.com/users/424d9a78zfbb968fc/bbc5/__sr_/fdecscd.jpg?phgCuTEBMI7bO5a8
3.撰寫巨集按鈕或是LISP程式或是其他輔助的程式。個人認為，還是用第一種慢慢做了，之後學習第二種做法較好。有問題再提。

2006-04-26 20:40:56 補充：
第一個圖片http://tw.pg.photos.yahoo.com/ph/0952330636/detail?.dir=bbc5&.dnm=20c8scd.jpg第二個圖片http://tw.pg.photos.yahoo.com/ph/0952330636/detail?.dir=bbc5&.dnm=fdecscd.jpg&.src=ph

Answer 3

使用圖塊屬性即可做完，你的文字若都用圖塊屬性的話，可以透過圖塊屬性匯出成TXT，在直接匯入EXCEL即可。
若覺得要作法，在討論了。

2006-04-18 14:17:19 補充：
全部寫完大約可以高達5000字以上..= = |||我看你還是去問紫藍色的愛情(CAD大恐龍)好了..他應該會有比較詳細的解說..但是他最近去北部受訓..還不知道如何請他回覆..

Answer 4

Block Attribute Extract:
Attext>選Block 物體>output 成 TXT file>用Execel打開TXT file
Text Copy and Paste
DEDIT>Ctrl+C>選文字>打開Execel>Ctrl+P>複製到Excel