用ＬＩＳＰ程序如何把一個文件夾的一個ＤＷＧ文件拷貝到另外一個文件夾呀？

BDYCAD

如題．　不知哪位可以把一個文件夾的ＤＷＧ文件用ＬＩＳＰ程序拷到另外一個目錄里如到Ｃ盤，還是不行呢？　請舉個例謝謝!!

meflying

shell啊，你不是会用DOS命令吗

tukuitk

准用VL吗？还是只用AutoLISP？

BDYCAD

謝謝Meflying and tukuitk 指點迷津，　真的不好意思我沒有用過SHELL 呢．　呵呵．

龙龙仔

將檔案的內容複製或附加到另一個檔案
(vl-file-copy  source-file  destination-file [append])

將檔案的內容複製或附加到另一個檔案。vl-file-copy 函數不會覆蓋既有的檔案，只會附加在既有的檔案之後。

引數

source-file

要複製的檔案名稱的字串。如果您不指定完整的路徑名稱，vl-file-copy會在 AutoCAD 啟動目錄中尋找。

destination-file

目的檔案名稱的字串。如果您不指定路徑名稱，vl-file-copy會寫入 AutoCAD 啟動目錄。

append

如果有指定，且不為 nil，source-file 會附加到 destination-file（即是複製到目的地檔案的尾端）。

傳回值

如果複製成功為整數，否則為 nil。
傳回 nil 的典型原因是：

source-file 無法讀取
        source-file 是目錄
        append? 不存在或 nil 和 destination-file 存
        destination-file 無法開啟以供輸出 (也就是，它是無效的檔案名稱或防寫的檔案)
        source-file 相同於 destination-file

範例

將 autoexec.bat 複製到 newauto.bat:

_$ (vl-file-copy "c:/autoexec.bat" "c:/newauto.bat")

1417

將 test.bat 複製到 newauto.bat:

_$ (vl-file-copy "c:/test.bat" "c:/newauto.bat")

nil

因為 newauto.bat 已經存在，且未指定 append 引數，所以複製失敗。
重複前一個指令，但指定 append:

_$ (vl-file-copy "c:/test.bat" "c:/newauto.bat" T)

185

複製成功，因為指定 T 給 append 引數。

luoyaya

SHELL不爽,还是龙仔的方法爽:)