請教在 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")
)