[REFACTOR] VF: Standard/Etage-Dialog-Ablauf vereint (vf-dialog-ablauf)

vfs-standard-dialog-ablauf/-berechnen-einfuegen und vfe-etage-dialog-ablauf/
-berechnen-einfuegen waren strukturell 1:1-Kopien (~200 Zeilen), Unterschiede
nur: Berechnungs-/Einfuege-Funktion, XDATA-Marker, horizontale Zwischenstrecke.

Neu in vf_core:
- vf-registry-berechne-fn/-einfuege-fn: Registry-Accessoren (berechne-fn/
  einfuege-fn kommen ohnehin aus *vf-typ-registry* pro Typ)
- vf-dialog-berechnen-einfuegen (typ ... horizontal-p): gemeinsamer Ablauf,
  horizontal-p T=Standard (mit Zwischenstrecke), nil=Etage
- vf-dialog-ablauf (typ vf-nummer horizontal-p): gemeinsame Neuanlage

Die vfs-*/vfe-*-Namen bleiben als duenne Wrapper (Doppelklick-Edit-Dispatch +
Gefaellestrecke-Aufruf vfs-standard-dialog-berechnen-einfuegen unveraendert,
gleiche Arity/Rueckgabe). XDATA-Schreiben identisch (vfs-xdata-schreiben war
schon (vf-edit-xdata-schreiben ent "standard" hz)).

-45 Zeilen netto, eine gemeinsame Implementierung. Paren-Balance geprueft.
Beruehrt Bau -> BricsCAD-Test Standard+Etage (Neuanlage + Doppelklick-Edit).

Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>

Lisp/vf_etage.lsp

@@ -738,89 +738,18 @@
 ;; seite), Einfuegung ueber etage-foerderanlage-einfuegen, KEINE horizontale
 ;; Zwischenstrecke (Winkel-Sentinel 0). XDATA-Marker "etage".
 
