2008年10月22日 星期三

寫出檔案

(princ "\n以視窗方式求得檔案名稱: zz")
(defun c:zz ( / ffn fftxt)
(setq ffn (getfiled "寫出檔案" "" "csv" 1))
(if ffn
(progn
(print (strcat "寫出檔案名稱: " ffn))
(setq fftxt (strcat (substr ffn 1 (- (strlen ffn) 4)) ".txt"))
(print (strcat "更改檔案(TXT)名稱: " fftxt))
)(princ "\n使用者取消!!!"))
(princ))

;輸出結果:
;"寫出檔案名稱: D:\\My Documents\\Autodesk\\97195台中工業區寬頻管道\\輸出檔\\xxx.csv"
;"更改檔案(TXT)名稱: D:\\My Documents\\Autodesk\\97195台中工業區寬頻管道\\輸出檔\\xxx.txt"

沒有留言:

Search Google

Google

熱門文章