(defun c:bae ( / p:MPunkt r:MStab)
  (setq p:MPunkt (getpoint "\nBildmittelpunkt wählen: (ENTER=Abbruch) "))
  (if p:MPunkt (progn ;(1)
    (setq r:MStab (getreal "\ndarzustellenden Maßstab wählen: (ENTER=keine Anpassung) "))
    (command "_zoom" "_c" p:MPunkt "")
    (if r:MStab (progn ; (2)
      (command "_zoom" (strcat (rtos (/ 1000.0 r:MStab) 2 3) "xp"))
    )) ; end if r:MStab
  )) ; end if p:MPunkt
) ; end defun