(defun c:LXY(/ Lay_X Lay_Y Lstat LX_stat LY_stat)
  (setq Lay_X "X")                                                     ;;;"X"->Hier statt X den gewünschten 1. Layernamen eintragen z.B "WAND"
  (setq Lay_Y "Y")                                                     ;;;"Y"->Hier statt Y den gewünschten 2. Layernamen eintragen
  (setq Lstat (getvar "CLAYER"))                                       ;;;Aktuellen LAyer abfragen
  (setq LX_stat (tblsearch "LAYER" LAY_X ))                            ;;;LAyer-X in Zeichnung suchen
  (setq LY_stat (tblsearch "LAYER" LAY_Y ))                            ;;;Layer-Y in Zeichnung suchen
  (if LX_stat (setq LX_stat (cdr (assoc 62 LX_stat)))                  ;;;Wenn vorhanden status ermitteln
    (alert (stract "Layer  " Lay_X " nicht vorhanden!")) )             ;;;sonst Alarm
  (if LY_stat (setq LY_stat (cdr (assoc 62 LY_stat)))                  ;;;Wenn vorhanden status ermitteln
    (alert (stract "Layer  " Lay_Y " nicht vorhanden!")) )             ;;;sonst Alarm
  (if (or (> LX_stat 0)(> LY_stat 0))                                  ;;;Wenn einer der beiden eingeschaltet ist
    (progn (command "_-layer" "_on"  "*" "_off" Lay_X "_off" Lay_Y "");;;Alle ein, x und y ausschalten
           (if (or (= Lay_X Lstat)(= Lay_Y Lstat))                     ;;;Wenn einer dieser LAyer aktiv ist
           (alert (strcat "Layer " Lstat " \nIST AKTIV ABER AUSGESCHALTET!!!"))));;;-> Alarm
    (progn (command "_-layer" "_off" "*"  "_on" Lay_X "_on"  Lay_Y ""));;;sonst Alle aus X und Y einschalten
  )
  (princ)                                                              ;;;Rückmeldung unterbinden
  )                                                                    ;;;Programm ende