(defun c:xxx (/ Layer automatisch umbenennen)

(setq Vorlage (list                           	       ;Vorlagen Layer
"RS_111"
))                                                             ;Ende Vorlagen Layer

(setq Cu (list                                	       ;Cu Dicken
"RS_200"
))                                                             ;ENDE Cu Dicken

(setq count 0)
(foreach n Vorlage 
(if  (/= (setq tt(tblsearch "LAYER" n))nil)           ;Prüfen ob Altlayer vorhanden
     (command "_-rename" "_LA" n (nth count Cu)) ;Altlayer umbenennen
     (command "_-layer" "_m" n "")                    ;Wenn Altlayer nicht vorhanden Neulayer trotzdem anlegen
)                                                     ;Endif
(setq count (1+ count))
)                                                     ;Endforeach
(princ)
)                                                     ;Enddefun