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

BDYCAD · 发表于 2003-12-24 11:23:00

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

meflying · 发表于 2003-12-24 11:27:00

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

tukuitk · 发表于 2003-12-24 11:27:00

准用VL吗？还是只用AutoLISP？

BDYCAD · 发表于 2003-12-24 11:43:00

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

龙龙仔 · 发表于 2003-12-25 07:59:00

將檔案的內容複製或附加到另一個檔案
(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 · 发表于 2003-12-29 13:23:00

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

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

发表回复

精选推荐