-;; Gemeinsame Berechnung + Winkel/Verteilung-Dialog + Einfuegung.
-;; Wird von der Neuanlage (vfe-etage-dialog-ablauf) und vom Edit (vfe-edit-ent)
-;; genutzt. winkel-prefill: Vorbelegung fuer vfs-dialog-winkel-verteilung oder nil.
-;; Analog vfs-standard-dialog-berechnen-einfuegen in vf_standard.lsp.
+;; Duenner Wrapper auf den gemeinsamen vf-dialog-berechnen-einfuegen (vf_core).
+;; Etage = OHNE horizontale Zwischenstrecke (horizontal-p nil).
 (defun vfe-etage-dialog-berechnen-einfuegen (vf-nummer deltaL deltaH richtung startpunkt hz seite
-                                             winkel-prefill geruest-einzelmodul geruest-typ /
-                                             ergebnis ergebnis-liste gueltige-winkel
-                                             winkelwahl best-winkel L_GF L_VF L_GF1 L_GF2 verteilung-modus
-                                             n-scanner hoehe-von hoehe-bis lastEnt vf-insert vf-endpunkt
-                                             staustrecke-basis)
-  (setq ergebnis          (berechne-etage deltaL deltaH richtung seite))
-  (setq ergebnis-liste    (cadddr ergebnis))
-  (setq staustrecke-basis (ssg-cfg-or "vario" "staustrecke_basis" 1000))
-
-  (setq gueltige-winkel
-    (mapcar 'car
-      (vl-remove-if-not
-        (function (lambda (e) (and (nth 3 e) (numberp (nth 1 e)) (numberp (nth 2 e))
-                                   (>= (nth 1 e) 0) (>= (nth 2 e) 0))))
-        ergebnis-liste)))
-
-  (if (null gueltige-winkel)
-    (alert (ssg-textf "vfc-alert-kein-winkel"
-             (list (chr 916) (rtos deltaL 2 0) (rtos deltaH 2 0) richtung)))
-    (progn
-      (setq winkelwahl (vfs-dialog-winkel-verteilung gueltige-winkel ergebnis-liste staustrecke-basis winkel-prefill))
-      (if (null winkelwahl)
-        (princ (ssg-text "vfc-vorgang-abgebrochen"))
-        (progn
-          (setq best-winkel      (nth 0 winkelwahl)
-                L_GF             (nth 1 winkelwahl)
-                L_VF             (nth 2 winkelwahl)
-                L_GF1            (nth 3 winkelwahl)
-                L_GF2            (nth 4 winkelwahl)
-                verteilung-modus (nth 5 winkelwahl))
-          (setq n-scanner 0)
-          (setq hoehe-von (caddr startpunkt))
-          (setq hoehe-bis
-            (cond ((= richtung "Auf") (+ hoehe-von deltaH))
-                  ((= richtung "Ab")  (- hoehe-von deltaH))
-                  (t hoehe-von)))
-          (setq lastEnt (vf-lastent-ohne-attribute))
-          (setq vf-endpunkt
-            (etage-foerderanlage-einfuegen deltaL deltaH richtung best-winkel L_GF1 L_GF2 L_VF startpunkt seite hz))
-          (setq vf-insert
-            (vf-block-erstellen "etage" seite vf-nummer n-scanner
-                                 hoehe-von hoehe-bis deltaH deltaL L_VF L_GF1 L_GF2
-                                 richtung best-winkel startpunkt lastEnt hz
-                                 geruest-einzelmodul geruest-typ))
-          (if vf-insert (vf-edit-xdata-schreiben vf-insert "etage" hz))
-          (princ "\n=========================================")
-        )
-      )
-    )
-  )
-  (list vf-insert vf-endpunkt)
-)
+                                             winkel-prefill geruest-einzelmodul geruest-typ)
+  (vf-dialog-berechnen-einfuegen "etage" vf-nummer deltaL deltaH richtung startpunkt hz seite
+    winkel-prefill geruest-einzelmodul geruest-typ nil))
 
 ;; Neuanlage (Menue/Konsole -> Dialog): Startpunkt (X/Y) picken, Basis-Dialog,
 ;; dann gemeinsame Berechnung/Winkel-Dialog/Einfuegung.
 ;; Analog vfs-standard-dialog-ablauf in vf_standard.lsp.
-(defun vfe-etage-dialog-ablauf (vf-nummer / eingabe deltaL deltaH richtung
-                                 z-start hz seite startpunkt startpunkt-xy dim
-                                 geruest-einzelmodul geruest-typ motorseite)
-  (setq startpunkt-xy (getpoint (ssg-text "vfc-prompt-startpunkt-aus")))
-  (if (null startpunkt-xy) (setq startpunkt-xy '(0 0 0)))
-
-  (setq eingabe (vfs-dialog-eingabe-basis nil))
-  (if (null eingabe)
-    (princ (ssg-text "vfc-vorgang-abgebrochen"))
-    (progn
-      (vf-basis-eingabe-entpacken eingabe)
-      (setq startpunkt (list (car startpunkt-xy) (cadr startpunkt-xy) z-start))
-      ;; Gewaehlte Dimension (2D/3D) + Motorseite fuer den Bau erzwingen, danach zurueck.
-      (setq *ssg-ils-dim* dim)
-      (setq *vf-motorseite* motorseite)
-      (vfe-etage-dialog-berechnen-einfuegen vf-nummer deltaL deltaH richtung startpunkt hz seite nil
-        geruest-einzelmodul geruest-typ)
-      (setq *ssg-ils-dim* nil)
-      (setq *vf-motorseite* nil)
-    )
-  )
-)
+(defun vfe-etage-dialog-ablauf (vf-nummer)
+  (vf-dialog-ablauf "etage" vf-nummer nil))
 
 ;; Edit eines bestehenden Etage-VF-Blocks (VF_n mit SSG_VF_EDIT-XDATA "etage").
 ;; Wird von c:VARIOFOERDERER_EDIT (vf_standard.lsp) per Typ-Dispatch gerufen und