(defun c:AMSAVEAS( / N FD)
  (vl-load-com)  
  (if(=(setq N(vla-get-fullname
                (vla-get-activedocument(vlax-get-acad-object))
              )
       )      
       ""
     )
    (progn
      (initdia)
      (command "_AMSAVEASACADM2007")
    )
    (progn
      (setq FD(getvar "FILEDIA"))
      (setvar "FILEDIA" 0)
      (command "_AMSAVEASACADM2007" N "_y")
      (setvar "FILEDIA" FD)
      (prompt "\nAls Mech2007 gespeichert....\n")
    )
  )
)
(vl-catch-all-apply  'vl-cmdf  (list "_undefine"   "_save"))
(vl-catch-all-apply  'vl-cmdf  (list "_undefine" "sichern"))

(vl-catch-all-apply  'vl-cmdf  (list "_undefine"  "_qsave"))
(vl-catch-all-apply  'vl-cmdf  (list "_undefine"   "ksich"))
(defun c:_save  ()(c:AMSAVEAS))
(defun c:sichern()(c:AMSAVEAS))
(defun c:_qsave ()(c:AMSAVEAS))
(defun c:ksich  ()(c:AMSAVEAS))
(princ)