AutoCAD 2008「資料萃取」精靈 dataextraction指令 @ AutoCAD痞客幫

可以將圖面上的資料萃取出來，以下操作如何將文字萃取出來的範例，更多細節可以參考 AutoCAD 2008使用者說明文件(F1)。

AutOCAD 2008 以上版本可以使用「資料萃取」精靈 dataextraction指令，請直接選取圖面上的文字，顯示「」頁面中所選物件的物件性質。根據所選過濾器品類篩選性質清單。性質與在「性質」選項板中列示的相同。在篩選性質時只將文字的值打勾即可，匯出成xls表格形式，動態操作如下:

AutoCAD 2007 以下版本就必須藉助 LISP程式(藍色部份)，而如何載入LISP應用程式請使用APPLOAD指令，
相關操作文章如下，有問題請再提~
http://tw.myblog.yahoo.com/tiger-apple/article?mid=1421

(defun c:TEXTEX()
   (setq ffn (getfiled "寫出檔案" "" "" 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 (= sstyp "TEXT")
         (progn
     (setq txt (cdr (assoc 1 ssdata)))
          (princ txt ff)
            (princ "\n" ff)
          )
      )
      (setq i (1+ i))
   )
   (close ff)
   (princ (strcat "\n寫出檔案: " ffn))
   (prin1)
)