(vl-load-com)

; Bestehenden Reaktor löschen
(if layoutReactor (vlr-remove layoutReactor))

(setq layoutReactor (vlr-miscellaneous-reactor nil '((:vlr-layoutSwitched . zoomV24Final))))

(defun zoomV24Final (reactor layoutName / doc)
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  
  (if (= (getvar "TILEMODE") 0)
    (progn
      ; Fokus auf Papierbereich
      (setvar "CVPORT" 1)
      
      ; Auswahl aufheben, um Fokus vom Tab zu nehmen
      (sssetfirst nil nil)
      
      ; Zoom asynchron senden mit ESC (Chr 27) um Umbenennen zu killen
      (vla-sendcommand doc (strcat (chr 27) (chr 27) "_.ZOOM _E "))
    )
  )
  (princ)
)
(princ "\nLayout-Zoom-Skript erfolgreich geladen.")
(princ)