(defun after_Fen (reatyp befname / )                                     ;Wenn Fensterbefehl beendet wird
  (setq befname (car befname))                                           ;Befehlname
   (if (wcmatch befname "AECWINDOWADD")                                  ;Prüfen ob - Fenster einfügen-
   (progn (setq ph (last (cdr(assoc 10 (entget(entlast))))))             ;Brüstungshöhe auslesen
          (alert (strcat "Brüstungshöhe des Fensters : " (rtos PH 2 2))) ;INFO ANZEIGEN 2-Stellig
    )                                                                    ;Endprogn
  )                                                                      ;Endif
  )                                                                      ;Enddefun

(defun reaload ()                                                        ;Initialisierung des Reactors
  (if (not *DEFUN_FENBH*)
    (progn
      (setq *DEFUN_FENBH*
            (VLR-Command-Reactor "*DEFUN_FENBH*"
              '((:vlr-commandEnded . after_Fen))                         ;Bei Befehlende - Subprogramm after_Fen starten
              )
            )
      (princ "\nFensterbrüstung anzeigen aktiviert")
      )                                                                  ;Endprogn
    )                                                                    ;Endif
  )                                                                      ;Enddefun
(reaload)                                                                ;Programm nach Lispladen gleich starten