[已解決]如何把AUTO CAD裡的文字匯出到固定的XX.TXT文字檔

[問題]我想要把AUTO CAD裡的文字匯出到XX.TXT的文字檔裡，我搜尋文章發現以下兩種方法可以實現：

方法一：用AutoCAD 2008「資料萃取」精靈 dataextraction指令，這個有符合我所要的功能，但匯出步驟不夠精簡。
               優點是匯出的文字會依序排列(依照數字英文順序排列)。

方法二：使用以下這個LISP，可以很快速的匯出*.TXT，但匯出的文字不會依照數字英文順序排列。
               還有匯出的檔名是否可以給個固定的儲存路徑及檔名(如：固定匯出後儲存為D:\abc\abc.txt)

我搜尋到的LISP程式如下：請問要如何修改：(順帶附加程式解釋，方便的話，謝謝)

(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)
)  

對於回覆者由衷感謝，感激不盡。

程式原始文章：AutoCAD 2008「資料萃取」精靈 dataextraction指令
http://kv1012tiger.pixnet.net/blog/post/102358957

是不是很難的問題，請求會的高手幫幫忙。謝謝您！

這個LISP匯出的文字是依照選取順序排列。
若要固定匯出後儲存為D:\abc\abc.txt
D槽需有abc這個子目錄
則修改為(setq ffn (getfiled "寫出檔案" "D:\\abc\\abc.txt" "" 1))

vl7120 寫到:這個LISP匯出的文字是依照選取順序排列。
若要固定匯出後儲存為D:\abc\abc.txt
D槽需有abc這個子目錄
則修改為(setq ffn (getfiled "寫出檔案" "D:\\abc\\abc.txt" "" 1))

我試了用可以儲存在自己設定固定的檔名了，感謝您的回覆與指導。

至於以選取順序這個部份要是想要用框選多個的方法選取，
然後匯出的文字會依照數字英文順序排列，要怎麼改寫呢?懇請賜教。謝謝！

一定要排序匯出嗎？
或許你可以利用 excel 開啟 .txt 的檔案再去排序可以嗎？

jassica123 寫到:一定要排序匯出嗎？
或許你可以利用 excel 開啟 .txt 的檔案再去排序可以嗎？

想要省下煩覆的步驟，所以才有這樣的需求。謝謝！

個人淺見如下：
原則上字串本身無法做排序，但串列可以....
所以只要將圖面上之字串逐一加入至某一串列中，
即可運用 acad_strlsort 函數對其做排列了
修改後之程式如下：

代碼:

(defun c:textex ()
  (setq ffn (getfiled "寫出檔案" "" "txt" 1))  ;;直接指定匯出檔案之附檔名為 .txt
  (princ "\n選取文字...")
  (setq ss (ssget (list (cons 0 "text"))))  ;;直接令選集 ss 只會選擇文字
  (setq ff (open ffn "w"))

  (setq txt-list '()) ;;先令字串的串列集合為空串列，如此才能運用 cons 的函數將字串逐一加入其中

  (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)))
    (setq txt-list (cons txt txt-list)) ;;將圖面上之字串逐一加入串列集合(txt-list)中

;;;    (princ txt ff)
;;;    (princ "\n" ff)
;;;      )
;;;    )
    (setq i (1+ i))
  )

  (setq txt-list-ok (acad_strlsort txt-list)) ;;運用函數 acad_strlsort 做排序

  (foreach pp2 txt-list-ok
    (princ pp2 ff)         
    (princ "\n" ff)
  ) ;;逐一將字串集合中的字串寫出

  (close ff)
  (princ (strcat "\n寫出檔案: " ffn))
  (command "notepad" ffn) ;;直接開啟本程式所匯出之文字檔
  (prin1)
)

不知這樣是否符合樓主的需求？
亦請版上高手不吝指正，
謝謝

---

Tiger&蘋果爸 寫到: 謝謝熱心程式分享~< 積分 +1>
[公告]關於團隊成員的回文及貢獻

835 寫到:個人淺見如下：
原則上字串本身無法做排序，但串列可以....
所以只要將圖面上之字串逐一加入至某一串列中，
即可運用 acad_strlsort 函數對其做排列了

試用過後真的可做排列～


