(defun c:AufNeuenLayerSchieben ()
  (setq MerkeAktuellenLayernamen (getvar "clayer"))
  (command-s "'-Layer" "Machen" "Neuer_Layer_1" "")
  (command-s "LAYAKT")
  (command-s "-Layer" "Umbenennen" "Neuer_Layer_1" PAUSE "")
  (command "clayer" MerkeAktuellenLayernamen)
)