;-------------------------------------------------------------------------------------------------------------------------------------
;  
( defun c:layer ( /
                  ferrorsav )
  
; Die Fehlerbehandlung vorbereiten 
  (setq ferrorsav *error*)    ; bisherigen errorhandler sichern (lokale Variable für das Zurücksetzen, falls Befehl in Befehl gestartet wird)
  (setq *error* error_xyz) ; neuen errorhandler setzen (globale Variable)
   
; Den Beginn der Gruppe für den AutoCAD-Befehl "zurück" setzen 
  (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))

; Den Befehl im Dialogfenster ausführen
  (initdia)
  (command "_.classiclayer")

; Die Layer kontrollieren
  (layer_alle_kontrollieren nil)
  
; Das Ende der Gruppe für den AutoCAD-Befehl "zurück" setzen 
  (vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))

; Die Fehlerbehandlung zurücksetzen
  (setq *error* ferrorsav) ; globale Variable
  
; Rückgabewert
  (princ)

) ; Modulende