相關文章：AutoCAD 2008「資料萃取」精靈 dataextraction指令
http://kv1012tiger.pixnet.net/blog/post/102358957

835 寫到:個人淺見如下：
原則上字串本身無法做排序，但串列可以....
所以只要將圖面上之字串逐一加入至某一串列中，
即可運用 acad_strlsort 函數對其做排列了

試用過後真的可做排列～

沒錯啦，就是這個功能，等了好久終於有了答案。

非常感謝835大大的解答，由衷感謝，感激不盡。

我要好好來研究一番。

我把這行改這樣寫：

(setq ffn (getfiled"寫出檔案" "D:/123/123" "TXT" 1)) ;;直接指定匯出檔案之附檔名為 .txt

雖然會指定好我要存的目錄和名稱及檔案類型，
但每次執行都會跳出視窗，以及詢問要不要覆蓋檔案。

請問那要怎樣寫才會固定儲存在D:\123\123.txt而不會跳出視窗及詢問要不要覆蓋檔案。謝謝！

aaronchung.tw 寫到:我把這行改這樣寫：

(setq ffn (getfiled"寫出檔案" "D:/123/123" "TXT" 1)) ;;直接指定匯出檔案之附檔名為 .txt

雖然會指定好我要存的目錄和名稱及檔案類型，
但每次執行都會跳出視窗，以及詢問要不要覆蓋檔案。

請問那要怎樣寫才會固定儲存在D:\123\123.txt而不會跳出視窗及詢問要不要覆蓋檔案。謝謝！

我再研究了一下我把那行在改成這樣:

(setq ffn (findfile "D:/123/123.txt")) ;;直接指定匯出檔案之附檔名為 .txt

這樣功能好像是我說的那個功能，只是要先有123.TXT這檔案的存在，不知道我這樣改寫是不是正確的程式寫法?

aaronchung.tw 寫到:我把這行改這樣寫：

(setq ffn (getfiled"寫出檔案" "D:/123/123" "TXT" 1)) ;;直接指定匯出檔案之附檔名為 .txt

雖然會指定好我要存的目錄和名稱及檔案類型，
但每次執行都會跳出視窗，以及詢問要不要覆蓋檔案。

請問那要怎樣寫才會固定儲存在D:\123\123.txt而不會跳出視窗及詢問要不要覆蓋檔案。謝謝！

直接指定ff為"D:/123/123.txt"是這個意思嗎？
(setq ff (open "D:/123/123.TXT" "w"))

如果要按文字座標排序的話，下面可以參考：
(setq sl nil
i 0
ss(ssget '((0 . "TEXT"))))
(Repeat (sslength ss)
(setq sl (cons(ssname ss i)sl)
i(1+ i)))
(setq sl (vl-sort (reverse sl)
'(lambda(a b)(>
(cadr(cdr(assoc 10(entget a)))) ; 取插入點座標y值
(cadr(cdr(assoc 10(entget b)))) ; 取插入點座標y值
))))

sl變數為得到排序後的物件list，用foreach來對它做匯出。

請教各位先進，經過試用後，為何我的狀況好像在.txt檔案中，將txt-list及txt-list-ok集合中的字串都列出，不知道那裡發生了問題？有請各位先進

補寄截圖

hsch0001 寫到:請教各位先進，經過試用後，為何我的狀況好像在.txt檔案中，將txt-list及txt-list-ok集合中的字串都列出，不知道那裡發生了問題？有請各位先進

不太懂您的意思？
請問你是使用哪一個LISP程式轉出來的！
選了哪些字轉出來第一個圖片我不太懂？

你好，編輯環境如下：

hsch0001 寫到:你好，編輯環境如下：

請使用這一支LISP程式再試試～

可以使用了，謝謝。有一個問題，請教您，在程式前面寫 " ;;; "是什麼用意？ 不好意思，剛接觸LISP的編寫，謝謝。

hsch0001 寫到:可以使用了，謝謝。有一個問題，請教您，在程式前面寫 " ;;; "是什麼用意？ 不好意思，剛接觸LISP的編寫，謝謝。

其實只要一個 ; 程式會判斷後方文字為註解說明，而不是程式碼的一部分。
所以 ;;; 也是一樣的～

相關討論 >> [分享]你所不知的Visual LISP 註解樣式

所以也是註解的意思，了解，感謝指導。