;;;
;;;---------------------------------------------------------------------------------------
;;; ------------  Mit dieser Routine werden Layouts auf "Blatt_n" umbenannt  -------------
;;;---------------------------------------------------------------------------------------
;;;
(defun c:layren (/ anzlayout layoutnames laynam1 laynam2)
  (setq anzlayout (length (layoutlist))) ;				Anzahl der Layouts in die Variable "anzlayaout" schreiben
  (setq layoutnames (layoutlist)) ; 					Die Liste der Layoutnamen in die Variable "layoutnames" schreiben
  (setq laynam1 "Blatt_");								Ersten Teil des Layoutnamens in Variable "laynam1" festlegen
	(foreach I layoutnames
		(setq laynam2 0)
		;(repeat anzlayout
			(setq laynam2 (+ 1 laynam2))
			(command "_layout" "_rename" I (strcat laynam1 (itoa laynam2)))
		;)
	)
)
(princ)