请高手帮忙

因为工作上的需要，我要将当前的图形存档并关闭后自动再重新打开它，因为自己的水平不高，试了半天没有办法，只好求高手相助了，这是我自己写的，但达不到目的。
(defun c:MM(/ Filename)
(setq Filename (strcat (getvar "DWGPREFIX")(getvar "DWGNAME")))
(command "zoom" "E")
(command "qsave")
(command "close")
(command "open" Filename)
)