[REFACTOR] VF: 10-Feld-Eingabe-Entpackblock zentralisiert

Der identische (setq deltaL (nth 0 eingabe) ...)-Block mit 10 Feldern stand 4x
(vf_standard: vfs-standard-dialog-ablauf + c:VARIOFOERDERER_EDIT, vf_etage:
vfe-etage-dialog-ablauf + vfe-edit-ent).

Neu in vf_core.lsp: *vf-basis-eingabe-felder* (zentrale Feldreihenfolge) +
vf-basis-eingabe-entpacken (set 'sym wert auf die dyn.-skopten Aufrufer-Locals).
Alle 4 Aufrufer deklarieren die 10 Namen weiterhin in ihrer /-Liste.

Reines Refactoring, identisches Verhalten. Paren-Balance geprueft.

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

Lisp/vf_etage.lsp

@@ -901,16 +901,7 @@
   (if (null eingabe)
     (princ (ssg-text "vfc-vorgang-abgebrochen"))
     (progn
-      (setq deltaL   (nth 0 eingabe)
-            deltaH   (nth 1 eingabe)
-            richtung (nth 2 eingabe)
-            z-start  (nth 3 eingabe)
-            hz       (nth 4 eingabe)
-            seite    (nth 5 eingabe)
-            dim                 (nth 6 eingabe)
-            geruest-einzelmodul (nth 7 eingabe)
-            geruest-typ         (nth 8 eingabe)
-            motorseite          (nth 9 eingabe))
+      (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)
@@ -957,16 +948,7 @@
   (if (null eingabe)
     (princ (ssg-text "vfc-vorgang-abgebrochen"))
     (progn
-      (setq deltaL   (nth 0 eingabe)
-            deltaH   (nth 1 eingabe)
-            richtung (nth 2 eingabe)
-            z-start  (nth 3 eingabe)
-            hz       (nth 4 eingabe)
-            seite    (nth 5 eingabe)
-            dim                 (nth 6 eingabe)
-            geruest-einzelmodul (nth 7 eingabe)
-            geruest-typ         (nth 8 eingabe)
-            motorseite          (nth 9 eingabe))
+      (vf-basis-eingabe-entpacken eingabe)
       (setq startpunkt (list (car startpunkt) (cadr startpunkt) z-start))
 
       (setq best-winkel-attr (atoi (cond ((cdr (assoc "VF_WINKEL" attribs))) ("0"))))