[CHANGE] Streckengruppe-Menue in Werte-manuell/Zielhoehe/Stueckweise aufgeteilt, QC-Linien unter Gefaellestrecke verschoben, Linienzug-Wizard "Naechstes Element" neu sortiert (GF vor VF) mit eigenem Abschliessen-Knopf statt Kettenende-Radio

Lisp/vf_core.lsp: fuenf eigene Menue-Wrapper (LinienzugVarioFoerdererManuell/-Zielhoehe/-Stueckweise, QcLinieMitGf/-UForm) ersetzen den alten interaktiven Modus-Dialog; vfc-dialog-linienzug-modus-waehlen entfaellt.
dcl/vf_linienzug_wizard.dcl + Lisp/vf_linienzug.lsp: "Neue Linie BIS Kettenende" ist kein Radio mehr, sondern eigener Button "OK und Abschliessen" neben "Ok Weiter"; GF-Optionen stehen vor VF-Optionen.
Menue (SSG_LIB.mnu/.cui), lang/*.json, doc/kommandos.md, doc/lisp_methods.md, doc/faq.md nachgezogen.

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>

Lisp/vf_core.lsp

@@ -80,6 +80,11 @@
 ;; Von den Menue-Wrappern gesetzt, damit die Konsolen-/Dialog-Frage
 ;; entfaellt. nil = interaktiv fragen (Direktaufruf VarioFoerderer).
 (if (null *vf-vorauswahl-eingabemodus*) (setq *vf-vorauswahl-eingabemodus* nil))
+;; Vorauswahl des Linienzug-Modus (1-5): von jedem der fuenf Linienzug-
+;; Menue-Wrapper (c:LinienzugVarioFoerdererManuell/-Zielhoehe/-Stueckweise,
+;; c:QcLinieMitGf/-UForm) gesetzt - der frueher hier noetige Modus-Dialog/
+;; Konsolen-Fallback ist dadurch komplett entfallen (siehe c:VarioFoerderer).
+(if (null *vf-vorauswahl-linienzug-modus*) (setq *vf-vorauswahl-linienzug-modus* nil))
 
 ;; Registriert einen Foerderanlagen-Typ.
 ;; berechne-fn:  '(lambda (deltaL deltaH richtung seite) ...)
@@ -1108,14 +1113,14 @@
 )
 
 ;; ============================================================
-;; TEIL 11b: DIALOG-AUSWAHL FUER TYP/LINIENZUG-MODUS (Radio-Buttons)
+;; TEIL 11b: DIALOG-AUSWAHL FUER TYP (Radio-Buttons)
 ;; ============================================================
-;; Ersetzen die beiden Konsolen-Listen am Anfang von c:VarioFoerderer durch
+;; Ersetzt die Konsolen-Liste am Anfang von c:VarioFoerderer durch einen
-;; Radio-Button-Dialoge (dcl/variofoerderer.dcl, vfc_typ/vfc_linienzug_modus)
+;; Radio-Button-Dialog (dcl/variofoerderer.dcl, vfc_typ) - alle Optionen
-;; - alle Optionen sofort sichtbar statt Dropdown. WICHTIG: Radio-Button-
+;; sofort sichtbar statt Dropdown. WICHTIG: Radio-Button-
 ;; Labels sind im DCL fest auf Deutsch einprogrammiert (set_tile kann das
 ;; Label eines radio_button nicht setzen, nur den Zustand - siehe DCL-
-;; Kommentar). Beide Funktionen geben deshalb nur dann etwas anderes als nil
+;; Kommentar). Die Funktion gibt deshalb nur dann etwas anderes als nil
 ;; zurueck, wenn GUI erlaubt ist (Tests: ssg-gui-aus) UND Deutsch aktiv ist -
 ;; sonst faellt der Aufrufer automatisch auf die alte, vollstaendig
 ;; uebersetzte Konsolen-Liste zurueck (unveraendert im Code stehen
@@ -1161,47 +1166,11 @@
   )
 )
 
-;; "Zurueck" springt zur Anlagen-Typ-Frage zurueck - Rueckgabe 'ZURUECK, vom
-;; Aufrufer (c:VarioFoerderer) ausgewertet (dort erneuter Aufruf von
-;; vfc-dialog-typ-waehlen statt hier lokal aufzuloesen).
-(defun vfc-dialog-linienzug-modus-waehlen ( / dcl-pfad dat gmodus ergebnis)
-  (if (and (or (not (car (atoms-family 1 '("SSG-GUI-P")))) (ssg-gui-p))
-           (= *ssg-lang* "de_DE"))
-    (progn
-      (setq dcl-pfad (strcat (getenv "DXFM_DCL") "/variofoerderer.dcl"))
-      (setq dat (load_dialog dcl-pfad))
-      (if (not (new_dialog "vfc_linienzug_modus" dat))
-        (progn (if (and dat (>= dat 0)) (unload_dialog dat)) nil)
-        (progn
-          (set_tile "modus_1" "1")
-          (action_tile "accept"
-            "(setq gmodus (cond ((= (get_tile \"modus_2\") \"1\") 2)
-                                ((= (get_tile \"modus_3\") \"1\") 3)
-                                ((= (get_tile \"modus_4\") \"1\") 4)
-                                ((= (get_tile \"modus_5\") \"1\") 5)
-                                (t 1)))
-             (done_dialog 1)")
-          (action_tile "cancel" "(done_dialog 0)")
-          (action_tile "back" "(done_dialog 2)")
-          (setq ergebnis (start_dialog))
-          (unload_dialog dat)
-          (cond
-            ((= ergebnis 1) gmodus)
-            ((= ergebnis 2) 'ZURUECK)
-            (t 'ABBRUCH)
-          )
-        )
-      )
-    )
-    nil
-  )
-)
-
 ;; ============================================================
 ;; TEIL 12: DISPATCHER c:VarioFoerderer
 ;; ============================================================
-;; Erzwungener QC-Modus (Linienzug-Modus 4/5, vfc-dialog-linienzug-modus-
+;; Erzwungener QC-Modus (Linienzug-Modus 4/5, siehe *vf-vorauswahl-linienzug-
-;; waehlen/Konsolen-Fallback unten): "4"/"5" waehrend des naechsten
+;; modus* oben/c:QcLinieMitGf*): "4"/"5" waehrend des naechsten
 ;; vf-linienzug-modus-Laufs, sonst nil. Von vf-linienzug-modus (vf_linienzug.
 ;; lsp, spaeter geladen) gelesen/geleert - globale Vorab-Deklaration hier,
 ;; damit sie unabhaengig von der Lade-Reihenfolge existiert.
@@ -1213,7 +1182,7 @@
                             best-winkel L_GF L_GF1 L_GF2 L_VF
                             idx eintrag wahl antwort verteilung-modus
                             n-scanner vf-nummer hoehe-von hoehe-bis lastEnt
-                            staustrecke-basis vf-insert dlg-typ dlg-modus zurueck-zu-typ)
+                            staustrecke-basis vf-insert dlg-typ zurueck-zu-typ)
 
   (princ "\n=========================================")
   (princ (ssg-text "vfc-banner-titel"))
@@ -1272,24 +1241,13 @@
     ;; Kette mit gemischten GF/VF-Segmenten), passt nicht in das berechne-fn/
     ;; einfuege-fn-Schema fuer ein einzelnes durchgehendes Segment - siehe
     ;; vf_linienzug.lsp. Dispatcht hier direkt und beendet den Standard-Ablauf.
+    ;; Jeder Aufrufer (Menue-Wrapper c:LinienzugVarioFoerderer*/c:QcLinieMitGf*)
+    ;; setzt *vf-vorauswahl-linienzug-modus* VOR dem Aufruf - der frueher
+    ;; hier gefuehrte Modus-Dialog/Konsolen-Fallback ist dadurch entfallen.
     (if (= anlage-typ "linienzug")
       (progn
-        (setq dlg-modus (vfc-dialog-linienzug-modus-waehlen))
+        (setq wahl *vf-vorauswahl-linienzug-modus*
-        (cond
+              *vf-vorauswahl-linienzug-modus* nil)
-          ((eq dlg-modus 'ABBRUCH) (exit))
-          ((eq dlg-modus 'ZURUECK) (setq zurueck-zu-typ t))
-          (dlg-modus (setq wahl dlg-modus))
-          (t
-            ;; Dialog nicht verfuegbar/nicht erlaubt - alte Konsolen-Liste.
-            (princ (ssg-text "vfc-linienzug-modus-header"))
-            (princ (ssg-text "vfc-linienzug-modus-1"))
-            (princ (ssg-text "vfc-linienzug-modus-2"))
-            (princ (ssg-text "vfc-linienzug-modus-3"))
-            (princ (ssg-text "vfc-linienzug-modus-4"))
-            (princ (ssg-text "vfc-linienzug-modus-5"))
-            (setq wahl (getint (ssg-text "prompt-wahl-1-5")))
-          )
-        )
         (if (not zurueck-zu-typ)
           (progn
             ;; Konsolen-Nummer -> interne Funktion:
@@ -1540,7 +1498,6 @@
 
 ;; Menue-Wrapper: jeder feste Endpunkt der VarioFoerderer-Erzeugung ist
 ;; direkt aufrufbar (Typ + Eingabemodus vorbelegt, keine Rueckfrage).
-;; Nur der Linienzug fragt intern noch Modus 1/2/3 (komplexer Fall).
 ;;   Eingabemodus-Vorauswahl: "2" = Werte manuell (DCL-Dialog),
 ;;                            "1" = aus 3D-Linie (Linie picken).
 
@@ -1568,9 +1525,34 @@
   (c:VarioFoerderer)
 )
 
-;; --- Linienzug (bleibt interaktiv: fragt Modus 1/2/3) ---
+;; --- Linienzug/Streckengruppe (Modus 1/2/3, Typ+Modus vorbelegt) ---
-(defun c:LinienzugVarioFoerderer ()
+(defun c:LinienzugVarioFoerdererManuell ()
-  (setq *vf-vorauswahl-typ* "linienzug")
+  (setq *vf-vorauswahl-typ* "linienzug"
+        *vf-vorauswahl-linienzug-modus* 1)
+  (c:VarioFoerderer)
+)
+(defun c:LinienzugVarioFoerdererZielhoehe ()
+  (setq *vf-vorauswahl-typ* "linienzug"
+        *vf-vorauswahl-linienzug-modus* 2)
+  (c:VarioFoerderer)
+)
+(defun c:LinienzugVarioFoerdererStueckweise ()
+  (setq *vf-vorauswahl-typ* "linienzug"
+        *vf-vorauswahl-linienzug-modus* 3)
+  (c:VarioFoerderer)
+)
+
+;; --- QC-Linie (Linienzug-Modus 4/5, Typ+Modus vorbelegt) ---
+;; Menue: ILS -> Gefaellestrecke (gehoeren inhaltlich dorthin, technisch
+;; weiterhin ueber den Linienzug-Ablauf/*vfl-forciere-qc-modus* gebaut).
+(defun c:QcLinieMitGf ()
+  (setq *vf-vorauswahl-typ* "linienzug"
+        *vf-vorauswahl-linienzug-modus* 4)
+  (c:VarioFoerderer)
+)
+(defun c:QcLinieMitGfUForm ()
+  (setq *vf-vorauswahl-typ* "linienzug"
+        *vf-vorauswahl-linienzug-modus* 5)
   (c:VarioFoerderer)
 )
 

Lisp/vf_linienzug.lsp

@@ -1516,11 +1516,11 @@
   (princ))
 
 ;; "Naechstes Element waehlen" - Hauptmenue des Linienzug-Aufbaus (Modus 1).
-;; Kettenanfang (frame=nil): alle 6 Optionen waehlbar, Vario-Kurve inklusive
+;; Kettenanfang (frame=nil): alle 5 Radio-Optionen waehlbar, Vario-Kurve
-;; (kann nur als allererstes Kettenglied gewaehlt werden - siehe Kommentar an
+;; inklusive (kann nur als allererstes Kettenglied gewaehlt werden - siehe
-;; der Aufrufstelle). Sonst (Frame vorhanden): Vario-Kurve per mode_tile
+;; Kommentar an der Aufrufstelle). Sonst (Frame vorhanden): Vario-Kurve per
-;; deaktiviert, die uebrigen 5 Optionen behalten dieselbe Reihenfolge/
+;; mode_tile deaktiviert, die uebrigen 4 Optionen behalten dieselbe
-;; Bedeutung wie im Konsolen-Menue, nur ohne die Luecke. Pusht die
+;; Reihenfolge/Bedeutung wie im Konsolen-Menue, nur ohne die Luecke. Pusht die
 ;; POSITIONELLE Antwort ("1".."6" bzw. "1".."5"), identisch zur bisherigen
 ;; Konsolen-Nummerierung, damit Journal/Replay unveraendert bleiben - die
 ;; Radio-Buttons selbst tragen daher STABILE, kontextunabhaengige Keys
@@ -1531,8 +1531,11 @@
 ;; - eindeutig als VF erkannt (Startpunkt liegt auf einer bestehenden
 ;; VF-Kette) macht "GF-Bogen"/"Neue Linie: GF" als DIREKTE Fortsetzung keinen
 ;; Sinn (kein GF-Baustein wird an dieser Stelle einfach an ein VF-Teil
-;; angeflanscht) - diese beiden Optionen werden dann ausgegraut. "Neue Linie
+;; angeflanscht) - diese beiden Optionen werden dann ausgegraut.
-;; BIS Kettenende" bleibt immer waehlbar (hat ihre eigene GF/VF-Erkennung).
+;; "Neue Linie BIS Kettenende" ist kein Radio mehr, sondern der eigene Button
+;; "abschliessen" (done_dialog 3) - er setzt slot direkt auf 6 und ignoriert
+;; die aktuelle Radio-Auswahl (hat ihre eigene GF/VF-Erkennung, bleibt daher
+;; immer waehlbar, auch wenn GF-Bogen/Neue Linie: GF ausgegraut sind).
 (defun vflw-gruppe-naechstes-element-impl (kettenanfang familie / dat ergebnis slot gwahl)
   (setq dat (load_dialog (vflw-dcl-pfad)))
   (if (not (new_dialog "vflw_naechstes_element" dat))
@@ -1551,15 +1554,15 @@
                           ((= (get_tile \"wahl_variokurve\") \"1\") 2)
                           ((= (get_tile \"wahl_linievf\") \"1\") 4)
                           ((= (get_tile \"wahl_horizontalvf\") \"1\") 5)
-                          ((= (get_tile \"wahl_linieende\") \"1\") 6)
                           (t 3)))
          (done_dialog 1)")
+      (action_tile "abschliessen" "(setq slot 6) (done_dialog 3)")
       (action_tile "cancel" "(done_dialog 0)")
       (action_tile "back" "(done_dialog 2)")
       (setq ergebnis (start_dialog))
       (unload_dialog dat)
       (cond
-        ((= ergebnis 1)
+        ((or (= ergebnis 1) (= ergebnis 3))
          (setq gwahl (if (or kettenanfang (<= slot 2)) slot (1- slot)))
          (vflw-pending-push-all (list (itoa gwahl))))
         ((= ergebnis 2) (setq *vfl-wizard-abbruch-grund* "zurueck"))

dcl/variofoerderer.dcl

@@ -3,14 +3,16 @@
 // Dialoge fuer c:VarioFoerderer (vf_core.lsp):
 //   vfc_typ: Anlagen-Typ waehlen (Standard/Etage/Linienzug) - ersetzt die
 //     Konsolen-Liste am Befehlsanfang. Radio-Buttons statt Dropdown, daher
-//     Labels FEST auf Deutsch (siehe Kommentar bei vfc_linienzug_modus).
+//     Labels FEST auf Deutsch.
-//   vfc_linienzug_modus: NUR bei Typ "Linienzug" - Modus 1/2/3 waehlen.
 //   variofoerderer_basis/variofoerderer_winkel: Werteingabe fuer den
 //     Standardfall (anlage-typ "standard"): deltaL, deltaH, Foerderrichtung,
 //     Einfuegehoehe, Fahrtrichtung, Seite, Winkel, GF-Verteilung.
 // Die 3D-Linie-Eingabe (Modus "3D-Linie"), der Etage-Typ und die
-// Linienzug-Kette selbst (nach der Modus-Wahl) bleiben interaktiv
+// Linienzug-Kette selbst bleiben interaktiv (Kommandozeile bzw. eigener
-// (Kommandozeile bzw. eigener Wizard in vf_linienzug_wizard.dcl).
+// Wizard in vf_linienzug_wizard.dcl). Der Linienzug-Modus (1/2/3/4/5) wird
+// seit den Menue-Wrappern c:LinienzugVarioFoerderer*/c:QcLinieMitGf* nicht
+// mehr per Dialog erfragt, sondern ist je Menuepunkt fest vorbelegt - der
+// frueher hier gefuehrte Dialog vfc_linienzug_modus ist dadurch entfallen.
 // ============================================================
 
 // Anlagen-Typ waehlen (Standard/Etage/Linienzug). Radio-Buttons statt
@@ -39,7 +41,7 @@ vfc_typ : dialog {
     }
     : radio_button {
       key = "typ_linienzug";
-      label = "3D-Linienzug (gemischte GF/VF-Kette)";
+      label = "Streckengruppe (gemischte GF/VF-Kette)";
     }
   }
 
@@ -57,50 +59,6 @@ vfc_typ : dialog {
   }
 }
 
-// Linienzug-Modus waehlen (nur wenn Anlagen-Typ = Linienzug). Radio-Buttons,
-// gleicher Deutsch-fest-Grund wie bei vfc_typ oben.
-vfc_linienzug_modus : dialog {
-  label = "VarioFoerderer - Linienzug Modus";
-
-  : boxed_radio_column {
-    label = "Linienzug-Modus waehlen:";
-    key = "modus";
-
-    : radio_button {
-      key = "modus_1";
-      label = "Manuelle Eingabe (Punkte klicken)";
-      value = "1";
-    }
-    : radio_button {
-      key = "modus_2";
-      label = "3D-Objekte + Ziel-Hoehe (Randwert-Solver, fertig)";
-    }
-    : radio_button {
-      key = "modus_3";
-      label = "3D-Objekte stueckweise (Vorwaerts-Nachbau, in Arbeit)";
-    }
-    : radio_button {
-      key = "modus_4";
-      label = "QC Linie mit GF (automatische Auf-Ab-Berechnung)";
-    }
-    : radio_button {
-      key = "modus_5";
-      label = "QC Linie mit GF und U-Form";
-    }
-  }
-
-  // "Zurueck" springt hier sinnvoll zur Anlagen-Typ-Frage zurueck (siehe
-  // vfc-dialog-linienzug-modus-waehlen/c:VarioFoerderer).
-  : row {
-    alignment = centered;
-    : button { key = "back";   label = "Zurueck";   fixed_width = true; width = 12; }
-    spacer;
-    : button { key = "accept"; label = "Ok Weiter";  is_default = true; fixed_width = true; width = 12; }
-    spacer;
-    : button { key = "cancel"; label = "Abbrechen";  is_cancel = true;  fixed_width = true; width = 12; }
-  }
-}
-
 variofoerderer_basis : dialog {
   label = "VarioFoerderer (Standard) - Eingabe";
 

dcl/vf_linienzug_wizard.dcl

@@ -523,12 +523,18 @@ vflw_horizontal : dialog {
 }
 
 // "Naechstes Element waehlen" - Hauptmenue des Linienzug-Aufbaus (Modus 1).
-// IMMER alle 6 Optionen im Dialog vorhanden (stabile Keys) - "Vario-Kurve"
+// IMMER alle 5 Optionen im Dialog vorhanden (stabile Keys) - "Vario-Kurve"
 // wird per mode_tile deaktiviert, wenn kein echter Kettenanfang vorliegt
 // (siehe vflw-gruppe-naechstes-element-impl, das dort auch die Positions-
 // Nummerierung passend umrechnet). Radio-Buttons statt Dropdown, Labels fest
 // deutsch, OHNE Nummern-Prefix (anders als die Konsolen-Variante - hier
-// braucht es keine Zifferneingabe).
+// braucht es keine Zifferneingabe). GF-Optionen stehen zuerst, VF-Optionen
+// danach (nur Reihenfolge, kein echtes 2-Spalten-Layout: radio_button-Tiles
+// muessen DIREKTE Kinder EINES Clusters sein, sonst ist die gegenseitige
+// Ausschliesslichkeit kaputt - siehe Warnung bei vflw_winkel_hoehen unten,
+// per Test bestaetigt). "Neue Linie BIS Kettenende" ist kein Radio mehr,
+// sondern der eigene Button "OK und Abschliessen" unten (ruft direkt Slot 6
+// auf, ohne vorher eine Radio-Auswahl zu verlangen).
 vflw_naechstes_element : dialog {
   label = "VarioFoerderer Assistent";
 
@@ -542,27 +548,29 @@ vflw_naechstes_element : dialog {
       key = "wahl";
       label = "";
       : radio_button { key = "wahl_gfbogen";      label = "GF-Bogen (horizontale Kurve)"; }
-      : radio_button { key = "wahl_variokurve";   label = "Vario-Kurve (horizontale Kurve, 30/60/90 Grad)"; }
       : radio_button { key = "wahl_liniegf";      label = "Neue Linie: GF (Gefaellestrecke)"; value = "1"; }
+      : radio_button { key = "wahl_variokurve";   label = "Vario-Kurve (horizontale Kurve, 30/60/90 Grad)"; }
       : radio_button { key = "wahl_linievf";      label = "Neue Linie: Ab/Auf VF (VarioFoerderer-Einheit)"; }
       : radio_button { key = "wahl_horizontalvf"; label = "Neue VF mit horizontalem Anfang (Horizontal-Stueck)"; }
-      : radio_button { key = "wahl_linieende";    label = "Neue Linie BIS Kettenende (danach Separator + ES-Element)"; }
     }
   }
 
   // PROTOTYP "Zurueck"-Button (siehe Plan curious-prancing-parasol.md): ersetzt
-  // ok_cancel durch eine eigene 3-Button-Zeile. done_dialog-Codes: 0=Abbrechen
+  // ok_cancel durch eine eigene 4-Button-Zeile. done_dialog-Codes: 0=Abbrechen
   // (unveraendert, is_cancel -> ESC/Leertaste wirkt weiterhin), 1=Weiter
-  // (unveraendert, is_default), NEU 2=Zurueck (verwirft das zuletzt gebaute
+  // (unveraendert, is_default), 2=Zurueck (verwirft das zuletzt gebaute
   // Kettenglied und fragt es neu ab, siehe vflw-gruppe-naechstes-element-impl/
-  // vfl-modus-abbruch-sichern).
+  // vfl-modus-abbruch-sichern), NEU 3=Abschliessen (entspricht der fruehen
+  // Radio-Option "Neue Linie BIS Kettenende" - ignoriert die Radio-Auswahl).
   : row {
     alignment = centered;
-    : button { key = "back";   label = "Zurueck";   fixed_width = true; width = 12; }
+    : button { key = "back";        label = "Zurueck";            fixed_width = true; width = 12; }
     spacer;
-    : button { key = "accept"; label = "Ok Weiter";     is_default = true; fixed_width = true; width = 12; }
+    : button { key = "accept";      label = "Ok Weiter";           is_default = true; fixed_width = true; width = 12; }
     spacer;
-    : button { key = "cancel"; label = "Abbrechen";  is_cancel = true;  fixed_width = true; width = 12; }
+    : button { key = "abschliessen"; label = "OK und Abschliessen"; fixed_width = true; width = 18; }
+    spacer;
+    : button { key = "cancel";      label = "Abbrechen";           is_cancel = true;  fixed_width = true; width = 12; }
   }
 }
 

doc/faq.md

@@ -136,6 +136,12 @@ Durch einen Doppelklick auf den Kreisel und der Eingabe des neuen Abstands im Be
 
 ## 2. Gefällestrecke
 
+- einfach
+- aus 3D Linie
+- aus Linienzug
+- QC mit 30 Grad ES/AS 
+- QC mit 90 Grad ES/AS
+  
 ### 2.1 Zusammensetzung, Abhängigkeiten, Randbedingungen
 
 #### Zusammensetzung einer Gefällestrecke
@@ -187,6 +193,29 @@ Durch einen Doppelklick auf die Gefällestrecke und Eingabe der neuen Länge im
 
 ## 3. Varioförderer
 
+Varioförderer können auf verschiedene Arten gebaut werden:
+
+1. Standard
+2. Etage
+3. Variabel
+     - Manuelle Eingabe
+     - 3D-OBjekte mit Ziel-höhe
+     - 3D Objekte Stückweise (wird gerade noch implementiert bzw. ist expirementell)
+
+Der **"Standard Förderer"** ist die Verbindung von zwei Kreiseln mit einem definierten Abstand und (wenn nötig) einer Höhendifferenz. (z.B. für eine Umschleusung in einem Gefällepuffer)
+
+Ein **Etagenförderer** hat 30° Aussschleuselemente und wird verwendet, um zwei Kreisel über eine Etage zu verbinden. Diese beiden Kreisel müssen dabei übereinander liegen.
+
+Standard und Etage können aufgerufen werden mit _"Werte manuell"_ oder _"3D - Linie"_.
+- Bei "Werte Manuell" definiert man den Verlauf durch Höhe und Länge über die Eingabe in einer Oberfläche.
+- bei "3D Linie" ist die Auswahl einer Gerade im Raum möglich. Damit wird Richtung, Länge und Höhendifferenz angegeben. Dadurch werden diese Werte in die Oberfläche übernommen. Der beliebige Winkel in der Ebene kann durch die Linie festgelegt werden und ist nicht auf die Raster 0,90,270 Grad festgelegt
+
+Die **Variablen Förderer** könne auf drei verschiedene Arten definiert werden:
+
+- die manuelle Eingabe frägt nach der Definition des AS Elementes ab, ob man abwechselnd eine GF oder einen VF definieren möchte. Mit einem Knopf unten kann man den Assistenten abschliessen und das ES erzeugen
+- Eine 3D Linie muss aus Geraden und Bögen (Winkel 30° mit dem Radius 500mm) bestehen. Wenn eine 3D Linie für Verlauf mit der korrekten Zielhöhe existiert, kann man iterativ die Einzelelemente (oder auch mehrere) dieser Einzellinien Linie anwählen, um den nächsten Förderer oder den nöchsten Gefälle-Anteil zu definieren.
+
+
 ### 3.1 Zusammensetzung, Abhängigkeiten, Randbedingungen
 
 #### Zusammensetzung eines Varioförderer mit allen möglichen Komponenten
@@ -229,7 +258,7 @@ Unter *ILS -> Foerderer* stehen folgende Einfügemodi zur Verfügung:
 - **Standard -> Werte manuell**: alle Werte (Längen, Winkel, Höhen) werden über einen Dialog abgefragt.
 - **Standard -> aus 3D-Linie**: wie Standard, aber entlang einer vorgezeichneten 3D-Linie.
 - **Etage -> Werte manuell** / **Etage -> aus 3D-Linie**: wie Standard, jedoch mit Etagen-Schrägsektion/-Bögen statt gerader AS-/ES-Elemente.
-- **3D-Linienzug**: frei aus der Zeichnung gebaute Kette, Schritt für Schritt über Dialoge/Konsole abgefragt (AS-Element, Bögen, Vario-Kurven, horizontale/geneigte Abschnitte, ES-Element).
+- **Streckengruppe**: frei aus der Zeichnung gebaute Kette, Schritt für Schritt über Dialoge/Konsole abgefragt (AS-Element, Bögen, Vario-Kurven, horizontale/geneigte Abschnitte, ES-Element).
 
 ![Variofoerderer dialog1](images/vf-gui1.png)
 *Abbildung: Varioförderer Dialog zur Erzeugung*

doc/kommandos.md

@@ -48,7 +48,11 @@ Gross-/Kleinschreibung spielt an der Kommandozeile keine Rolle.
 | `StandardVarioFoerderer3D` | Standardtyp aus einer gewaehlten 3D-Linie |
 | `EtageVarioFoerderer` | Etagentyp (AS/ES 30 Grad), Werte per DCL-Dialog |
 | `EtageVarioFoerderer3D` | Etagentyp aus einer gewaehlten 3D-Linie |
-| `LinienzugVarioFoerderer` | Linienzug, fragt Modus 1/2/3 ab |
+| `LinienzugVarioFoerdererManuell` | Streckengruppe, Modus 1 (manuelle Eingabe, Punkte klicken) |
+| `LinienzugVarioFoerdererZielhoehe` | Streckengruppe, Modus 2 (3D-Objekte + Ziel-Hoehe, Randwert-Solver) |
+| `LinienzugVarioFoerdererStueckweise` | Streckengruppe, Modus 3 (3D-Objekte stueckweise, in Arbeit) |
+| `QcLinieMitGf` | Streckengruppe Modus 4 (QC-Linie mit GF, automatische Auf-Ab-Berechnung); Menue unter Gefaellestrecke |
+| `QcLinieMitGfUForm` | Streckengruppe Modus 5 (QC-Linie mit GF und U-Form); Menue unter Gefaellestrecke |
 | `VARIOFOERDERER_EDIT` | VF_n-Block editieren (dispatcht per XDATA-Marker auf Standard/Etage/Linienzug); auch per Doppelklick |
 | `VARIOFOERDERER_NACHRUESTEN` / `VF_NACHRUESTEN` | Altbestand-VF_n-Bloecke ohne `SSG_VF_EDIT`-Marker editierbar machen |
 | `Vario_Kette_Merge` | Mehrere einzeln gebaute VF_n-Bloecke ab einem Start-Baustein zu einem Gesamt-Block zusammenfuehren |

doc/lisp_methods.md

@@ -23,7 +23,7 @@ Einheiten: mm und Grad. `hz` = Fahrtrichtung in der XY-Ebene, 0 = +X,
 | Eckrad | `ILS_Eckrad` | `ils-eckrad-insert` | `ECKRAD_n` | `KreiselInsert.lsp` |
 | VF Standard | `StandardVarioFoerderer`, `FOERDERANLAGE` | `berechne-standard` + `variofoerderer-einfuegen` + `vf-block-erstellen` | `VF_n` | `vf_standard.lsp`, `vf_core.lsp` |
 | VF Etage | `EtageVarioFoerderer` | `berechne-etage` + `etage-foerderanlage-einfuegen` + `vf-block-erstellen` | `VF_n` | `vf_etage.lsp`, `vf_core.lsp` |
-| VF Linienzug | `LinienzugVarioFoerderer` | `vsp-bau-aus-spec` (Spec) bzw. `vfl-journal-replay-start` + `vf-linienzug-modus` | `VF_n` | `vf_linienzug.lsp`, `vf_spec.lsp` |
+| VF Linienzug | `LinienzugVarioFoerdererManuell`/`-Zielhoehe`/`-Stueckweise`, `QcLinieMitGf`/`-UForm` | `vsp-bau-aus-spec` (Spec) bzw. `vfl-journal-replay-start` + `vf-linienzug-modus` | `VF_n` | `vf_linienzug.lsp`, `vf_spec.lsp` |
 | Gefaellestrecke | `GEFAELLESTRECKE_EINFACH`/`_3DLINIE` | `gf-rebuild` bzw. `gefaellestrecke-einfuegen` | `GF_n` | `Gefaellestrecke.lsp` |
 | Gefaellestrecke Linienzug | `GEFAELLESTRECKE_LINIENZUG` | - (nur interaktiv; Kern `gf-linienzug-einfuegen` braucht analysierte Segmente) | `GF_n` | `Gefaellestrecke.lsp` |
 | Separator, Scanner | `ILS_SEPARATOR_INSERT`, `ILS_SCANNER_INSERT` | - (Schleife mit `getpoint`); Kern: `ssg-ils-block-laden` + `_.INSERT` | Einzelblock | `SSG_LIB_Commands.lsp`, `ssg_core.lsp` |

lang/de_DE.json

@@ -946,13 +946,11 @@
     "vfc-linienzug-modus-1": "\n  1 - Manuelle Eingabe (Punkte klicken)",
     "vfc-linienzug-modus-2": "\n  2 - 3D-Objekte + Ziel-Hoehe (Randwert-Solver, fertig)",
     "vfc-linienzug-modus-3": "\n  3 - 3D-Objekte stueckweise (Vorwaerts-Nachbau, in Arbeit)",
-    "vfc-linienzug-modus-4": "\n  4 - QC Linie mit GF (automatische Auf-Ab-Berechnung)",
+    "prompt-wahl-1-3": "\nIhre Wahl (1/2/3) [1]: ",
-    "vfc-linienzug-modus-5": "\n  5 - QC Linie mit GF und U-Form",
-    "prompt-wahl-1-5": "\nIhre Wahl (1/2/3/4/5) [1]: ",
     "vfl-qc-uform-nicht-implementiert": "\nFEHLER: 'QC Linie mit GF und U-Form' ist noch nicht implementiert - bitte Option 4 oder einen anderen Modus waehlen.",
     "vfc-typ-standard-beschreibung": "Standard VarioFoerderer (AS/ES 90 Grad, horizontal versetzt)",
     "vfc-typ-etage-beschreibung": "Etage VarioFoerderer (AS/ES 30 Grad, direkt uebereinander)",
-    "vfc-typ-linienzug-beschreibung": "3D-Linienzug (gemischte GF/VF-Kette; Modus 1 manuell / Modus 2 Ziel-Hoehe fertig / Modus 3 stueckweise in Arbeit)",
+    "vfc-typ-linienzug-beschreibung": "Streckengruppe (gemischte GF/VF-Kette; Modus 1 manuell / Modus 2 Ziel-Hoehe fertig / Modus 3 stueckweise in Arbeit)",
     "vfs-schritt6-horizontal": "\n\n6/11: Horizontale Zwischenstrecke (0 Grad, L=%1 mm)",
     "vfs-schritt6-steigung": "\n\n6/11: Steigungsstrecke (%1 Grad, L=%2 mm)",
     "vfs-schritt6-gefaelle": "\n\n6/11: Gefaellestrecke (%1 Grad, L=%2 mm)",

lang/en_GB.json

@@ -946,13 +946,11 @@
     "vfc-linienzug-modus-1": "\n  1 - Manual entry (click points)",
     "vfc-linienzug-modus-2": "\n  2 - 3D objects + target height (boundary-value solver, finished)",
     "vfc-linienzug-modus-3": "\n  3 - 3D objects step by step (forward reconstruction, work in progress)",
-    "vfc-linienzug-modus-4": "\n  4 - QC line with GF (automatic up/down calculation)",
+    "prompt-wahl-1-3": "\nYour choice (1/2/3) [1]: ",
-    "vfc-linienzug-modus-5": "\n  5 - QC line with GF and U-shape",
-    "prompt-wahl-1-5": "\nYour choice (1/2/3/4/5) [1]: ",
     "vfl-qc-uform-nicht-implementiert": "\nERROR: 'QC line with GF and U-shape' is not yet implemented - please choose option 4 or a different mode.",
     "vfc-typ-standard-beschreibung": "Standard VarioFoerderer (AS/ES 90 degrees, offset horizontally)",
     "vfc-typ-etage-beschreibung": "Etage VarioFoerderer (AS/ES 30 degrees, directly stacked)",
-    "vfc-typ-linienzug-beschreibung": "3D line path (mixed GF/VF chain; mode 1 manual / mode 2 target height finished / mode 3 step by step work in progress)",
+    "vfc-typ-linienzug-beschreibung": "Route group (mixed GF/VF chain; mode 1 manual / mode 2 target height finished / mode 3 step by step work in progress)",
     "vfs-schritt6-horizontal": "\n\n6/11: Horizontal intermediate section (0 deg, L=%1 mm)",
     "vfs-schritt6-steigung": "\n\n6/11: Incline section (%1 deg, L=%2 mm)",
     "vfs-schritt6-gefaelle": "\n\n6/11: Slope section (%1 deg, L=%2 mm)",

menu/SSG_LIB.cui

@@ -92,10 +92,22 @@
           <Command>^C^C(ssg-ensure "VarioFoerderer") EtageVarioFoerderer3D</Command>
         </Macro>
       </MenuMacro>
-      <MenuMacro UID="MM_00024">
+      <MenuMacro UID="MM_00191">
         <Macro>
-          <Name>3D-Linienzug</Name>
+          <Name>Werte manuell</Name>
-          <Command>^C^C(ssg-ensure "VarioFoerderer") LinienzugVarioFoerderer</Command>
+          <Command>^C^C(ssg-ensure "VarioFoerderer") LinienzugVarioFoerdererManuell</Command>
+        </Macro>
+      </MenuMacro>
+      <MenuMacro UID="MM_00192">
+        <Macro>
+          <Name>aus 3D Linie mit Zielhoehe</Name>
+          <Command>^C^C(ssg-ensure "VarioFoerderer") LinienzugVarioFoerdererZielhoehe</Command>
+        </Macro>
+      </MenuMacro>
+      <MenuMacro UID="MM_00193">
+        <Macro>
+          <Name>3D Objekte stueckweise (in Arbeit)</Name>
+          <Command>^C^C(ssg-ensure "VarioFoerderer") LinienzugVarioFoerdererStueckweise</Command>
         </Macro>
       </MenuMacro>
       <MenuMacro UID="MM_00025">
@@ -128,6 +140,18 @@
           <Command>^C^C(ssg-ensure "Gefaellestrecke") GEFAELLESTRECKE_LINIENZUG</Command>
         </Macro>
       </MenuMacro>
+      <MenuMacro UID="MM_00188">
+        <Macro>
+          <Name>QC Linie mit GF (automatische Auf-Ab-Berechnung)</Name>
+          <Command>^C^C(ssg-ensure "VarioFoerderer") QcLinieMitGf</Command>
+        </Macro>
+      </MenuMacro>
+      <MenuMacro UID="MM_00189">
+        <Macro>
+          <Name>QC Linie mit GF und U-Form</Name>
+          <Command>^C^C(ssg-ensure "VarioFoerderer") QcLinieMitGfUForm</Command>
+        </Macro>
+      </MenuMacro>
       <MenuMacro UID="MM_00033">
         <Macro>
           <Name>90</Name>
@@ -920,12 +944,7 @@
           <Name>Foerderer</Name>
           <PopMenuRef pUID="PM_00018"/>
           <PopMenuRef pUID="PM_00021"/>
-          <PopMenuItem>
+          <PopMenuRef pUID="PM_00190"/>
-            <NameRef>3D-Linienzug</NameRef>
-            <MenuItem>
-              <MacroRef MenuMacroID="MM_00024"/>
-            </MenuItem>
-          </PopMenuItem>
           <PopMenuItem>
             <NameRef>Vario_Kette_Merge</NameRef>
             <MenuItem>
@@ -969,6 +988,27 @@
             </MenuItem>
           </PopMenuItem>
         </PopMenu>
+        <PopMenu UID="PM_00190">
+          <Name>Streckengruppe</Name>
+          <PopMenuItem>
+            <NameRef>Werte manuell</NameRef>
+            <MenuItem>
+              <MacroRef MenuMacroID="MM_00191"/>
+            </MenuItem>
+          </PopMenuItem>
+          <PopMenuItem>
+            <NameRef>aus 3D Linie mit Zielhoehe</NameRef>
+            <MenuItem>
+              <MacroRef MenuMacroID="MM_00192"/>
+            </MenuItem>
+          </PopMenuItem>
+          <PopMenuItem>
+            <NameRef>3D Objekte stueckweise (in Arbeit)</NameRef>
+            <MenuItem>
+              <MacroRef MenuMacroID="MM_00193"/>
+            </MenuItem>
+          </PopMenuItem>
+        </PopMenu>
         <PopMenu UID="PM_00027">
           <Name>Gefaellestrecke</Name>
           <PopMenuItem>
@@ -989,6 +1029,18 @@
               <MacroRef MenuMacroID="MM_00030"/>
             </MenuItem>
           </PopMenuItem>
+          <PopMenuItem>
+            <NameRef>QC Linie mit GF (automatische Auf-Ab-Berechnung)</NameRef>
+            <MenuItem>
+              <MacroRef MenuMacroID="MM_00188"/>
+            </MenuItem>
+          </PopMenuItem>
+          <PopMenuItem>
+            <NameRef>QC Linie mit GF und U-Form</NameRef>
+            <MenuItem>
+              <MacroRef MenuMacroID="MM_00189"/>
+            </MenuItem>
+          </PopMenuItem>
         </PopMenu>
         <PopMenu UID="PM_00031">
           <Name>Omniflo</Name>

menu/SSG_LIB.mnu

@@ -21,13 +21,18 @@
 [->Etage]
 [Werte manuell]^C^C(ssg-ensure "VarioFoerderer") EtageVarioFoerderer
 [<-aus 3D-Linie]^C^C(ssg-ensure "VarioFoerderer") EtageVarioFoerderer3D
-[3D-Linienzug]^C^C(ssg-ensure "VarioFoerderer") LinienzugVarioFoerderer
+[->Streckengruppe]
+[Werte manuell]^C^C(ssg-ensure "VarioFoerderer") LinienzugVarioFoerdererManuell
+[aus 3D Linie mit Zielhoehe]^C^C(ssg-ensure "VarioFoerderer") LinienzugVarioFoerdererZielhoehe
+[<-3D Objekte stueckweise (in Arbeit)]^C^C(ssg-ensure "VarioFoerderer") LinienzugVarioFoerdererStueckweise
 [Vario_Kette_Merge]^C^C(ssg-ensure "VarioFoerderer") Vario_Kette_Merge
 [<-VarioFoerderer nachruesten (Marker)]^C^C(ssg-ensure "VarioFoerderer") VARIOFOERDERER_NACHRUESTEN
 [->Gefaellestrecke]
 [einfach]^C^C(ssg-ensure "Gefaellestrecke") GEFAELLESTRECKE_EINFACH
 [aus 3D-Linie]^C^C(ssg-ensure "Gefaellestrecke") GEFAELLESTRECKE_3DLINIE
-[<-<-aus Linienzug (LINE + ARC)]^C^C(ssg-ensure "Gefaellestrecke") GEFAELLESTRECKE_LINIENZUG
+[aus Linienzug (LINE + ARC)]^C^C(ssg-ensure "Gefaellestrecke") GEFAELLESTRECKE_LINIENZUG
+[QC Linie mit GF (automatische Auf-Ab-Berechnung)]^C^C(ssg-ensure "VarioFoerderer") QcLinieMitGf
+[<-QC Linie mit GF und U-Form]^C^C(ssg-ensure "VarioFoerderer") QcLinieMitGfUForm
 [->Omniflo]
 [->Boegen APB110]
 [90]^C^C(ssg-ensure "OmniModulInsert") OMNI_APB_630_90

tests/testdata/showroom_ils.json

@@ -9,7 +9,7 @@
     "rotation": 90.0,
     "typ": "STANDARD",
     "darstellung": "2D",
-    "drehrichtung": "UZS",
+    "drehrichtung": "GUZ",
     "comment": "aus DXF: Radmitte AN8 (Layer 1ANTR-800) (26997.93, 3466.40) -> SP8 (Layer 1SP-800) (26997.93, 12498.90), Mittenabstand 9032.50, rotation 90.00 Grad; x/y = AN8-Mitte minus Radius. ACHTUNG hoehe=11039.9 ist NICHT belegt: AN8/SP8 sind flache 2D-Symbole auf Z=0 und nur 0 3D-Nachbarn in 3000 mm - zu wenige fuer eine belegbare Hoehe. Hoehe 2226.4 vom Anwender.",
     "hoehe_quelle": "Anwender"
   },
@@ -23,7 +23,7 @@
     "rotation": 90.0,
     "typ": "STANDARD",
     "darstellung": "2D",
-    "drehrichtung": "GUZ",
+    "drehrichtung": "UZS",
     "comment": "aus DXF: Radmitte AN8 (Layer 1ANTR-800) (26997.93, 13298.90) -> SP8 (Layer 1SP-800) (26997.93, 16298.90), Mittenabstand 3000.00, rotation 90.00 Grad; x/y = AN8-Mitte minus Radius. ACHTUNG hoehe=11039.9 ist NICHT belegt: AN8/SP8 sind flache 2D-Symbole auf Z=0 und nur 0 3D-Nachbarn in 3000 mm - zu wenige fuer eine belegbare Hoehe. Hoehe 2226.4 vom Anwender.",
     "hoehe_quelle": "Anwender"
   },