Wizard mit Oberflächenstückwerk für den Mode 3 für den VF gebaut

Lisp/vf_standard.lsp

@@ -1197,10 +1197,11 @@
   ;; Marker (Linienzug/Altbestand) werden abgewiesen.
   (if (= (car xd) "etage")
     (progn (vfe-edit-ent ent) (ssg-end) (exit)))
-  ;; Linienzug-Bloecke tragen als Marker "linienzug" + serialisiertes Eingabe-
-  ;; Journal (vf_linienzug.lsp). Der Edit-Zweig laesst Glieder zuruecknehmen und
-  ;; baut die Kette per Replay neu auf.
-  (if (= (car xd) "linienzug")
+  ;; Linienzug-Bloecke tragen als Marker "linienzug" (Modus 1) oder
+  ;; "linienzug2" (Modus 2) + serialisiertes Eingabe-Journal (vf_linienzug.lsp).
+  ;; vfl-edit-ent liest den Marker selbst erneut und dispatcht intern weiter
+  ;; (Modus 1: Glieder zuruecknehmen + Replay; Modus 2: voller Reset).
+  (if (member (car xd) '("linienzug" "linienzug2"))
     (progn (vfl-edit-ent ent) (ssg-end) (exit)))
   (if (/= (car xd) "standard")
     (progn (alert (ssg-textf "vfs-edit-keine-xdata" (list bname))) (ssg-end) (exit)))