Varioförderer Aufbau enthält jetzt einen Historien Stack. Beim Abbruch können alle Elemente wiederhergestellt werden und dann einfach weiter gebaut.

Lisp/vf_core.lsp

@@ -1273,13 +1273,19 @@
       (princ "\n  1 - Manuelle Eingabe (Punkte klicken)")
       (princ "\n  2 - 3D-Objekte + Ziel-Hoehe (Randwert-Solver, fertig)")
       (princ "\n  3 - 3D-Objekte stueckweise (Vorwaerts-Nachbau, in Arbeit)")
-      (setq wahl (getint "\nIhre Wahl (1/2/3) [1]: "))
+      ;; Option 4 nur anbieten, wenn ein abgebrochener Linienzug fortsetzbar ist.
+      (if (and (boundp '*vfl-journal-letzter-abbruch*) *vfl-journal-letzter-abbruch*)
+        (princ (ssg-text "vfc-linienzug-modus-fortsetzen")))
+      (setq wahl (getint "\nIhre Wahl (1/2/3/4) [1]: "))
       ;; Konsolen-Nummer -> interne Funktion:
       ;;   2 = fertiger Ziel-Hoehe-Modus (intern vf-linienzug-modus2)
       ;;   3 = alter Vorwaerts-Nachbau  (intern vf-linienzug-modus3, wird umgebaut)
+      ;;   4 = zuletzt abgebrochene Kette fortsetzen (Replay + interaktiv weiter)
+      ;;   1/Default = frische manuelle Eingabe (Journal vorher zuruecksetzen)
       (cond ((= wahl 2) (vf-linienzug-modus2))
             ((= wahl 3) (vf-linienzug-modus3))
-            (t          (vf-linienzug-modus)))
+            ((= wahl 4) (vfl-modus-fortsetzen))
+            (t          (vfl-journal-reset) (vf-linienzug-modus)))
       (exit)
     )
   )