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

基本上利用OPEN來開啟已有的檔案，
用write-line來寫入每一行，
用close來關閉檔案，
範例：

(setq file (open "D://123.txt" "w"))
(write-line "這是第一行..." file)
(close file)

如果要建立新的檔案，
加上getfiled來開啟新增檔案視窗，
範例：

(setq file (open (getfiled "保存到..." "D:\\" "txt" 1) "w"))
(write-line "這是第一行..." file)
(close file)

基本上跟TXT檔是差不多的，

只差在於CSV檔需要有分隔符號，

通常是逗號分隔，或Tab分隔，

範例：

(setq file (open (getfiled "保存到..." "D:\\" "csv" 1) "w"))
(write-line "圖塊名, 圖層, 數量" file)
(close file)

學而所用