请教(Command "Save" )与对话框

sieben

我想在lisp程序中使用(Command "Save" )or (Comand "Qsave")但这样一来对话就不出现了,怎样才能显示对话框

sailorcwx

(initdia)(Command "Save" )

sieben

谢谢sailorcwx !!问题解决了

(defun c:s () 
  (if (= (getvar "DWGTITLED") 0)   
    (progn
      (initdia 1)
      (command "SaveAS")
    )
    (command "_.QSave" )
  )
  (princ)
)