VF-Linienzug/Edit: Praeambel, Debug-Session und Edit-Attributleser buendeln

Punkt 2 (vf_linienzug.lsp) - die drei Modi teilen jetzt zwei Praeambel-Helfer
statt sie wortgleich auszuschreiben:
- vfl-dbg-session-start (schalter datei funcname sessiontext): oeffnet die
  dbg-Datei + schreibt Kopf/Session-Start. M1 haengt seinen Replay-Queue-
  Diagnose-Zusatz danach an (M1-spezifisch).
- vfl-dbg-hook-installieren: der fruehe duenne dbg-*error*-Hook (M2/M3),
  Lambda mit dynamic-scope-Vertrag wie vfl-abbruch-handler-installieren.
- vfl-frage-punkt-hoehe (punkt-key hoehe-key abbruch-key wizard-prompt):
  Startpunkt/Hoehe-Praeambel (Wizard-Hook + vfl-in-point + vfl-in-real + Z
  uebernehmen, (exit) bei Abbruch). Genutzt fuer Startpunkt in M1/M2/M3 UND
  den Endpunkt in M2 (vier Aufrufstellen, vorher 4x strukturgleich).

Punkt 3 (vf_standard.lsp / vf_etage.lsp) - der wortgleiche Attribut-Lese- +
prefill-basis-Aufbau der beiden Edit-Bodies (c:VARIOFOERDERER_EDIT,
vfe-edit-ent) in vfs-edit-basis-lesen (ent xd default-deltah default-seite)
zusammengefasst; die zwei abweichenden Defaults sind Parameter. Gibt eine
Alist (prefill-basis + Rohwerte attribs/startpunkt/hz/z-start) zurueck.
vf-konvertiere-ent BEWUSST nicht mit zusammengelegt - andere Zielstruktur
(Einzelwerte + L_VF/L_GF fuer den Batch-Konverter), Zusammenfuehrung wuerde
beide verkomplizieren.

243/243 LISP-Unit-Tests gruen; Python-Suite unveraendert zur Baseline
(11 failed); Klammerbalance geprueft. Verhaltensneutrale Extraktionen.

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

Lisp/vf_etage.lsp

@@ -727,27 +727,20 @@
 (defun vfe-edit-ent (ent / ed bname startpunkt attribs xd
                       deltaL deltaH richtung z-start hz seite dim
                       eingabe vf-nummer best-winkel-attr L_GF_m-teile
-                      prefill-basis prefill-winkel
+                      prefill-basis prefill-winkel basis-lesung
                       geruest-einzelmodul geruest-typ motorseite)
   (setq ed    (entget ent))
   (setq bname (cdr (assoc 2 ed)))
   (setq xd (vfs-xdata-lesen ent))
-  (setq startpunkt (cdr (assoc 10 ed)))
-  (setq attribs    (ssg-attrib-read ent))
-  (setq hz         (atof (nth 1 xd)))
-  (setq deltaL     (atof (cond ((cdr (assoc "DELTA_L_mm" attribs))) ("15000"))))
-  (setq deltaH     (atof (cond ((cdr (assoc "DELTA_H_mm" attribs))) ("0"))))
-  (setq richtung   (cond ((cdr (assoc "ANTRIEBFAHRTRICHTUNG" attribs))) ("Auf")))
-  (setq seite      (cond ((cdr (assoc "SEITE_AS" attribs))) ("links")))
-  (setq z-start    (caddr startpunkt))
-
-  (setq prefill-basis
-    (list (cons "deltaL" deltaL) (cons "deltaH" deltaH) (cons "richtung" richtung)
-          (cons "einfuegehoehe" z-start) (cons "hz" hz) (cons "seite" seite)
-          (cons "dim" (cond ((ssg-dim-xdata-lesen ent)) ("3D")))
-          (cons "geruest-einzelmodul" (cond ((cdr (assoc "GERUEST_EINZELMODUL" attribs))) ("1")))
-          (cons "geruest-typ" (cdr (assoc "GERUEST_TYP" attribs)))
-          (cons "motorseite" (cond ((cdr (assoc "MOTORSEITE" attribs))) ("rechts")))))
+  ;; Bau-Parameter + prefill-basis lesen (gemeinsame Leseroutine in
+  ;; vf_standard.lsp, siehe vfs-edit-basis-lesen). Etage-Defaults: deltaH "0",
+  ;; Seite "links".
+  (setq basis-lesung  (vfs-edit-basis-lesen ent xd "0" "links"))
+  (setq prefill-basis (cdr (assoc "prefill-basis" basis-lesung)))
+  (setq attribs       (cdr (assoc "attribs"       basis-lesung)))
+  (setq startpunkt    (cdr (assoc "startpunkt"    basis-lesung)))
+  (setq hz            (cdr (assoc "hz"            basis-lesung)))
+  (setq z-start       (cdr (assoc "z-start"       basis-lesung)))
 
   (setq eingabe (vfs-dialog-eingabe-basis prefill-basis))
   (if (null eingabe)