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
展示:
留言
張貼留言