請教在 lisp中 使用"_wblock" 如何無條件覆蓋既有檔案

請教在 lisp中 使用"_wblock"
如何無條件覆蓋既有檔案

以下內容是我現有的程式
如果檔案已經存在....要如何才能覆蓋既有檔案

(defun c:WW()
(setq FM (getstring "\n輸入檔名: "))
(setq p00 (getpoint "\基準點:"))
(setq ss0 (ssget))
(setq dwgfile (strcat "D:\\TEMP\\" FM ".DWG"))
(command "_wblock" dwgfile "" p00 ss0 "")
(command "u")
)

WATSON513 寫到:請教在 lisp中 使用"_wblock"
如何無條件覆蓋既有檔案

以下內容是我現有的程式
如果檔案已經存在....要如何才能覆蓋既有檔案

(defun c:WW()
  (setq FM (getstring "\n輸入檔名: "))
  (setq p00 (getpoint "\基準點:"))
  (setq ss0 (ssget))
  (setq dwgfile (strcat "D:\\TEMP\\" FM ".DWG"))
  (command "_wblock" dwgfile  "" p00 ss0 "")
  (command "u")
)

可以使用EXPERT (系統變數)
作用：控制是否核發某些提示。

代碼:

(setvar "EXPERT" 2)

設定EXPERT為2代表：抑制前述提示，「圖塊已定義。您是否要重新定義它？」(-BLOCK) 以及「同名的圖檔已經存在。」您要覆蓋它嗎？」(SAVE 或 WBLOCK)。
當 EXPERT 抑制某個提示時，相關作業會假設您已經輸入 y 來回應提示而繼續執行。
其他請參考EXPERT (系統變數)官方說明

naruto018 寫到:可以使用EXPERT (系統變數)
作用：控制是否核發某些提示。

代碼:

(setvar "EXPERT" 2)

設定EXPERT為2代表：抑制前述提示，「圖塊已定義。您是否要重新定義它？」(-BLOCK) 以及「同名的圖檔已經存在。」您要覆蓋它嗎？」(SAVE 或 WBLOCK)。
當 EXPERT 抑制某個提示時，相關作業會假設您已經輸入 y 來回應提示而繼續執行。
其他請參考EXPERT (系統變數)官方說明

學習了！感謝分享這個系統變數～
今天又學到一招囉

謝謝您
提供系統變數的應用
我的問題解決了