(defun c:LAYCOMP (/ MEINLAY SEINLAY)

(setq MEINLAY (list                                   ;;;DEINE Layerliste
"A_MASS"
"A_TEXT"
"A_SYMBOL"
))                                                    ;;;Ende DEINE Layerliste

(setq SEINLAY (list                                   ;;;SEINE Layerliste
"B_MASS"
"B_TEXT"
"B_SYMBOL"
))                                                    ;;;ENDE SEINE LAyerliste

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