;------------------------------------------------------------------------------------------------------------------------------------------------------------------------
;
; testerror1.lsp
;
;-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
;
( defun c:testerror1 ( / )
 
; Die Fehlerbehandlung vorbereiten 
  (setq ferrorsav *error*)     ; bisherigen Errorhandler sichern
  (setq *error* error_acadwe)  ; neuen Errorhandler setzen
  (*push-error-using-command*) ; Start der Ausführung
  
; Den Beginn der Gruppe für den AutoCAD-Befehl "zurück" setzen 
  (vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))


  (/ 2.0 0)
  

; 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
  (*pop-error-mode*) ; Ende der Ausführung von *push-error-using-command*
  
; Rückgabewert
  (princ)

) ; Modulende