Ausgabeverzeichnis nur über Lisp Variable festlegen. Anscheinend speichert Bricscad Umgebungen über die Sessions hinweg. Die Ausgaben der Tests landen woanders als der generelle Export

Sivasnr-Werte mit 0_BGxxxxxx-Mustern werden jetzt ueber die neue
[container]-Config-Sektion in kommaseparierte Listen aufgeloest.
set_attributs.py kann nun explizit zwischen data/omniflo/2D und /3D
als Quellverzeichnis waehlen.

Lisp/Gefaellestrecke.lsp

@@ -146,12 +146,19 @@
     (setq ks-results '())
     (setq sub-entities (vlax-invoke block-obj 'Explode))
     (foreach sub-obj sub-entities
-      (if (and (not (vlax-erased-p sub-obj))
-               (= (vla-get-ObjectName sub-obj) "AcDbBlockReference")
-               (or (= (vla-get-Name sub-obj) "KS_EIN")
-                   (= (vla-get-Name sub-obj) "KS_AUS")))
+      ;; KS-Blocknamen normalisieren: aeltere Bloecke nutzen KS_EIN/KS_AUS,
+      ;; Vario_Kurve-Bloecke KSYS_EIN/KSYS_AUS (inline, damit diese Fallback-
+      ;; Kopie unabhaengig von vf_core.lsp funktioniert).
+      (setq ks-ref
+        (if (and (not (vlax-erased-p sub-obj))
+                 (= (vla-get-ObjectName sub-obj) "AcDbBlockReference"))
+          (cond
+            ((or (= (vla-get-Name sub-obj) "KS_EIN")  (= (vla-get-Name sub-obj) "KSYS_EIN")) "KS_EIN")
+            ((or (= (vla-get-Name sub-obj) "KS_AUS")  (= (vla-get-Name sub-obj) "KSYS_AUS")) "KS_AUS")
+            (t nil))
+          nil))
+      (if ks-ref
         (progn
-          (setq ks-ref (vla-get-Name sub-obj))
           (setq inner-entities (vlax-invoke sub-obj 'Explode))
           (setq origin nil x-end nil y-end nil z-end nil)
           (foreach inner-obj inner-entities
@@ -1334,7 +1341,8 @@
         bL90 bL60 bL30
         bR90 bR60 bR30
         startpunkt last-ent nach-aus-pt entry-hz
-        (caddr (nth first-idx segmente)))
+        (caddr (nth first-idx segmente))
+        es-seite)
 
       (princ "\n\n=========================================")
       (princ "\n>>> Fertig! <<<")
@@ -1348,49 +1356,25 @@
 ;; TEIL 4.5: GF-BLOCK-SYSTEM (Nummerierung, Label, Attribute)
 ;; ============================================================
 
-;; Attribut-Definitionen fuer GF_N-Bloecke
-(setq *gf-attrib-defs*
-  '(("NUMMER"           "0")
-    ("TYP"              "standard")
-    ("SEITE"            "rechts")
-    ("MONTAGEHOEHE_m"   "0.000")
-    ("HOEHE_VON"        "0")
-    ("HOEHE_BIS"        "0")
-    ("DELTA_H"          "0")
-    ("DELTA_L"          "0")
-    ("L_GF_m"           "0.000")
-    ("WINKEL"           "0.000")
-    ("ANZAHL_SEPARATOR" "0")
-    ("ANZAHL_SCANNER"   "0")
-    ("GF_Bogen_L_90"    "0")
-    ("GF_Bogen_L_60"    "0")
-    ("GF_Bogen_L_30"    "0")
-    ("GF_Bogen_R_90"    "0")
-    ("GF_Bogen_R_60"    "0")
-    ("GF_Bogen_R_30"    "0")
-    ("ID"               "")
-  )
-)
+;; Attribut-Definitionen fuer GF_N-Bloecke kommen aus dem gemeinsamen
+;; Strecken-Schema in ssg_core.lsp (ssg-strecke-attrib-defs). TYP wird zur
+;; Laufzeit bestimmt: ohne Bogen -> "Gefaellestrecke" (reduziert), mit Bogen
+;; -> "Streckengruppe" (voll).
 
 ;; Naechste freie GF-Nummer
 ;; Stufe 1: NUMMER-Attribut aller GF_*-Inserts lesen
 ;; Stufe 2: Block-Tabelle pruefen – GF_N darf noch nicht als Definition existieren
-(defun gf-next-number ( / ss i nr maxnr attribs)
+(defun gf-next-number ( / ss i nr maxnr bname)
   (setq maxnr 0)
   (setq ss (ssget "X" '((0 . "INSERT") (2 . "GF_*"))))
   (if ss
     (progn
       (setq i 0)
       (while (< i (sslength ss))
-        (setq attribs (ssg-attrib-read (ssname ss i)))
-        (foreach pair attribs
-          (if (= (car pair) "NUMMER")
-            (progn
-              (setq nr (atoi (cdr pair)))
-              (if (> nr maxnr) (setq maxnr nr))
-            )
-          )
-        )
+        ;; Nummer aus dem Blocknamen GF_<n> ableiten ("GF_" = 3 Zeichen)
+        (setq bname (cdr (assoc 2 (entget (ssname ss i)))))
+        (setq nr (atoi (substr bname 4)))
+        (if (> nr maxnr) (setq maxnr nr))
         (setq i (1+ i))
       )
     )
@@ -1456,13 +1440,31 @@
                             L-gf-str winkel n-separator n-scanner
                             bogen-L90 bogen-L60 bogen-L30
                             bogen-R90 bogen-R60 bogen-R30
-                            startpunkt last-ent nach-aus-pt entry-hz L-first-seg /
-                            gf-bname gf-ss ent gf-insert)
+                            startpunkt last-ent nach-aus-pt entry-hz L-first-seg
+                            es-seite /
+                            gf-bname gf-ss ent gf-insert typ-str anzahl-gf
+                            gf-winkel-str i)
   ;; Beschriftung: Mitte der ersten Geraden, 400mm senkrecht versetzt
   (gf-make-label gf-nummer hoehe-von hoehe-bis deltaH deltaL
                  L-gf-str winkel n-separator nach-aus-pt entry-hz L-first-seg)
-  ;; ATTDEFs (unsichtbar, am Startpunkt)
-  (foreach def *gf-attrib-defs*
+  ;; TYP: mit Bogen -> "Streckengruppe"; ohne Bogen (einsegmentig) ->
+  ;; "Gefaellestrecke" (reduzierter Attributsatz, siehe ssg-strecke-attrib-defs).
+  (setq typ-str
+    (if (> (+ bogen-L90 bogen-L60 bogen-L30 bogen-R90 bogen-R60 bogen-R30) 0)
+      "Streckengruppe" "Gefaellestrecke"))
+  (setq gf-bname (strcat "GF_" (itoa gf-nummer)))
+  ;; Anzahl GF-Segmente = Anzahl kommagetrennter Werte in L-gf-str;
+  ;; GF_WINKEL parallel dazu (alle Segmente teilen die Gefaelle-Neigung).
+  (setq anzahl-gf 1  i 1)
+  (while (<= i (strlen L-gf-str))
+    (if (= (substr L-gf-str i 1) ",") (setq anzahl-gf (1+ anzahl-gf)))
+    (setq i (1+ i)))
+  (setq gf-winkel-str (rtos (float winkel) 2 1)  i 1)
+  (while (< i anzahl-gf)
+    (setq gf-winkel-str (strcat gf-winkel-str "," (rtos (float winkel) 2 1)))
+    (setq i (1+ i)))
+  ;; ATTDEFs (unsichtbar, am Startpunkt) nach gemeinsamem Strecken-Schema
+  (foreach def (ssg-strecke-attrib-defs typ-str)
     (entmake
       (list '(0 . "ATTDEF")
             (cons 10 startpunkt)
@@ -1482,42 +1484,43 @@
     (ssadd ent gf-ss)
     (setq ent (entnext ent))
   )
-  ;; Block definieren und einfuegen
-  (setq gf-bname (strcat "GF_" (itoa gf-nummer)))
-  ;; ATTREQ/ATTDIA=0: verhindert interaktive Attribut-Abfrage bei INSERT
-  ;; (sonst bleiben die per ssg-attrib-set-on gesetzten Werte wirkungslos,
-  ;; da INSERT auf der Kommandozeile auf Attribut-Eingaben wartet), siehe
-  ;; identisches Muster in vf-block-erstellen (vf_core.lsp).
+  ;; Block definieren und einfuegen (ATTREQ/ATTDIA=0: keine interaktive Abfrage)
   (setvar "ATTREQ" 0)
   (setvar "ATTDIA" 0)
   (command "_.-BLOCK" gf-bname startpunkt gf-ss "")
   (command "_.INSERT" gf-bname startpunkt 1.0 1.0 0.0)
   (setvar "ATTREQ" 1)
-  ;; Attribute auf das eingefuegte INSERT-Objekt setzen
+  ;; Attribute auf das eingefuegte INSERT-Objekt setzen (volle Werteliste;
+  ;; nicht vorhandene Tags ignoriert ssg-attrib-set-on -> reduzierter Satz ok).
   (setq gf-insert (entlast))
   (ssg-attrib-set-on gf-insert
     (list
-      (cons "NUMMER"           (itoa gf-nummer))
-      (cons "TYP"              typ)
-      (cons "SEITE"            seite)
+      (cons "Bezeichnung"      gf-bname)
       (cons "MONTAGEHOEHE_m"   "0.000")
-      (cons "HOEHE_VON"        (itoa (fix hoehe-von)))
-      (cons "HOEHE_BIS"        (itoa (fix hoehe-bis)))
-      (cons "DELTA_H"          (itoa (fix (abs deltaH))))
-      (cons "DELTA_L"          (itoa (fix deltaL)))
+      (cons "HOEHE_VON_mm"     (itoa (fix hoehe-von)))
+      (cons "HOEHE_BIS_mm"     (itoa (fix hoehe-bis)))
+      (cons "DELTA_H_mm"       (itoa (fix (abs deltaH))))
+      (cons "DELTA_L_mm"       (itoa (fix deltaL)))
+      (cons "TYP"              typ-str)
+      (cons "SEITE_AS"         seite)
+      (cons "SEITE_ES"         es-seite)
+      (cons "ANZAHL_GF"        (itoa anzahl-gf))
       (cons "L_GF_m"           L-gf-str)
-      (cons "WINKEL"           (rtos (float winkel) 2 3))
-      (cons "ANZAHL_SEPARATOR" (itoa n-separator))
-      (cons "ANZAHL_SCANNER"   (itoa n-scanner))
+      (cons "GF_WINKEL"        gf-winkel-str)
       (cons "GF_Bogen_L_90"    (itoa bogen-L90))
       (cons "GF_Bogen_L_60"    (itoa bogen-L60))
       (cons "GF_Bogen_L_30"    (itoa bogen-L30))
       (cons "GF_Bogen_R_90"    (itoa bogen-R90))
       (cons "GF_Bogen_R_60"    (itoa bogen-R60))
       (cons "GF_Bogen_R_30"    (itoa bogen-R30))
+      (cons "ANZAHL_SEPARATOR" (itoa n-separator))
+      (cons "ANZAHL_SCANNER"   (itoa n-scanner))
     )
   )
-  (princ (strcat "\n>>> GF-Block erstellt: " gf-bname))
+  ;; Aufsteigende, eindeutige ID vergeben (wie beim Kreisel), falls verfuegbar.
+  (if (car (atoms-family 1 '("SSG-ID-GENERATE")))
+    (ssg-id-generate gf-insert))
+  (princ (strcat "\n>>> GF-Block erstellt: " gf-bname " (" typ-str ")"))
   gf-insert
 )
 
@@ -1612,7 +1615,8 @@
       winkel
       1 0
       0 0 0  0 0 0
-      startpunkt last-ent nach-aus-pt (float hz) (float L_stau)))
+      startpunkt last-ent nach-aus-pt (float hz) (float L_stau)
+      es-seite))
 
   (princ "\n\n=========================================")
   (princ "\n>>> Gefaellestrecke erfolgreich eingefuegt! <<<")

Lisp/OmniModulInsert.lsp

@@ -326,11 +326,13 @@
 
 
 ;; --- Bogen-Auswahl-Dialog oeffnen ---
-;; winkel = KurvenWinkel (90, 67.5, 45, 22.5, 180)
+;; winkel      = KurvenWinkel (90, 67.5, 45, 22.5, 180)
 ;; init-hoehe / init-drehung = Vorbelegung (optional, fuer Edit-Modus)
+;; profiltyp   = optionales Praefix zum Filtern des ProfilTyp-Textes,
+;;               z.B. "APB 60" oder "APB 110" (nil = keine Einschraenkung)
 ;; Rueckgabe: (eintrag hoehe drehung) oder nil bei Abbruch
-(defun omni:bogen-dialog (winkel init-hoehe init-drehung / dcl-pfad dat boegen-liste
-                           profil-liste ergebnis dlg-hoehe dlg-drehung)
+(defun omni:bogen-dialog (winkel init-hoehe init-drehung profiltyp / dcl-pfad dat boegen-liste
+                           profil-liste ergebnis dlg-hoehe dlg-drehung profil)
   (if (null *OMNI-BOEGEN*) (omni:load-data))
 
   ;; Defaults
@@ -339,11 +341,27 @@
 
   ;; Boegen nach Winkel filtern
   (setq boegen-liste (omni:filter *OMNI-BOEGEN* "KurvenWinkel" winkel))
+
+  ;; Optional zusaetzlich nach ProfilTyp-Praefix filtern (z.B. "APB 60")
+  (if profiltyp
+    (setq boegen-liste
+      (vl-remove-if-not
+        '(lambda (e)
+           (setq profil (cdr (assoc "ProfilTyp" e)))
+           (and profil (= (vl-string-search profiltyp profil) 0))
+         )
+        boegen-liste
+      )
+    )
+  )
+
   (if (null boegen-liste)
     (progn
       (alert (strcat "Keine Boegen fuer "
         (if (= (type winkel) 'INT) (itoa winkel) (rtos winkel 2 1))
-        " Grad gefunden."))
+        " Grad"
+        (if profiltyp (strcat " (" profiltyp ")") "")
+        " gefunden."))
       nil
     )
     (progn
@@ -405,8 +423,18 @@
 ;; ============================================================
 
 ;; --- Omniflo / Boegen ---
+(defun c:OMNI_APB60_90 ( / dlg-result)
+  (setq dlg-result (omni:bogen-dialog 90 nil nil "APB 60"))
+  (if dlg-result
+    (omni:insert-from-entry dlg-result)
+    (princ "\n[BOGEN] Abgebrochen.")
+  )
+  (princ)
+)
+
+
 (defun c:OMNI_APB_630_90 ( / dlg-result)
-  (setq dlg-result (omni:bogen-dialog 90 nil nil))
+  (setq dlg-result (omni:bogen-dialog 90 nil nil "APB 110"))
   (if dlg-result
     (omni:insert-from-entry dlg-result)
     (princ "\n[BOGEN] Abgebrochen.")
@@ -415,7 +443,7 @@
 )
 
 (defun c:OMNI_APB_550_675 ( / dlg-result)
-  (setq dlg-result (omni:bogen-dialog 67.5 nil nil))
+  (setq dlg-result (omni:bogen-dialog 67.5 nil nil nil))
   (if dlg-result
     (omni:insert-from-entry dlg-result)
     (princ "\n[BOGEN] Abgebrochen.")
@@ -424,7 +452,7 @@
 )
 
 (defun c:OMNI_APB_630_45 ( / dlg-result)
-  (setq dlg-result (omni:bogen-dialog 45 nil nil))
+  (setq dlg-result (omni:bogen-dialog 45 nil nil nil))
   (if dlg-result
     (omni:insert-from-entry dlg-result)
     (princ "\n[BOGEN] Abgebrochen.")
@@ -433,7 +461,7 @@
 )
 
 (defun c:OMNI_APB_550_225 ( / dlg-result)
-  (setq dlg-result (omni:bogen-dialog 22.5 nil nil))
+  (setq dlg-result (omni:bogen-dialog 22.5 nil nil nil))
   (if dlg-result
     (omni:insert-from-entry dlg-result)
     (princ "\n[BOGEN] Abgebrochen.")
@@ -442,7 +470,7 @@
 )
 
 (defun c:OMNI_APB_650_180 ( / dlg-result)
-  (setq dlg-result (omni:bogen-dialog 180 nil nil))
+  (setq dlg-result (omni:bogen-dialog 180 nil nil nil))
   (if dlg-result
     (omni:insert-from-entry dlg-result)
     (princ "\n[BOGEN] Abgebrochen.")
@@ -1171,7 +1199,7 @@
   (if (= typ "bogen")
     (progn
       (setq winkel (cdr (assoc "KurvenWinkel" eintrag)))
-      (setq dlg-result (omni:bogen-dialog winkel hoehe drehung))
+      (setq dlg-result (omni:bogen-dialog winkel hoehe drehung nil))
     )
     (progn
       (setq winkel     (cdr (assoc "KurvenWinkel" eintrag)))

Lisp/README.md

@@ -248,6 +248,21 @@ Der Omniflo-CSV-Export (Bogen/Weiche/Gerade, inkl. Merkmale-Aufbau und Sum-Zeile
 seit Entfernung von `c:OMNI_EXPORT` ausschließlich über `c:EXPORTCSV` → `lib/export_csv.py`
 (`build_bogen_merkmale`, `build_weiche_merkmale`, `build_gerade_merkmale`, `build_omni_sum_merkmale`).
 
+**Ausgabeordner:** `c:EXPORTSIVAS`/`c:EXPORTCSV` schreiben immer nach `DXFM_RESULTS`.
+`TEST_EXPORT_ALL` (siehe `tests/test_export_all.lsp`) leitet waehrend des Testlaufs stattdessen
+nach `DXFM_TESTOUT` um, über die reine Lisp-Sitzungsvariable `*export-test-override*` (wird von
+`csv:run-export` zusaetzlich zu `DXFM_RESULTS` abgefragt und danach garantiert wieder auf `nil`
+zurueckgesetzt, auch bei einem Fehler, ueber `vl-catch-all-apply`).
+
+**Wichtig:** Der Umweg über `*export-test-override*` ist bewusst gewaehlt und **kein**
+`(setenv "DXFM_RESULTS" ...)`. In BricsCAD/AutoCAD schreibt `(setenv ...)` nicht nur in den
+Windows-Prozess, sondern dauerhaft in die Profil-Registry der Anwendung – der Wert überlebt
+damit jeden Neustart und jedes `setenv.bat`, bis er erneut per `(setenv)` überschrieben wird.
+Ein einziger `(setenv "DXFM_RESULTS" ...)`-Aufruf (z. B. ein frueherer, unvollstaendiger
+Testlauf) würde `DXFM_RESULTS` für alle künftigen Sitzungen unwiderruflich auf den Testordner
+umbiegen. Falls das bereits passiert ist, hilft nur ein manuelles
+`(setenv "DXFM_RESULTS" "<richtiger Pfad>")` in BricsCAD, um den Profil-Wert zu korrigieren.
+
 ---
 
 ### `tests.lsp` – Testbefehle

Lisp/export.lsp

@@ -41,6 +41,14 @@
 ;; Beim Laden des Moduls einmalig einlesen (Lazy-Loading via ssg-ensure "export")
 (export:load-cfg)
 
+;; --- Test-Override fuer den Ausgabeordner (nur Lisp-Sitzungsspeicher) ---
+;; Wird ausschliesslich von TEST_EXPORT_ALL (tests/test_export_all.lsp)
+;; waehrend des Testlaufs auf DXFM_TESTOUT gesetzt und danach garantiert
+;; wieder auf nil zurueckgesetzt. Bewusst KEIN (setenv "DXFM_RESULTS" ...):
+;; (setenv ...) schreibt in BricsCAD dauerhaft in die Profil-Registry und
+;; ueberlebt damit jeden Neustart.
+(setq *export-test-override* nil)
+
 
 ;; --- Feste Datei-/Skriptnamen dieses Moduls (keine Config, direkt im Code) ---
 (setq *export-filenames*
@@ -196,7 +204,7 @@
 ;; py-name = Python-Skript-Name (z.B. "export_csv.py")
 ;; csv-name = Ergebnis-CSV-Name (z.B. "export.csv")
 (defun csv:run-export (label py-name csv-name / ss i ename fh out-pfad
-                        py-skript ergebnis-pfad cmd first-block count)
+                        py-skript ergebnis-pfad cmd first-block count out-dir)
   ;; Vor dem Export: IDs aller Bloecke sicherstellen und Duplikate korrigieren
   (princ (strcat "\n[" label "] Pruefe und vergebe IDs..."))
   (ssg-id-check-all)
@@ -215,8 +223,22 @@
       (setq count (sslength ss))
       (princ (strcat "\n[" label "] " (itoa count) " Bloecke gefunden."))
 
+      ;; Ausgabeordner: DXFM_RESULTS, ausser *export-test-override* ist gesetzt
+      ;; (nur waehrend TEST_EXPORT_ALL, siehe tests/test_export_all.lsp).
+      ;; WICHTIG: Hier bewusst KEIN (setenv "DXFM_RESULTS" ...) verwenden!
+      ;; (setenv ...) schreibt in BricsCAD dauerhaft in die Profil-Registry
+      ;; und ueberlebt damit jeden Neustart - ein einziger Testlauf wuerde
+      ;; DXFM_RESULTS fuer alle zukuenftigen Sitzungen unwiderruflich auf den
+      ;; Testordner umbiegen. *export-test-override* ist eine reine
+      ;; Lisp-Variable (nur Prozess-/Sitzungsspeicher) und daher sicher.
+      (setq out-dir (if *export-test-override*
+                       *export-test-override*
+                       (getenv "DXFM_RESULTS")))
+      (if (not (vl-file-directory-p out-dir)) (vl-mkdir out-dir))
+      (princ (strcat "\n[" label "] Ausgabeordner: " out-dir))
+
       ;; JSON-Datei zusammenbauen
-      (setq out-pfad (strcat (getenv "DXFM_RESULTS") "/"
+      (setq out-pfad (strcat out-dir "/"
                               (export:filename "raw_json_datei")))
       (setq fh (open out-pfad "w"))
       (if (null fh)
@@ -244,7 +266,7 @@
           (setq py-skript (strcat (getenv "DXFM_LIB") "/" py-name))
           (if (findfile py-skript)
             (progn
-              (setq ergebnis-pfad (strcat (getenv "DXFM_RESULTS") "/" csv-name))
+              (setq ergebnis-pfad (strcat out-dir "/" csv-name))
               (setq cmd (strcat "python \"" py-skript "\""
                                 " \"" out-pfad "\""
                                 " \"" (getenv "DXFM_DATA") "\""

Lisp/ssg_core.lsp

@@ -384,6 +384,66 @@
   )
 )
 
+;; ============================================================
+;; GEMEINSAMES ATTRIBUT-SCHEMA FUER STRECKEN-BLOECKE
+;; (Gefaellestrecke + VarioFoerderer, feste Reihenfolge)
+;; ============================================================
+;; Vorderteil (immer vorhanden). Bezeichnung = Blockname (GF_n/VF_n),
+;; Artinr. fest 6220 (alle GF/VF). TYP-Wert wird zur Laufzeit gesetzt.
+;; ID zuerst (global, jeder eingefuegte Baustein - Kreisel/GF/VF - erhaelt eine
+;; neue ID), danach Bezeichnung (= Blockname). Hoehen/Delta mit Einheit _mm.
+(setq *strecke-attr-front*
+  '(("ID"                   "")
+    ("Bezeichnung"          "")
+    ("Artinr."              "6220")
+    ("MONTAGEHOEHE_m"       "0.000")
+    ("HOEHE_VON_mm"         "0")
+    ("HOEHE_BIS_mm"         "0")
+    ("DELTA_H_mm"           "0")
+    ("DELTA_L_mm"           "0")
+    ("TYP"                  "Streckengruppe")
+    ("SEITE_AS"             "rechts")
+    ("SEITE_ES"             "rechts")
+    ("ANZAHL_GF"            "0")
+    ("L_GF_m"               "0.000")
+    ("GF_WINKEL"            "0.0")))
+
+;; Mittelteil - nur fuer TYP "Streckengruppe" (mehrsegmentig/mit Bogen bzw. VF).
+;; Eine einsegmentige Gefaellestrecke ohne Bogen ("Gefaellestrecke") bekommt
+;; diese Attribute NICHT.
+(setq *strecke-attr-gruppe*
+  '(("GF_Bogen_L_90"        "0")
+    ("GF_Bogen_L_60"        "0")
+    ("GF_Bogen_L_30"        "0")
+    ("GF_Bogen_R_90"        "0")
+    ("GF_Bogen_R_60"        "0")
+    ("GF_Bogen_R_30"        "0")
+    ("ANZAHL_VF"            "0")
+    ("MOTORSEITE"           "")
+    ("L_VF_m"               "0.000")
+    ("ANTRIEBFAHRTRICHTUNG" "Auf")
+    ("VF_WINKEL"            "0")
+    ("VF_Bogen_A_90"        "0")
+    ("VF_Bogen_A_60"        "0")
+    ("VF_Bogen_A_30"        "0")
+    ("VF_Bogen_I_90"        "0")
+    ("VF_Bogen_I_60"        "0")
+    ("VF_Bogen_I_30"        "0")))
+
+;; Hinterteil (immer vorhanden). ANZAHL_SEPARATOR-Wert wird zur Laufzeit gesetzt
+;; (einsegmentige Gefaellestrecke: 1; Streckengruppe: gezaehlt).
+(setq *strecke-attr-hinten*
+  '(("ANZAHL_SEPARATOR"     "1")
+    ("ANZAHL_SCANNER"       "0")))
+
+;; Geordnete ATTDEF-Definitionsliste fuer einen Strecken-Block-Typ.
+;;   typ "Gefaellestrecke" -> Vorderteil + Hinterteil (reduziert)
+;;   sonst ("Streckengruppe") -> Vorderteil + Mittelteil + Hinterteil (voll)
+(defun ssg-strecke-attrib-defs (typ)
+  (if (= typ "Gefaellestrecke")
+    (append *strecke-attr-front* *strecke-attr-hinten*)
+    (append *strecke-attr-front* *strecke-attr-gruppe* *strecke-attr-hinten*)))
+
 ;; Assoziationsliste in ATTDEF-Definitionsliste konvertieren.
 ;; alist = (("TAG" . "Wert") ...) -> ((TAG Wert) ...)
 ;; Passend fuer ssg-attrib-make-defs.

Lisp/vf_core.lsp

@@ -2,7 +2,7 @@
 ;; VF_CORE - VarioFoerderer Kern-Modul
 ;; Version: 26.0
 ;; Architektur: Plugin/Dispatcher
-;; Laedt automatisch: vf_standard.lsp, vf_etage.lsp
+;; Laedt automatisch: vf_standard.lsp, vf_etage.lsp, vf_linienzug.lsp
 ;; Befehle: VarioFoerderer (Alias: FOERDERANLAGE, ETAGEVARIOFOERDERER)
 ;; ============================================================
 
@@ -87,35 +87,9 @@
 (setq *ks-cache* nil)
 (setq grad-zeichen (chr 176))
 
-;; 26 Attribut-Definitionen fuer VF_*-Block (alle Typen)
-(setq *vf-attrib-defs*
-  '(("NUMMER"               "0")
-    ("MONTAGEHOEHE_m"       "0.000")
-    ("HOEHE_VON"            "0")
-    ("HOEHE_BIS"            "0")
-    ("DELTA_H"              "0")
-    ("DELTA_L"              "0")
-    ("L_VF_m"               "0.000")
-    ("L_GF_m"               "0.000")
-    ("ANTRIEBFAHRTRICHTUNG" "Auf")
-    ("WINKEL"               "0")
-    ("ANZAHL_SEPARATOR"     "2")
-    ("ANZAHL_SCANNER"       "0")
-    ("TYP"                  "standard")
-    ("SEITE"                "rechts")
-    ("GF_Bogen_L_90"        "0")
-    ("GF_Bogen_L_60"        "0")
-    ("GF_Bogen_L_30"        "0")
-    ("GF_Bogen_R_90"        "0")
-    ("GF_Bogen_R_60"        "0")
-    ("GF_Bogen_R_30"        "0")
-    ("VF_Bogen_A_90"        "0")
-    ("VF_Bogen_A_60"        "0")
-    ("VF_Bogen_A_30"        "0")
-    ("VF_Bogen_I_90"        "0")
-    ("VF_Bogen_I_60"        "0")
-    ("VF_Bogen_I_30"        "0")
-    ("ID"                   "")))
+;; Attribut-Definitionen fuer VF_*-Bloecke kommen aus dem gemeinsamen
+;; Strecken-Schema in ssg_core.lsp (ssg-strecke-attrib-defs). VarioFoerderer
+;; ist immer TYP "Streckengruppe" -> voller Attributsatz.
 
 ;; ============================================================
 ;; TEIL 4: HILFSFUNKTIONEN
@@ -131,6 +105,15 @@
     ((and (> len 2.5) (< len 3.5)) "Z")
     (t nil)))
 
+;; Normalisiert die verschiedenen KS-Blocknamen auf "KS_EIN"/"KS_AUS".
+;; Die aelteren Bloecke (AS/ES/Gefaellebogen) verwenden KS_EIN/KS_AUS, die
+;; Vario_Kurve-Bloecke KSYS_EIN/KSYS_AUS. Rueckgabe nil, wenn kein KS-Block.
+(defun ks-normalize-name (nm)
+  (cond
+    ((or (= nm "KS_EIN") (= nm "KSYS_EIN")) "KS_EIN")
+    ((or (= nm "KS_AUS") (= nm "KSYS_AUS")) "KS_AUS")
+    (t nil)))
+
 (defun fmt (x)
   (if (and (numberp x) (not (equal x nil))) (rtos x 2 2) "---"))
 
@@ -232,6 +215,35 @@
   (setq zu (vec3-cross xu-unit yu))
   (list P xu-unit yu zu))
 
+;; --- Bruecke Frame <-> (hz, winkel) ---
+;; Fuer vf-linienzug (gemischte GF/VF-Ketten, vf_linienzug.lsp): Gefaellestrecke
+;; traegt den Kettenzustand als Frame (Position + Richtungsvektor xu) weiter,
+;; waehrend die aelteren VF-Einfuegefunktionen (insert-block-by-ks,
+;; insert-rotated-block-with-ks, insert-inclined-scaled-block) Position+hz+winkel
+;; getrennt erwarten. Beide nutzen dieselbe Rz(hz)*Ry(winkel)-Rotation
+;; (winkel positiv = abwaerts, xu = (cos(hz)cos(v), sin(hz)cos(v), -sin(v))),
+;; daher sind Frame und (hz winkel) verlustfrei ineinander umrechenbar.
+(defun frame->hz-winkel (frame / xu horiz-len)
+  (setq xu (cadr frame))
+  (setq horiz-len (sqrt (+ (* (car xu)(car xu)) (* (cadr xu)(cadr xu)))))
+  (list
+    (* (atan (cadr xu) (car xu)) (/ 180.0 pi))
+    (* (atan (- (caddr xu)) horiz-len) (/ 180.0 pi))
+  )
+)
+
+(defun hz-winkel->xu (hz winkel / rad-h rad-v)
+  (setq rad-h (* (float hz)     (/ pi 180.0)))
+  (setq rad-v (* (float winkel) (/ pi 180.0)))
+  (list (* (cos rad-h)(cos rad-v))
+        (* (sin rad-h)(cos rad-v))
+        (- (sin rad-v)))
+)
+
+(defun punkt-hz-winkel->frame (punkt hz winkel)
+  (make-frame-from-dir punkt (hz-winkel->xu hz winkel))
+)
+
 ;; ============================================================
 ;; TEIL 5: KS_EIN/KS_AUS EXTRAKTION
 ;; ============================================================
@@ -260,12 +272,13 @@
   (setq ks-results '())
   (setq sub-entities (vlax-invoke block-obj 'Explode))
   (foreach sub-obj sub-entities
-    (if (and (not (vlax-erased-p sub-obj))
-             (= (vla-get-ObjectName sub-obj) "AcDbBlockReference")
-             (or (= (vla-get-Name sub-obj) "KS_EIN")
-                 (= (vla-get-Name sub-obj) "KS_AUS")))
+    (setq ks-ref
+      (if (and (not (vlax-erased-p sub-obj))
+               (= (vla-get-ObjectName sub-obj) "AcDbBlockReference"))
+        (ks-normalize-name (vla-get-Name sub-obj))
+        nil))
+    (if ks-ref
       (progn
-        (setq ks-ref (vla-get-Name sub-obj))
         (setq inner-entities (vlax-invoke sub-obj 'Explode))
         (setq origin nil x-end nil y-end nil z-end nil)
         (foreach inner-obj inner-entities
@@ -400,22 +413,18 @@
 ;; ============================================================
 ;; TEIL 7: VF-NUMMERIERUNG
 ;; ============================================================
-(defun vf-next-number ( / ss i nr maxnr attribs)
+;; Naechste freie VF-Nummer aus den Blocknamen VF_<n> ableiten (der Blockname
+;; ist die Bezeichnung/Zaehlung; ein separates NUMMER-Attribut gibt es nicht mehr).
+(defun vf-next-number ( / ss i nr maxnr bname)
   (setq maxnr 0)
   (setq ss (ssget "X" '((0 . "INSERT") (2 . "VF_*"))))
   (if ss
     (progn
       (setq i 0)
       (while (< i (sslength ss))
-        (setq attribs (ssg-attrib-read (ssname ss i)))
-        (foreach pair attribs
-          (if (= (car pair) "NUMMER")
-            (progn
-              (setq nr (atoi (cdr pair)))
-              (if (> nr maxnr) (setq maxnr nr))
-            )
-          )
-        )
+        (setq bname (cdr (assoc 2 (entget (ssname ss i)))))
+        (setq nr (atoi (substr bname 4)))   ; "VF_" = 3 Zeichen -> ab Position 4
+        (if (> nr maxnr) (setq maxnr nr))
         (setq i (1+ i))
       )
     )
@@ -993,9 +1002,10 @@
   (vf-make-label vf-nummer hoehe-von hoehe-bis deltaH deltaL L_VF L_GF1 L_GF2
                  richtung best-winkel 2 n-scanner startpunkt hz)
 
-  ;; Unsichtbare ATTDEFs am Startpunkt erzeugen
+  ;; Unsichtbare ATTDEFs am Startpunkt erzeugen (gemeinsames Strecken-Schema;
+  ;; VarioFoerderer ist immer TYP "Streckengruppe" -> voller Attributsatz).
   (setq attdef-ypos (cadr startpunkt))
-  (foreach def *vf-attrib-defs*
+  (foreach def (ssg-strecke-attrib-defs "Streckengruppe")
     (entmake (list
       '(0 . "ATTDEF")
       '(8 . "0")
@@ -1037,20 +1047,28 @@
       (setq L_GF_m-str (strcat (rtos (/ L_GF1 1000.0) 2 3) "," (rtos (/ L_GF2 1000.0) 2 3)))
       (ssg-attrib-set-on vf-insert
         (list
-          (cons "NUMMER"               (itoa vf-nummer))
+          (cons "Bezeichnung"          vf-bname)
+          ;; Artinr. bleibt auf Schema-Vorgabe "6220"
           (cons "MONTAGEHOEHE_m"       (rtos montagehoehe-m 2 3))
-          (cons "HOEHE_VON"            (itoa (fix hoehe-von)))
-          (cons "HOEHE_BIS"            (itoa (fix hoehe-bis)))
-          (cons "DELTA_H"              (itoa (fix deltaH)))
-          (cons "DELTA_L"              (itoa (fix deltaL)))
-          (cons "L_VF_m"               (rtos (/ L_VF 1000.0) 2 3))
+          (cons "HOEHE_VON_mm"         (itoa (fix hoehe-von)))
+          (cons "HOEHE_BIS_mm"         (itoa (fix hoehe-bis)))
+          (cons "DELTA_H_mm"           (itoa (fix deltaH)))
+          (cons "DELTA_L_mm"           (itoa (fix deltaL)))
+          (cons "TYP"                  "Streckengruppe")
+          (cons "SEITE_AS"             seite)
+          (cons "SEITE_ES"             seite)
+          (cons "ANZAHL_GF"            "2")   ; GF1 + GF2
           (cons "L_GF_m"               L_GF_m-str)
+          ;; GF_WINKEL: Neigung je GF-Segment (GF1,GF2 - beide feste Grundneigung)
+          (cons "GF_WINKEL"            (strcat (rtos (float (ssg-cfg-or "vario" "gefaelle_winkel" 3)) 2 1)
+                                               "," (rtos (float (ssg-cfg-or "vario" "gefaelle_winkel" 3)) 2 1)))
+          (cons "ANZAHL_VF"            "1")   ; ein VF-Koerper
+          (cons "MOTORSEITE"           "rechts")
+          (cons "L_VF_m"               (rtos (/ L_VF 1000.0) 2 3))
           (cons "ANTRIEBFAHRTRICHTUNG" richtung)
-          (cons "WINKEL"               (itoa best-winkel))
+          (cons "VF_WINKEL"            (itoa best-winkel))
           (cons "ANZAHL_SEPARATOR"     "2")
           (cons "ANZAHL_SCANNER"       (itoa n-scanner))
-          (cons "TYP"                  anlage-typ)
-          (cons "SEITE"                seite)
         )
       )
       ;; Typ-spezifische Bogen-Zaehler (Etage: 2x Gefaellebogen je Seite)
@@ -1060,6 +1078,9 @@
           (ssg-attrib-set-on vf-insert (list (cons "GF_Bogen_L_60" "2")))
         )
       )
+      ;; Aufsteigende, eindeutige ID vergeben (wie beim Kreisel), falls verfuegbar.
+      (if (car (atoms-family 1 '("SSG-ID-GENERATE")))
+        (ssg-id-generate vf-insert))
       (princ (strcat "\n>>> Block '" vf-bname "' erstellt und eingefuegt."))
     )
     (princ "\n>>> FEHLER: Keine Entities fuer Block gefunden!")
@@ -1087,6 +1108,7 @@
       (progn
         (load (strcat *vf-lisp-pfad* "/vf_standard.lsp"))
         (load (strcat *vf-lisp-pfad* "/vf_etage.lsp"))
+        (load (strcat *vf-lisp-pfad* "/vf_linienzug.lsp"))
         (setq *ssg-vf-submodule-loaded* t)
       )
       (princ "\n[vf_core] WARNUNG: DXFM_LISP nicht gesetzt - Untermodule konnten nicht geladen werden!")
@@ -1144,6 +1166,17 @@
   (setq einfuege-fn (nth 2 typ-eintr))
   (princ (strcat "\n>>> Typ: " anlage-typ))
 
+  ;; Sonderfall "linienzug": eigener Befehlsablauf (interaktive Mehrsegment-
+  ;; 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.
+  (if (= anlage-typ "linienzug")
+    (progn
+      (vf-linienzug-modus)
+      (exit)
+    )
+  )
+
   ;; 2. VF-Nummer automatisch ermitteln
   (setq vf-nummer (vf-next-number))
   (princ (strcat "\n>>> Naechste VF-Nummer: VF" (itoa vf-nummer)))
@@ -1288,9 +1321,8 @@
   (princ (strcat "\n>>> L_GF1=" (rtos L_GF1 2 2)
                  " mm   L_GF2=" (rtos L_GF2 2 2) " mm"))
 
-  ;; 10. Anzahl Scanner
-  (setq n-scanner (getint "\nAnzahl Scanner [0]: "))
-  (if (null n-scanner) (setq n-scanner 0))
+  ;; Scanner-Anzahl wird nicht mehr abgefragt (Attribut ANZAHL_SCANNER bleibt 0).
+  (setq n-scanner 0)
 
   ;; 11. Bestaetigung
   (princ "\n\nMoechten Sie die Foerderanlage einfuegen?")

Lisp/vf_standard.lsp

@@ -95,7 +95,11 @@
 ;; ============================================================
 (defun init-bibliothek ( / temp-obj bogen-winkel ks-data ks-ein-pos ks-aus-pos
                            dx dy dz bogen-name)
-  (if (and *lib-initialized* (tblsearch "BLOCK" "AS_Element_90_links"))
+  ;; "bereits initialisiert" nur, wenn das Flag gesetzt UND die Bogen-Tabelle
+  ;; tatsaechlich befuellt ist. Sonst (Stuck-State: Flag gesetzt, aber bogen-auf
+  ;; leer - z.B. nach einer fehlgeschlagenen Extraktion) neu initialisieren.
+  (if (and *lib-initialized* bogen-auf bogen-ab
+           (tblsearch "BLOCK" "AS_Element_90_links"))
     (progn
       (princ "\n  Standard-Bibliothek bereits initialisiert.")
       t
@@ -259,7 +263,10 @@
 ;; ============================================================
 ;; TEIL 4: WINKELBERECHNUNG
 ;; ============================================================
-(defun berechne-alle-winkel (deltaL deltaH richtung /
+;; feste-hz: horizontales Budget der festen Elemente (Umlenk+Motor+Separatoren).
+;; nil => Standardwert FESTE_HORIZONTAL (1600, Standard-VF mit 2 Separatoren).
+;; Der Linienzug uebergibt 1300 (nur 1 Separator am Einlauf, siehe vf_linienzug).
+(defun berechne-alle-winkel (deltaL deltaH richtung feste-hz /
                              winkel-list ergebnis-liste A B cos3 sin3
                              bogen-x1 bogen-z1 bogen-x2 bogen-z2
                              abs-dz-AUS abs-dz-EIN L_GF L_VF cosα sinα
@@ -273,6 +280,7 @@
       (exit)
     )
   )
+  (if (null feste-hz) (setq feste-hz FESTE_HORIZONTAL))
 
   (setq abs-dz-AUS (abs aus-dz) abs-dz-EIN (abs ein-dz))
   (setq winkel-list (ssg-cfg-or "vario" "bogen_winkel"
@@ -312,16 +320,16 @@
         (setq cosα (cos (* winkel (/ pi 180.0)))
               sinα (sin (* winkel (/ pi 180.0))))
         (setq A (- deltaL aus-dx ein-dx bogen-x1 bogen-x2
-                   (* FESTE_HORIZONTAL cos3)))
+                   (* feste-hz cos3)))
         (setq winkel-eff (if (= richtung "Auf") (- winkel 3) (+ winkel 3)))
         (setq cosEff (cos (* winkel-eff (/ pi 180.0)))
               sinEff (sin (* winkel-eff (/ pi 180.0))))
         (if (= richtung "Auf")
           (setq B (+ deltaH abs-dz-AUS abs-dz-EIN
                      (- bogen-z1) (- bogen-z2)
-                     (* FESTE_HORIZONTAL sin3)))
+                     (* feste-hz sin3)))
           (setq B (+ (- deltaH abs-dz-AUS abs-dz-EIN
-                         (* FESTE_HORIZONTAL sin3))
+                         (* feste-hz sin3))
                      bogen-z1 bogen-z2))
         )
         (if (> (abs sinα) 0.0001)
@@ -442,7 +450,7 @@
   (setq FESTE_HORIZONTAL  (ssg-cfg-or "vario" "feste_horizontal"  1600))
   (setq staustrecke-basis (ssg-cfg-or "vario" "staustrecke_basis" 1000))
   (init-bibliothek)
-  (berechne-alle-winkel deltaL deltaH richtung)
+  (berechne-alle-winkel deltaL deltaH richtung nil)
 )
 
 ;; ============================================================
@@ -453,48 +461,64 @@
 ;; hz: horizontale Fahrtrichtung in Grad (0=Ost/+X, 90=Nord/+Y, 180=West/-X,
 ;;     270=Sued/-Y). Default 0, falls vom Aufrufer nicht mitgegeben (Etage-
 ;;     Registry-Kompatibilitaet - siehe c:VarioFoerderer).
-(defun variofoerderer-einfuegen (deltaL deltaH richtung best-winkel
-                                  L_GF1 L_GF2 L_VF startpunkt seite hz
-                                / aktueller-punkt bogen-name endpunkt
-                                  bogen-mass bogen-dx bogen-dz
-                                  as-block es-block)
+;; --- Teil 1/3: AS-Element (Kettenanfang) ---
+;; Eigenstaendig, damit vf-linienzug (Gemischte GF/VF-Kette) ein VF-Segment
+;; auch OHNE eigenes AS/ES mitten in der Kette einfuegen kann (vfs-mitte-teil
+;; alleine), waehrend ein normaler Standard-VarioFoerderer weiterhin alle 3
+;; Teile nacheinander durchlaeuft (siehe variofoerderer-einfuegen unten).
+(defun vfs-as-teil (startpunkt seite hz / as-block)
   (if (null hz) (setq hz 0.0))
   (setq hz (float hz))
-  (setq aktueller-punkt startpunkt)
   (setq as-block (strcat "AS_Element_90_" seite))
-  (setq es-block (strcat "ES_Element_90_" seite))
   (if (not *lib-initialized*) (init-bibliothek))
-
-  ;; 1. AUS_Element
   (princ (strcat "\n\n1/11: " as-block " (hz=" (rtos hz 2 1) grad-zeichen ")"))
-  (setq aktueller-punkt (insert-block-by-ks as-block aktueller-punkt hz))
+  (insert-block-by-ks as-block startpunkt hz)
+)
 
-  ;; 2. 1. Gefaellestrecke
+;; --- Teil 2a: VF-Eingang (GF1 + Separator + Umlenkstation) ---
+;; Beginnt eine reine VF-Einheit: bringt die Kette von der (3-Grad-geneigten)
+;; AS-Seite ueber GF1 + Separator bis zur Umlenkstation. Wird pro VF-Einheit
+;; GENAU EINMAL aufgerufen (auch wenn danach mehrere Sub-Segmente folgen).
+(defun vfs-vf-entry (aktueller-punkt L_GF1 hz)
+  (if (null hz) (setq hz 0.0))
+  (setq hz (float hz))
+  ;; 1. Gefaellestrecke GF1 (verbindet AS-Neigung mit Umlenkstation)
   (if (> L_GF1 0.1)
     (progn
-      (princ (strcat "\n\n2/11: Gefaellestrecke (3 Grad, L=" (rtos L_GF1 2 2) " mm)"))
+      (princ (strcat "\n\n[VF-Eingang] Gefaellestrecke GF1 (3 Grad, L=" (rtos L_GF1 2 2) " mm)"))
       (setq aktueller-punkt
         (insert-inclined-scaled-block "Staustrecke_SP_1000_mm" aktueller-punkt
           L_GF1 (ssg-cfg-or "vario" "gefaelle_winkel" 3) hz))
     )
-    (princ "\n\n2/11: (uebersprungen)")
+    (princ "\n\n[VF-Eingang] Gefaellestrecke GF1 (uebersprungen)")
   )
-
-  ;; 3. Separator
-  (princ "\n\n3/11: Separator (300 mm, 3 Grad geneigt)")
+  ;; 2. Separator (am GF1-Ende / vor Umlenkstation)
+  (princ "\n[VF-Eingang] Separator (300 mm, 3 Grad geneigt)")
   (setq aktueller-punkt
     (insert-rotated-block-with-ks "Staustrecke_Separator_SP_300_mm" aktueller-punkt
       (ssg-cfg-or "vario" "gefaelle_winkel" 3)
       (ssg-cfg-or "vario" "separator_block_dx" 300)
       (ssg-cfg-or "vario" "separator_block_dz" 0) hz))
-
-  ;; 4. Umlenkstation
-  (princ "\n\n4/11: Umlenkstation (500 mm, 3 Grad geneigt)")
+  ;; 3. Umlenkstation
+  (princ "\n[VF-Eingang] Umlenkstation (500 mm, 3 Grad geneigt)")
   (setq aktueller-punkt
     (insert-rotated-block-with-ks "Vario_Umlenkstation_500mm" aktueller-punkt
       (ssg-cfg-or "vario" "gefaelle_winkel" 3)
       (ssg-cfg-or "vario" "station_block_dx" 500)
       (ssg-cfg-or "vario" "station_block_dz" 0) hz))
+  aktueller-punkt
+)
+
+;; --- Teil 2b: VF-Koerper (Vertikalbogen + L_VF + Vertikalbogen) ---
+;; EIN reines VF-Sub-Segment. Wichtig: es BEGINNT und ENDET auf der
+;; 3-Grad-Basisneigung, weil Ein- und Ausgangsbogen denselben Winkel haben.
+;; Dadurch lassen sich mehrere Sub-Segmente (und Vario-Kurven dazwischen)
+;; beliebig aneinanderreihen (siehe doc/VarioFoerderer_Linienzug_Prinzipien.md).
+;; best-winkel=0 => horizontales Sub-Segment (Boegen fest auf_3/ab_3).
+(defun vfs-vf-koerper (aktueller-punkt richtung best-winkel L_VF hz /
+                        bogen-name bogen-mass bogen-dx bogen-dz)
+  (if (null hz) (setq hz 0.0))
+  (setq hz (float hz))
 
   ;; 5. 1. Vertikalbogen
   ;; Sonderfall best-winkel=0 (horizontale Zwischenstrecke, siehe
@@ -598,36 +622,84 @@
     )
   )
 
-  ;; 8. Motorstation
-  (princ "\n\n8/11: Motorstation (500 mm, 3 Grad geneigt)")
+  aktueller-punkt
+)
+
+;; --- Teil 2c: VF-Ausgang (Motorstation [+ GF2] [+ Separator]) ---
+;; Schliesst eine reine VF-Einheit mit der Motorstation.
+;;   L_GF2 > 0.1     => GF2 (3 Grad) wird angehaengt (verbindet Motorstation
+;;                      mit der Auslauf-Neigung).
+;;   mit-separator T => Separator (300 mm) am Ende (Standard-VF: vor ES).
+;; Standard-VF: L_GF2 = L_GF/2, mit-separator = t.
+;; Linienzug: Separator wird NICHT hier gebaut (er sitzt erst vor dem ES bzw.
+;; optional zwischen Foerderern) -> mit-separator = nil; GF2 je nach Wahl.
+(defun vfs-vf-exit (aktueller-punkt L_GF2 hz mit-separator)
+  (if (null hz) (setq hz 0.0))
+  (setq hz (float hz))
+  ;; Motorstation
+  (princ "\n\n[VF-Ausgang] Motorstation (500 mm, 3 Grad geneigt)")
   (setq aktueller-punkt
     (insert-rotated-block-with-ks "Vario_Motorstation_500mm" aktueller-punkt
       (ssg-cfg-or "vario" "gefaelle_winkel" 3)
       (ssg-cfg-or "vario" "station_block_dx" 500)
       (ssg-cfg-or "vario" "station_block_dz" 0) hz))
-
-  ;; 9. 2. Gefaellestrecke
+  ;; GF2 (optional, verbindet Motorstation mit der Auslauf-Neigung)
   (if (> L_GF2 0.1)
     (progn
-      (princ (strcat "\n\n9/11: Gefaellestrecke (3 Grad, L=" (rtos L_GF2 2 2) " mm)"))
+      (princ (strcat "\n[VF-Ausgang] Gefaellestrecke GF2 (3 Grad, L=" (rtos L_GF2 2 2) " mm)"))
       (setq aktueller-punkt
         (insert-inclined-scaled-block "Staustrecke_SP_1000_mm" aktueller-punkt
           L_GF2 (ssg-cfg-or "vario" "gefaelle_winkel" 3) hz))
     )
-    (princ "\n\n9/11: (uebersprungen)")
+    (princ "\n[VF-Ausgang] GF2 (kein / uebersprungen)")
   )
+  ;; Separator (optional, nur Standard-VF)
+  (if mit-separator
+    (progn
+      (princ "\n[VF-Ausgang] Separator (300 mm, 3 Grad geneigt)")
+      (setq aktueller-punkt
+        (insert-rotated-block-with-ks "Staustrecke_Separator_SP_300_mm" aktueller-punkt
+          (ssg-cfg-or "vario" "gefaelle_winkel" 3)
+          (ssg-cfg-or "vario" "separator_block_dx" 300)
+          (ssg-cfg-or "vario" "separator_block_dz" 0) hz))
+    )
+  )
+  aktueller-punkt
+)
 
-  ;; 10. Separator 2
-  (princ "\n\n10/11: Separator (300 mm, 3 Grad geneigt)")
-  (setq aktueller-punkt
-    (insert-rotated-block-with-ks "Staustrecke_Separator_SP_300_mm" aktueller-punkt
-      (ssg-cfg-or "vario" "gefaelle_winkel" 3)
-      (ssg-cfg-or "vario" "separator_block_dx" 300)
-      (ssg-cfg-or "vario" "separator_block_dz" 0) hz))
+;; --- Teil 2 (Zusammensetzung): Kettenmitte fuer den Standard-VF ---
+;; Entry + EIN Koerper + Exit. Verhalten identisch zur bisherigen Fassung.
+(defun vfs-mitte-teil (aktueller-punkt richtung best-winkel L_GF1 L_GF2 L_VF hz)
+  (if (null hz) (setq hz 0.0))
+  (setq hz (float hz))
+  (setq aktueller-punkt (vfs-vf-entry  aktueller-punkt L_GF1 hz))
+  (setq aktueller-punkt (vfs-vf-koerper aktueller-punkt richtung best-winkel L_VF hz))
+  (setq aktueller-punkt (vfs-vf-exit   aktueller-punkt L_GF2 hz t))
+  aktueller-punkt
+)
 
-  ;; 11. EIN_Element
+;; --- Teil 3/3: ES-Element (Kettenende) ---
+(defun vfs-es-teil (aktueller-punkt seite hz / es-block)
+  (if (null hz) (setq hz 0.0))
+  (setq hz (float hz))
+  (setq es-block (strcat "ES_Element_90_" seite))
   (princ (strcat "\n\n11/11: " es-block " (hz=" (rtos hz 2 1) grad-zeichen ")"))
-  (setq endpunkt (insert-block-by-ks es-block aktueller-punkt hz))
+  (insert-block-by-ks es-block aktueller-punkt hz)
+)
+
+;; --- Zusammensetzung: kompletter Standard-VarioFoerderer ---
+;; Reine Verkettung von Teil 1+2+3, Verhalten identisch zur bisherigen
+;; monolithischen Fassung. deltaL/deltaH werden hier nicht gebraucht (Teil
+;; der einfuege-fn-Schnittstelle der Typ-Registry, siehe vf-typ-registrieren).
+(defun variofoerderer-einfuegen (deltaL deltaH richtung best-winkel
+                                  L_GF1 L_GF2 L_VF startpunkt seite hz
+                                / aktueller-punkt endpunkt)
+  (if (null hz) (setq hz 0.0))
+  (setq hz (float hz))
+  (setq aktueller-punkt (vfs-as-teil startpunkt seite hz))
+  (setq aktueller-punkt
+    (vfs-mitte-teil aktueller-punkt richtung best-winkel L_GF1 L_GF2 L_VF hz))
+  (setq endpunkt (vfs-es-teil aktueller-punkt seite hz))
 
   (princ "\n\n=========================================")
   (princ "\n>>> Standard VarioFoerderer eingefuegt!")

cfg/attradd.cfg

@@ -32,9 +32,31 @@ weiche_45           = "A-2"
 # Weichenbatterien / Parallel (KurvenWinkel=0)
 weichenbatterie     = "A-2"
 # Weichenkombinationen (Deltaweiche, Sternweiche, Dreifachweiche)
-weichenkombination  = "L-2"
+weichenkombination  = "A-2"
 # Weichenkoerper (KurvenWinkel=22.5)
-weichenkoerper      = "L-2"
+weichenkoerper      = "A-2"
+# Kreuzungsweichen (800, 300) - Layer L für Stahlstrecke (alt)
+kreuzungsweiche     = "L-2"
+
+# PNEUMATISCH GESCHALTET
+# Weichen pneumatisch 90 Grad (Einzelweiche/Doppelweiche/Dreiwegeweiche, KurvenWinkel=90)
+weiche_pn_90           = "A-3"
+# Weichen 45 Grad (Einzelweiche/Doppelweiche/Dreiwegeweiche, KurvenWinkel=45)
+weiche_pn_45           = "A-3"
+# Weichenbatterien / Parallel (KurvenWinkel=0)
+weichenbatterie_pn     = "A-3"
+# Weichenkombinationen (Deltaweiche, Sternweiche, Dreifachweiche)
+weichenkombination_pn  = "A-3"
+# Weichenkoerper (KurvenWinkel=22.5)
+weichenkoerper_pn      = "A-3"
+# Kreuzungsweichen (300) - Layer L für Stahlstrecke (alt)
+kreuzungsweiche_pn        = "L-3"
+
+# TEF Förderer
+TEF_gerade                = "F-1"
+TEF_bogen                 = "F-1"
+TEF_antriebstation        = "F-1"
+TEF_umlenkspannstation    = "F-1"
 
 [bogen]
 BESCHR    = ProfilTyp
@@ -74,3 +96,10 @@ LAYER     = "A-2"
 HOEHE     = ""
 DREHUNG   = ""
 
+
+[container]
+0_BG071090 = 0_B10071, 0_B10090, 0_B10090
+0_BG080090 = 0_B10080, 0_B10090,
+0_BG081090 = 0_B10081, 0_B10090,
+0_BG090090 = 0_B10090, 0_B10090,
+0_BG190090 = 0_B10090, 0_B10090