AutoCAD LISP 讀取TXT檔的內容

 利用getfiled 選取檔案

open 開啟檔案

read-line讀取一行

while循環到沒有內容

close關閉檔案


以下是LISP範例:

(defun C:tt ( / file fl fil )

    (setq file (getfiled "選取檔案" "D:\\" "txt" 0)) ;_選取檔案

    (setq fl (open file "r")) ;_開啟檔案

    (while (setq fil (read-line fl)) ;_讀取一行並循環

(prompt "\n")(prompt fil ) ;_輸出

) ;_end while

    (close fl) ;_關閉檔案

  (princ)

  );_end


展示:



相關連結:

open 指令介紹 (AutoLISP)

AutoLISP 如何將CAD的內容導出到TXT或CSV


留言

這個網誌中的熱門文章

AutoCAD 填充線(剖面線)樣式簡易製作產生器

AutoCAD 如何自訂線型教學

AutoCAD 動態圖塊-如何在所有可見性顯示或隱藏