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

Merge branch 'master' of https://gitea.schoenenberger.de/Schoenenberger_Systeme_GmbH/dxfmakros
Aufruf von explizitem Python Call rausgeworfen. War nur zu testzwecken
2026-07-10 21:26:41 +02:00 · 2026-07-10 21:22:53 +02:00 · 2026-07-10 20:16:46 +02:00 · 2026-07-10 14:16:30 +02:00 · 2026-07-10 13:34:10 +02:00 · 2026-07-10 13:32:52 +02:00
275 changed files with 69752 additions and 320860 deletions
@@ -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
@@ -238,8 +245,10 @@

 ;; --- Block per KS_EIN/KS_AUS einfuegen ---
 (if (null (car (atoms-family 1 '("INSERT-BLOCK-BY-KS"))))
-  (defun insert-block-by-ks (blockname einfuegepunkt /
-                               block-obj temp-obj ks-data ks-ein ks-aus offset ausgang)
+  (defun insert-block-by-ks (blockname einfuegepunkt hz /
+                               block-obj temp-obj ks-data ks-ein ks-aus
+                               rad-h chv shv ein-x ein-y ein-z dx-loc dy-loc dz-loc
+                               offset ausgang)
    (ensure-block-loaded blockname)
    (if (not (tblsearch "BLOCK" blockname))
      (progn
@@ -247,6 +256,8 @@
        (exit)
      )
    )
+    (setq rad-h (* (float hz) (/ pi 180.0)))
+    (setq chv (cos rad-h) shv (sin rad-h))
    ;; KS_EIN/KS_AUS ueber eigenes Temp-Objekt am Ursprung ermitteln (nicht
    ;; am spaeter tatsaechlich platzierten block-obj), siehe vf_core.lsp.
    (setq temp-obj
@@ -259,21 +270,30 @@
    (setq ks-aus (cadr (assoc "KS_AUS" ks-data)))
    (setq block-obj
      (vla-InsertBlock modelspace
-        (vlax-3D-point einfuegepunkt)
+        (vlax-3D-point '(0 0 0))
        blockname 1.0 1.0 1.0 0))
+    (vla-TransformBy block-obj (vlax-tmatrix
+      (list (list chv (- shv) 0 0)
+            (list shv   chv   0 0)
+            (list 0      0    1 0)
+            (list 0      0    0 1))))
    (if (and ks-ein ks-aus)
      (progn
-        (setq offset
-          (list (- (car   (car ks-ein)))
-                (- (cadr  (car ks-ein)))
-                (- (caddr (car ks-ein)))))
+        (setq ein-x (car (car ks-ein)) ein-y (cadr (car ks-ein)) ein-z (caddr (car ks-ein)))
+        (setq offset (list
+          (- (car   einfuegepunkt) (- (* chv ein-x) (* shv ein-y)))
+          (- (cadr  einfuegepunkt) (+ (* shv ein-x) (* chv ein-y)))
+          (- (caddr einfuegepunkt) ein-z)))
        (vla-Move block-obj
          (vlax-3D-point '(0 0 0))
          (vlax-3D-point offset))
-        (setq ausgang
-          (list (+ (car   einfuegepunkt) (car   (car ks-aus)) (car   offset))
-                (+ (cadr  einfuegepunkt) (cadr  (car ks-aus)) (cadr  offset))
-                (+ (caddr einfuegepunkt) (caddr (car ks-aus)) (caddr offset))))
+        (setq dx-loc (- (car   (car ks-aus)) ein-x))
+        (setq dy-loc (- (cadr  (car ks-aus)) ein-y))
+        (setq dz-loc (- (caddr (car ks-aus)) ein-z))
+        (setq ausgang (list
+          (+ (car   einfuegepunkt) (- (* chv dx-loc) (* shv dy-loc)))
+          (+ (cadr  einfuegepunkt) (+ (* shv dx-loc) (* chv dy-loc)))
+          (+ (caddr einfuegepunkt) dz-loc)))
        (princ (strcat "\n    KS_AUS Z=" (rtos (caddr ausgang) 2 2)))
        ausgang
      )
@@ -287,30 +307,32 @@

 ;; --- Skalierter geneigter Block (Staustrecke, Richtung X) ---
 (if (null (car (atoms-family 1 '("INSERT-INCLINED-SCALED-BLOCK"))))
-  (defun insert-inclined-scaled-block (blockname startpunkt laenge winkel /
-                                        rad scale block-obj endpunkt)
+  (defun insert-inclined-scaled-block (blockname startpunkt laenge winkel hz /
+                                        rad-v rad-h chv shv cvv svv scale block-obj endpunkt)
    (if (<= laenge 0.1)
      (progn (princ "\n  (Laenge 0 - uebersprungen)") startpunkt)
      (progn
        (ensure-block-loaded blockname)
        (setq scale (/ (float laenge) 1000.0))
-        (setq rad (* (float winkel) (/ pi 180.0)))
+        (setq rad-v (* (float winkel) (/ pi 180.0)))
+        (setq rad-h (* (float hz)     (/ pi 180.0)))
+        (setq chv (cos rad-h) shv (sin rad-h) cvv (cos rad-v) svv (sin rad-v))
        (setq block-obj
          (vla-InsertBlock modelspace
            (vlax-3D-point '(0 0 0))
            blockname scale 1.0 1.0 0))
        (vla-TransformBy block-obj (vlax-tmatrix
-          (list (list (cos rad) 0 (sin rad) 0)
-                (list 0 1 0 0)
-                (list (- (sin rad)) 0 (cos rad) 0)
+          (list (list (* chv cvv) (- shv) (* chv svv) 0)
+                (list (* shv cvv)   chv   (* shv svv) 0)
+                (list (- svv)        0      cvv        0)
                (list 0 0 0 1))))
        (vla-Move block-obj
          (vlax-3D-point '(0 0 0))
          (vlax-3D-point startpunkt))
        (setq endpunkt
-          (list (+ (car startpunkt)   (* laenge (cos rad)))
-                (cadr startpunkt)
-                (+ (caddr startpunkt) (* (- (sin rad)) laenge))))
+          (list (+ (car   startpunkt) (* laenge chv cvv))
+                (+ (cadr  startpunkt) (* laenge shv cvv))
+                (+ (caddr startpunkt) (* laenge (- svv)))))
        (princ (strcat "\n    " blockname " L=" (rtos laenge 2 1)
                       " -> Z=" (rtos (caddr endpunkt) 2 1)))
        endpunkt
@@ -319,20 +341,22 @@
  )
 )

-;; --- Rotierter Block mit manuellem dx/dz (Richtung X) ---
+;; --- Rotierter Block mit manuellem dx/dz ---
 ;; KS_EIN (nicht der Block-Ursprung) wird auf startpunkt ausgerichtet, siehe
 ;; Kommentar an der kanonischen Definition in vf_core.lsp.
 (if (null (car (atoms-family 1 '("INSERT-ROTATED-BLOCK-WITH-KS"))))
  ;; block-dx/block-dz: Fallback, nur falls KS_AUS nicht extrahierbar.
  ;; Ist KS_AUS vorhanden, wird der echte Versatz KS_AUS-KS_EIN verwendet
  ;; (schuetzt vor veralteten Config-Zahlen), siehe vf_core.lsp.
-  (defun insert-rotated-block-with-ks (blockname startpunkt winkel block-dx block-dz /
-                                        rad block-obj temp-obj ks-data
+  (defun insert-rotated-block-with-ks (blockname startpunkt winkel block-dx block-dz hz /
+                                        rad-v rad-h chv shv cvv svv block-obj temp-obj ks-data
                                        ks-ein-raw ks-aus-raw
                                        ein-x ein-y ein-z aus-x aus-y aus-z
                                        dx dz ins-pt)
    (ensure-block-loaded blockname)
-    (setq rad (* (float winkel) (/ pi 180.0)))
+    (setq rad-v (* (float winkel) (/ pi 180.0)))
+    (setq rad-h (* (float hz)     (/ pi 180.0)))
+    (setq chv (cos rad-h) shv (sin rad-h) cvv (cos rad-v) svv (sin rad-v))
    ;; Lokale KS_EIN/KS_AUS-Position ueber EIGENES Temp-Objekt ermitteln
    ;; (nicht am spaeter tatsaechlich platzierten block-obj), siehe vf_core.lsp.
    (setq temp-obj
@@ -363,23 +387,21 @@
        (vlax-3D-point '(0 0 0))
        blockname 1.0 1.0 1.0 0))
    (vla-TransformBy block-obj (vlax-tmatrix
-      (list (list (cos rad) 0 (sin rad) 0)
-            (list 0 1 0 0)
-            (list (- (sin rad)) 0 (cos rad) 0)
+      (list (list (* chv cvv) (- shv) (* chv svv) 0)
+            (list (* shv cvv)   chv   (* shv svv) 0)
+            (list (- svv)        0      cvv        0)
            (list 0 0 0 1))))
    (setq ins-pt (list
-      (- (car   startpunkt) (+ (* ein-x (cos rad)) (* ein-z (sin rad))))
-      (- (cadr  startpunkt) ein-y)
-      (- (caddr startpunkt) (+ (* (- (sin rad)) ein-x) (* (cos rad) ein-z)))))
+      (- (car   startpunkt) (+ (* ein-x chv cvv) (* ein-y (- shv)) (* ein-z chv svv)))
+      (- (cadr  startpunkt) (+ (* ein-x shv cvv) (* ein-y    chv)  (* ein-z shv svv)))
+      (- (caddr startpunkt) (+ (* ein-x (- svv))                   (* ein-z    cvv)))))
    (vla-Move block-obj
      (vlax-3D-point '(0 0 0))
      (vlax-3D-point ins-pt))
    (list
-      (+ (car startpunkt)
-         (+ (* dx (cos rad)) (* dz (sin rad))))
-      (cadr startpunkt)
-      (+ (caddr startpunkt)
-         (+ (* (- (sin rad)) dx) (* (cos rad) dz))))
+      (+ (car startpunkt)   (+ (* dx chv cvv) (* dz chv svv)))
+      (+ (cadr startpunkt)  (+ (* dx shv cvv) (* dz shv svv)))
+      (+ (caddr startpunkt) (+ (* dx (- svv)) (* dz cvv))))
  )
 )

@@ -1319,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! <<<")
@@ -1333,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))
      )
    )
@@ -1441,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)
@@ -1467,35 +1484,43 @@
    (ssadd ent gf-ss)
    (setq ent (entnext ent))
  )
-  ;; Block definieren und einfuegen
-  (setq gf-bname (strcat "GF_" (itoa gf-nummer)))
+  ;; 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)
-  ;; Attribute auf das eingefuegte INSERT-Objekt setzen
+  (setvar "ATTREQ" 1)
+  ;; 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
 )

@@ -1590,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! <<<")
@@ -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)))
@@ -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
@@ -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") "\""
@@ -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.
@@ -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))
      )
    )
@@ -428,7 +437,10 @@
 ;; ============================================================
 ;; TEIL 8: BLOCK-EINFUEGEFUNKTIONEN (gemeinsam fuer alle Typen)
 ;; ============================================================
-(defun insert-block-by-ks (blockname einfuegepunkt / block-obj temp-obj ks-data ks-ein ks-aus offset ausgang)
+;; hz: horizontale Fahrtrichtung in Grad (0=Ost/+X, 90=Nord/+Y, ...). Block
+;; hat sonst keine Neigung, daher nur Rz-Rotation (keine Ry-Komponente).
+(defun insert-block-by-ks (blockname einfuegepunkt hz / block-obj temp-obj ks-data ks-ein ks-aus
+                            rad-h chv shv ein-x ein-y ein-z dx-loc dy-loc dz-loc offset ausgang)
  (if (or (null einfuegepunkt) (not (listp einfuegepunkt)))
    (progn
      (princ (strcat "\n  FEHLER: Ungueltiger Einfuegepunkt fuer '" blockname "'"))
@@ -442,7 +454,9 @@
      (exit)
    )
  )
-  (princ (strcat "\n  Fuege Block '" blockname "' ein..."))
+  (princ (strcat "\n  Fuege Block '" blockname "' ein... (hz=" (rtos (float hz) 2 1) (chr 176) ")"))
+  (setq rad-h (* (float hz) (/ pi 180.0)))
+  (setq chv (cos rad-h) shv (sin rad-h))
  ;; KS_EIN/KS_AUS ueber eigenes Temp-Objekt am Ursprung ermitteln (nicht am
  ;; spaeter tatsaechlich platzierten block-obj - extract-ks-from-block
  ;; exploded das uebergebene Objekt intern), siehe insert-block-ks-to-ks.
@@ -453,23 +467,40 @@
  (if (not (vlax-erased-p temp-obj)) (vla-Delete temp-obj))
  (setq ks-ein (cadr (assoc "KS_EIN" ks-data)))
  (setq ks-aus (cadr (assoc "KS_AUS" ks-data)))
+  ;; Block am Ursprung einfuegen (nicht direkt am einfuegepunkt), damit die
+  ;; Rz-Rotation um den Block-Ursprung dreht, nicht um die Weltachse.
  (setq block-obj (vla-InsertBlock modelspace
-                    (vlax-3D-point einfuegepunkt)
+                    (vlax-3D-point '(0 0 0))
                    blockname 1.0 1.0 1.0 0))
+  (if (> (abs hz) 0.0001)
+    (vla-TransformBy block-obj (vlax-tmatrix
+      (list (list chv (- shv) 0 0)
+            (list shv   chv   0 0)
+            (list 0      0    1 0)
+            (list 0      0    0 1))))
+  )
  (if (and ks-ein ks-aus)
    (progn
-      ;; offset verschiebt block-obj so, dass KS_EIN (aktuell bei
-      ;; einfuegepunkt+lokalerVersatz) exakt auf einfuegepunkt zu liegen kommt.
-      (setq offset (list (- (car   (car ks-ein)))
-                         (- (cadr  (car ks-ein)))
-                         (- (caddr (car ks-ein)))))
+      (setq ein-x (car (car ks-ein)) ein-y (cadr (car ks-ein)) ein-z (caddr (car ks-ein)))
+      ;; Block-Ursprung so verschieben, dass das ROTIERTE KS_EIN exakt auf
+      ;; einfuegepunkt zu liegen kommt: Ursprung = einfuegepunkt - Rz(hz)*ks_ein_lokal
+      (setq offset (list
+        (- (car   einfuegepunkt) (- (* chv ein-x) (* shv ein-y)))
+        (- (cadr  einfuegepunkt) (+ (* shv ein-x) (* chv ein-y)))
+        (- (caddr einfuegepunkt) ein-z)))
      (vla-Move block-obj
        (vlax-3D-point '(0 0 0))
        (vlax-3D-point offset))
-      (setq ausgang (list (+ (car   einfuegepunkt) (car   (car ks-aus)) (car   offset))
-                          (+ (cadr  einfuegepunkt) (cadr  (car ks-aus)) (cadr  offset))
-                          (+ (caddr einfuegepunkt) (caddr (car ks-aus)) (caddr offset))))
+      ;; KS_AUS = einfuegepunkt + Rz(hz)*(ks_aus_lokal - ks_ein_lokal)
+      (setq dx-loc (- (car   (car ks-aus)) ein-x))
+      (setq dy-loc (- (cadr  (car ks-aus)) ein-y))
+      (setq dz-loc (- (caddr (car ks-aus)) ein-z))
+      (setq ausgang (list
+        (+ (car   einfuegepunkt) (- (* chv dx-loc) (* shv dy-loc)))
+        (+ (cadr  einfuegepunkt) (+ (* shv dx-loc) (* chv dy-loc)))
+        (+ (caddr einfuegepunkt) dz-loc)))
      (princ (strcat "\n    KS_AUS: X=" (rtos (car ausgang) 2 2)
+                     " Y=" (rtos (cadr ausgang) 2 2)
                     " Z=" (rtos (caddr ausgang) 2 2)))
      ausgang
    )
@@ -657,8 +688,10 @@
                              " Z=" (rtos (caddr P-out) 2 2)))
  (list P-out xu-out yu-out zu-out))

-(defun insert-inclined-scaled-block (blockname startpunkt laenge winkel /
-                                      rad matrix block-obj endpunkt scale)
+;; hz: horizontale Fahrtrichtung in Grad (0=Ost/+X, 90=Nord/+Y, ...),
+;; winkel: vertikale Neigung in Grad. Rotation = Rz(hz)*Ry(winkel).
+(defun insert-inclined-scaled-block (blockname startpunkt laenge winkel hz /
+                                      rad-v rad-h chv shv cvv svv matrix block-obj endpunkt scale)
  (if (<= laenge 0.1)
    (progn
      (princ (strcat "\n  Laenge=" (rtos laenge 2 2) " mm -> uebersprungen"))
@@ -673,26 +706,32 @@
        )
      )
      (princ (strcat "\n  Fuege '" blockname "' ein"
-                     " (L=" (rtos laenge 2 2) " mm, W=" (itoa winkel) (chr 176) ")"))
+                     " (L=" (rtos laenge 2 2) " mm, W=" (itoa winkel) (chr 176)
+                     " hz=" (rtos (float hz) 2 1) (chr 176) ")"))
      (setq scale (/ laenge (ssg-cfg-or "vario" "skalierung_basis" 1000.0)))
-      (setq rad (* winkel (/ pi 180.0)))
+      (setq rad-v (* (float winkel) (/ pi 180.0)))
+      (setq rad-h (* (float hz)     (/ pi 180.0)))
+      (setq chv (cos rad-h) shv (sin rad-h) cvv (cos rad-v) svv (sin rad-v))
      (setq block-obj (vla-InsertBlock modelspace
                        (vlax-3D-point '(0 0 0))
                        blockname scale 1.0 1.0 0))
      (setq matrix (list
-        (list (cos rad) 0 (sin rad) 0)
-        (list 0 1 0 0)
-        (list (- (sin rad)) 0 (cos rad) 0)
+        (list (* chv cvv) (- shv) (* chv svv) 0)
+        (list (* shv cvv)   chv   (* shv svv) 0)
+        (list (- svv)        0      cvv        0)
        (list 0 0 0 1)
      ))
      (vla-TransformBy block-obj (vlax-tmatrix matrix))
      (vla-Move block-obj
        (vlax-3D-point '(0 0 0))
        (vlax-3D-point startpunkt))
-      (setq endpunkt (list (+ (car startpunkt) (* laenge (cos rad)))
-                           (cadr startpunkt)
-                           (+ (caddr startpunkt) (* (- (sin rad)) laenge))))
-      (princ (strcat "\n    Endpunkt: Z=" (rtos (caddr endpunkt) 2 2)))
+      (setq endpunkt (list
+        (+ (car   startpunkt) (* laenge chv cvv))
+        (+ (cadr  startpunkt) (* laenge shv cvv))
+        (+ (caddr startpunkt) (* laenge (- svv)))))
+      (princ (strcat "\n    Endpunkt: X=" (rtos (car endpunkt) 2 2)
+                     " Y=" (rtos (cadr endpunkt) 2 2)
+                     " Z=" (rtos (caddr endpunkt) 2 2)))
      endpunkt
    )
  )
@@ -711,8 +750,10 @@
 ;; vorhanden, wird der ECHTE gemessene Versatz KS_AUS-KS_EIN verwendet -
 ;; das schuetzt vor veralteten Config-Zahlen, die nicht mehr zur
 ;; tatsaechlichen Blockgeometrie passen (z.B. nach einer DWG-Bereinigung).
-(defun insert-rotated-block-with-ks (blockname startpunkt winkel block-dx block-dz /
-                                      rad matrix block-obj temp-obj ks-data
+;; hz: horizontale Fahrtrichtung in Grad (0=Ost/+X, 90=Nord/+Y, ...),
+;; winkel: vertikale Neigung in Grad. Rotation = Rz(hz)*Ry(winkel).
+(defun insert-rotated-block-with-ks (blockname startpunkt winkel block-dx block-dz hz /
+                                      rad-v rad-h chv shv cvv svv matrix block-obj temp-obj ks-data
                                      ks-ein-raw ks-aus-raw
                                      ein-x ein-y ein-z aus-x aus-y aus-z
                                      dx dz ins-pt endpunkt)
@@ -730,8 +771,11 @@
        )
      )
      (princ (strcat "\n  Fuege Block '" blockname "' ein"
-                     " (Rotation " (itoa winkel) (chr 176) ")"))
-      (setq rad (* winkel (/ pi 180.0)))
+                     " (Rotation " (itoa winkel) (chr 176)
+                     "  hz=" (rtos (float hz) 2 1) (chr 176) ")"))
+      (setq rad-v (* winkel (/ pi 180.0)))
+      (setq rad-h (* (float hz) (/ pi 180.0)))
+      (setq chv (cos rad-h) shv (sin rad-h) cvv (cos rad-v) svv (sin rad-v))
      ;; Lokale KS_EIN/KS_AUS-Position ueber EIGENES Temp-Objekt ermitteln
      ;; (nicht am spaeter tatsaechlich platzierten block-obj -
      ;; extract-ks-from-block exploded das uebergebene Objekt intern; das
@@ -765,26 +809,27 @@
                        (vlax-3D-point '(0 0 0))
                        blockname 1.0 1.0 1.0 0))
      (setq matrix (list
-        (list (cos rad) 0 (sin rad) 0)
-        (list 0 1 0 0)
-        (list (- (sin rad)) 0 (cos rad) 0)
+        (list (* chv cvv) (- shv) (* chv svv) 0)
+        (list (* shv cvv)   chv   (* shv svv) 0)
+        (list (- svv)        0      cvv        0)
        (list 0 0 0 1)
      ))
      (vla-TransformBy block-obj (vlax-tmatrix matrix))
      ;; Block-Ursprung so verschieben, dass das ROTIERTE KS_EIN exakt auf
-      ;; startpunkt liegt: Ursprung = startpunkt - Rot(ks_ein_lokal)
+      ;; startpunkt liegt: Ursprung = startpunkt - Rz(hz)*Ry(winkel)*ks_ein_lokal
      (setq ins-pt (list
-        (- (car   startpunkt) (+ (* ein-x (cos rad)) (* ein-z (sin rad))))
-        (- (cadr  startpunkt) ein-y)
-        (- (caddr startpunkt) (+ (* (- (sin rad)) ein-x) (* (cos rad) ein-z)))))
+        (- (car   startpunkt) (+ (* ein-x chv cvv) (* ein-y (- shv)) (* ein-z chv svv)))
+        (- (cadr  startpunkt) (+ (* ein-x shv cvv) (* ein-y    chv)  (* ein-z shv svv)))
+        (- (caddr startpunkt) (+ (* ein-x (- svv))                   (* ein-z    cvv)))))
      (vla-Move block-obj
        (vlax-3D-point '(0 0 0))
        (vlax-3D-point ins-pt))
      (setq endpunkt (list
-        (+ (car startpunkt)   (+ (* dx (cos rad)) (* dz (sin rad))))
-        (cadr startpunkt)
-        (+ (caddr startpunkt) (+ (* (- (sin rad)) dx) (* (cos rad) dz)))))
+        (+ (car startpunkt)   (+ (* dx chv cvv) (* dz chv svv)))
+        (+ (cadr startpunkt)  (+ (* dx shv cvv) (* dz shv svv)))
+        (+ (caddr startpunkt) (+ (* dx (- svv)) (* dz cvv)))))
      (princ (strcat "\n    Endpunkt: X=" (rtos (car endpunkt) 2 2)
+                     " Y=" (rtos (cadr endpunkt) 2 2)
                     " Z=" (rtos (caddr endpunkt) 2 2)
                     "  (dx=" (rtos dx 2 1) " dz=" (rtos dz 2 1) ")"))
      endpunkt
@@ -796,7 +841,7 @@
 ;; TEIL 9: GEMEINSAME EINGABE-ABFRAGE
 ;; ============================================================
 (defun vf-eingabe-abfragen ( / eingabe-modus line-points startpunkt endpunkt differenz
-                                deltaL deltaH deltaX deltaY richtung antwort)
+                                deltaL deltaH deltaX deltaY richtung antwort hz-winkel)
  (princ "\n\nEingabemodus waehlen:")
  (princ "\n  1 - 3D-Linie auswaehlen (Start- und Endpunkt mit Hoehe)")
  (princ "\n  2 - Werte manuell eingeben")
@@ -823,8 +868,12 @@
            deltaY (abs (cadr differenz))
            deltaH (caddr differenz))
      (setq deltaL (max deltaX deltaY))
+      ;; Fahrtrichtung aus der Linie ableiten (0=Ost, 90=Nord, ...)
+      (setq hz-winkel
+        (* (angle '(0.0 0.0) (list (car differenz) (cadr differenz))) (/ 180.0 pi)))
      (princ (strcat "\n  △L=" (rtos deltaL 2 2) " mm"
-                     "  △H=" (rtos deltaH 2 2) " mm"))
+                     "  △H=" (rtos deltaH 2 2) " mm"
+                     "  Fahrtrichtung=" (rtos hz-winkel 2 1) grad-zeichen))
      (if (>= deltaH 0)
        (progn (setq richtung "Auf") (princ "\n  Foerderrichtung: AUF"))
        (progn (setq richtung "Ab") (setq deltaH (abs deltaH))
@@ -837,25 +886,56 @@
      (if (null deltaL) (setq deltaL 15000))
      (setq deltaH (getreal "\n△H - Hoehenunterschied (mm): "))
      (if (null deltaH) (setq deltaH 3000))
+      ;; Foerderrichtung bleibt eine einfache Auf/Ab-Frage - die horizontale
+      ;; Zwischenstrecke ist geometrisch NUR bei "Ab" ueberhaupt erreichbar
+      ;; (die festen 3-Grad-Elemente wirken immer absenkend) und wird daher
+      ;; erst SPAETER, nach Bibliotheks-Init, als Zusatzoption in der
+      ;; Winkel-Auswahl angeboten (siehe c:VarioFoerderer) - einheitlich fuer
+      ;; Werteingabe UND 3D-Linie.
      (princ "\nFoerderrichtung:\n  1 - AUF\n  2 - AB")
      (setq antwort (getstring "\nIhre Wahl (1/2): "))
      (if (= antwort "2") (setq richtung "Ab") (setq richtung "Auf"))
      (setq startpunkt (getpoint "\nStartpunkt fuer AUS_Element waehlen: "))
      (if (null startpunkt) (setq startpunkt '(0 0 0)))
+      ;; Horizontale Fahrtrichtung waehlen (analog Gefaellestrecke Modus 1)
+      (princ "\n\nFahrtrichtung waehlen:")
+      (princ "\n  1 - 0°   (X-Achse +, Ost)")
+      (princ "\n  2 - 90°  (Y-Achse +, Nord)")
+      (princ "\n  3 - 180° (X-Achse -, West)")
+      (princ "\n  4 - 270° (Y-Achse -, Sued)")
+      (setq antwort (getstring "\nIhre Wahl (1/2/3/4) [1]: "))
+      (cond
+        ((= antwort "2") (setq hz-winkel  90.0))
+        ((= antwort "3") (setq hz-winkel 180.0))
+        ((= antwort "4") (setq hz-winkel 270.0))
+        (t               (setq hz-winkel   0.0))
+      )
+      (princ (strcat "\n>>> Fahrtrichtung: " (rtos hz-winkel 2 1) grad-zeichen))
    )
  )
-  (list deltaL deltaH richtung startpunkt)
+  (list deltaL deltaH richtung startpunkt hz-winkel eingabe-modus)
 )

 ;; ============================================================
 ;; TEIL 10: VF_*-BLOCK-SYSTEM (gemeinsam fuer alle Typen)
 ;; ============================================================
-(defun vf-make-label (vf-nummer hoehe-von hoehe-bis deltaH deltaL L_VF L_GF
-                      richtung best-winkel n-separator n-scanner startpunkt /
-                      label-txt label-pt L_VF_str L_GF_str delta-sym)
+;; hz: horizontale Fahrtrichtung in Grad (0=Ost/+X, 90=Nord/+Y, ...) - siehe
+;; variofoerderer-einfuegen. Beschriftungsposition wird ENTLANG dieser
+;; Richtung (halbe deltaL) und SENKRECHT dazu (200mm) versetzt, statt fest
+;; von +X auszugehen. Der Textwinkel rastet wie bei Gefaellestrecke immer
+;; auf 0 Grad (X-Achse) oder 90 Grad (Y-Achse) ein, damit er nie auf dem
+;; Kopf steht - unabhaengig von der tatsaechlichen Fahrtrichtung.
+;; L_GF1/L_GF2: die beiden Gefaellestrecken-Segmente (vorne/hinten) - werden
+;; als kommagetrennte Meter-Werte dargestellt (Punkt=Dezimaltrennzeichen,
+;; Komma=Segment-Trenner, analog L-gf-str in Gefaellestrecke.lsp), damit
+;; beide Werte eindeutig unterscheidbar bleiben.
+(defun vf-make-label (vf-nummer hoehe-von hoehe-bis deltaH deltaL L_VF L_GF1 L_GF2
+                      richtung best-winkel n-separator n-scanner startpunkt hz /
+                      label-txt label-pt L_VF_str L_GF_str delta-sym
+                      chz-l shz-l halb basis-winkel)
  (setq delta-sym (chr 916))
  (setq L_VF_str (vl-string-subst "," "." (rtos (/ L_VF 1000.0) 2 3)))
-  (setq L_GF_str (vl-string-subst "," "." (rtos (/ L_GF 1000.0) 2 3)))
+  (setq L_GF_str (strcat (rtos (/ L_GF1 1000.0) 2 3) "," (rtos (/ L_GF2 1000.0) 2 3)))
  (setq label-txt
    (strcat "VF" (itoa vf-nummer)
            ": von " (itoa (fix hoehe-von)) "mm bis " (itoa (fix hoehe-bis)) "mm, "
@@ -864,10 +944,19 @@
            "VF:" L_VF_str "m; GF:" L_GF_str "m; "
            richtung ": " (itoa best-winkel) grad-zeichen "; "
            "Sep: " (itoa n-separator) "; Scan: " (itoa n-scanner)))
+  (setq chz-l (cos (* (float hz) (/ pi 180.0))))
+  (setq shz-l (sin (* (float hz) (/ pi 180.0))))
+  (setq halb  (/ (float deltaL) 2.0))
  (setq label-pt (list
-    (+ (car startpunkt) (/ deltaL 2.0))
-    (- (cadr startpunkt) 200.0)
+    (+ (car  startpunkt) (* halb chz-l) (*  200.0 shz-l))
+    (+ (cadr startpunkt) (* halb shz-l) (* -200.0 chz-l))
    (caddr startpunkt)))
+  ;; Textwinkel auf 0/90 Grad einrasten (nie kopfueber, unabhaengig von hz)
+  (setq basis-winkel (float hz))
+  (while (< basis-winkel 0.0)    (setq basis-winkel (+ basis-winkel 360.0)))
+  (while (>= basis-winkel 360.0) (setq basis-winkel (- basis-winkel 360.0)))
+  (if (>= basis-winkel 180.0) (setq basis-winkel (- basis-winkel 180.0)))
+  (setq basis-winkel (if (or (< basis-winkel 45.0) (>= basis-winkel 135.0)) 0.0 90.0))
  (entmake (list
    '(0 . "TEXT")
    (cons 8 "VF_Beschriftung")
@@ -875,7 +964,7 @@
    (cons 10 label-pt)
    (cons 40 100.0)
    (cons 1 label-txt)
-    (cons 50 0.0)
+    (cons 50 (* basis-winkel (/ pi 180.0)))
    '(72 . 1)
    '(73 . 2)
    (cons 11 label-pt)
@@ -905,16 +994,18 @@
 ;; Erstellt VF_N-Block aus allen seit lastEnt erzeugten Entities.
 ;; Setzt Attributwerte entsprechend Typ, Seite und Geometrieparametern.
 (defun vf-block-erstellen (anlage-typ seite vf-nummer n-scanner
-                            hoehe-von hoehe-bis deltaH deltaL L_VF L_GF
-                            richtung best-winkel startpunkt lastEnt
-                            / vf-bname vf-ss vf-e vf-insert montagehoehe-m attdef-ypos)
+                            hoehe-von hoehe-bis deltaH deltaL L_VF L_GF1 L_GF2
+                            richtung best-winkel startpunkt lastEnt hz
+                            / vf-bname vf-ss vf-e vf-insert montagehoehe-m attdef-ypos L_GF_m-str)
+  (if (null hz) (setq hz 0.0))
  ;; Beschriftungstext erzeugen
-  (vf-make-label vf-nummer hoehe-von hoehe-bis deltaH deltaL L_VF L_GF
-                 richtung best-winkel 2 n-scanner startpunkt)
+  (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")
@@ -951,22 +1042,33 @@
      (setvar "ATTREQ" 1)
      (setq vf-insert (entlast))
      (setq montagehoehe-m (/ (+ hoehe-von hoehe-bis) 2000.0))
+      ;; L_GF_m: kommagetrennte Segmentlaengen in Metern (vorne,hinten),
+      ;; analog L_GF_m in Gefaellestrecke.lsp.
+      (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 "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 "L_GF_m"               (rtos (/ L_GF 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)
@@ -976,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!")
@@ -1003,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!")
@@ -1014,8 +1120,9 @@
 ;; TEIL 12: DISPATCHER c:VarioFoerderer
 ;; ============================================================
 (defun c:VarioFoerderer ( / typ-eintr anlage-typ berechne-fn einfuege-fn
-                            eingabe deltaL deltaH richtung startpunkt seite
-                            ergebnis ergebnis-liste gueltige-winkel
+                            eingabe deltaL deltaH richtung startpunkt seite hz
+                            eingabe-modus ergebnis ergebnis-liste gueltige-winkel
+                            horizontal-info
                            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
@@ -1059,16 +1166,30 @@
  (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)))

-  ;; 3. Gemeinsame Eingabe (deltaL, deltaH, richtung, startpunkt)
+  ;; 3. Gemeinsame Eingabe (deltaL, deltaH, richtung, startpunkt) - richtung
+  ;; steht bei beiden Eingabemodi (Werteingabe UND 3D-Linie) bereits fest.
  (setq eingabe (vf-eingabe-abfragen))
-  (setq deltaL    (nth 0 eingabe)
-        deltaH    (nth 1 eingabe)
-        richtung  (nth 2 eingabe)
-        startpunkt (nth 3 eingabe))
+  (setq deltaL     (nth 0 eingabe)
+        deltaH     (nth 1 eingabe)
+        richtung   (nth 2 eingabe)
+        startpunkt (nth 3 eingabe)
+        hz         (nth 4 eingabe)
+        eingabe-modus (nth 5 eingabe))

  ;; 4. Seite-Auswahl (vor Berechnung, weil Etage-Typ sie fuer Geometrie braucht)
  (princ "\n\nSeite waehlen:")
@@ -1078,11 +1199,31 @@
  (if (= antwort "2") (setq seite "links") (setq seite "rechts"))
  (princ (strcat "\n>>> Seite: " seite))

-  ;; 5. Typ-spezifische Berechnung (init + berechne)
+  ;; 5. Typ-spezifische Berechnung (init + Winkelsuche)
  (setq ergebnis (apply berechne-fn (list deltaL deltaH richtung seite)))
  (setq ergebnis-liste (cadddr ergebnis))

-  ;; 6. Konfiguration (nach ssg_core-Init verfuegbar)
+  ;; 5b. Horizontale Zwischenstrecke als Zusatzoption: geometrisch NUR bei
+  ;; "Ab" ueberhaupt erreichbar (die festen 3-Grad-Elemente wirken immer
+  ;; absenkend) - "Auf" wird deshalb gar nicht erst geprueft. Gilt einheitlich
+  ;; fuer Werteingabe UND 3D-Linie, da richtung hier in jedem Fall feststeht.
+  ;; Bibliothek ist durch den berechne-fn-Aufruf oben bereits initialisiert.
+  (if (and (= anlage-typ "standard") (= richtung "Ab"))
+    (progn
+      (setq horizontal-info (berechne-horizontale-mitte deltaL deltaH "Ab"))
+      (if (and horizontal-info (caddr horizontal-info))
+        (progn
+          (setq ergebnis-liste
+            (append ergebnis-liste
+              (list (list 0 (car horizontal-info) (cadr horizontal-info) T))))
+          (princ "\n\n>>> Hinweis: Ein horizontale Variofoerderer ( 0°) ist bei diesem △L/△H zusaetzlich moeglich!")
+        )
+        (setq horizontal-info nil)
+      )
+    )
+  )
+
+  ;; Konfiguration (nach ssg_core-Init verfuegbar).
  (setq staustrecke-basis (ssg-cfg-or "vario" "staustrecke_basis" 1000))

  ;; 7. Gueltige Winkel ermitteln
@@ -1103,22 +1244,33 @@
  )

  ;; 8. Winkelauswahl (automatisch oder interaktiv)
+  ;; Sentinel-Winkel 0 = horizontale Zwischenstrecke (Schritt 6/11 bei 0
+  ;; Grad, Boegen fest auf_3/ab_3) - siehe berechne-horizontale-mitte.
  (if (= (length gueltige-winkel) 1)
    (progn
      (setq best-winkel (car gueltige-winkel))
      (setq eintrag (assoc best-winkel ergebnis-liste))
      (setq L_GF (nth 1 eintrag) L_VF (nth 2 eintrag))
-      (princ (strcat "\n\n>>> Einziger gueltiger Winkel: "
-                     (itoa best-winkel) (chr 176)))
+      (if (= best-winkel 0)
+        (princ "\n\n>>> Einzige gueltige Variante: Horizontale Variofoerderer")
+        (princ (strcat "\n\n>>> Einziger gueltiger Winkel: "
+                       (itoa best-winkel) (chr 176)))
+      )
    )
    (progn
      (princ "\n\nMehrere gueltige Winkel verfuegbar. Bitte waehlen:")
      (setq idx 1)
      (foreach w gueltige-winkel
        (setq eintrag (assoc w ergebnis-liste))
-        (princ (strcat "\n  " (itoa idx) " - " (itoa w) (chr 176)
-                       "   (L_GF=" (rtos (nth 1 eintrag) 2 1)
-                       " mm,  L_VF=" (rtos (nth 2 eintrag) 2 1) " mm)"))
+        (if (= w 0)
+          (princ (strcat "\n  " (itoa idx) " - Horizontale Variofoerderer (0"
+                         (chr 176) ")"
+                         "   (L_GF=" (rtos (nth 1 eintrag) 2 1)
+                         " mm,  L_VF=" (rtos (nth 2 eintrag) 2 1) " mm)"))
+          (princ (strcat "\n  " (itoa idx) " - " (itoa w) (chr 176)
+                         "   (L_GF=" (rtos (nth 1 eintrag) 2 1)
+                         " mm,  L_VF=" (rtos (nth 2 eintrag) 2 1) " mm)"))
+        )
        (setq idx (1+ idx))
      )
      (setq wahl (getint (strcat "Winkel waehlen (1-"
@@ -1131,9 +1283,14 @@
    )
  )
  (princ "\n\n=========================================")
-  (princ (strcat "\n>>> Winkel: " (itoa best-winkel) (chr 176)
-                 "   L_GF: " (rtos L_GF 2 2) " mm"
-                 "   L_VF: " (rtos L_VF 2 2) " mm"))
+  (if (= best-winkel 0)
+    (princ (strcat "\n>>> Horizontale Variofoerderer"
+                   "   L_GF: " (rtos L_GF 2 2) " mm"
+                   "   L_VF: " (rtos L_VF 2 2) " mm"))
+    (princ (strcat "\n>>> Winkel: " (itoa best-winkel) (chr 176)
+                   "   L_GF: " (rtos L_GF 2 2) " mm"
+                   "   L_VF: " (rtos L_VF 2 2) " mm"))
+  )
  (princ "\n=========================================")

  ;; 9. L_GF Verteilung
@@ -1164,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?")
@@ -1187,12 +1343,12 @@

      ;; Typ-spezifische Einfuegung
      (apply einfuege-fn
-        (list deltaL deltaH richtung best-winkel L_GF1 L_GF2 L_VF startpunkt seite))
+        (list deltaL deltaH richtung best-winkel L_GF1 L_GF2 L_VF startpunkt seite hz))

      ;; Gemeinsame VF_*-Block-Erstellung
      (vf-block-erstellen anlage-typ seite vf-nummer n-scanner
-                          hoehe-von hoehe-bis deltaH deltaL L_VF L_GF
-                          richtung best-winkel startpunkt lastEnt)
+                          hoehe-von hoehe-bis deltaH deltaL L_VF L_GF1 L_GF2
+                          richtung best-winkel startpunkt lastEnt hz)

      (princ "\n=========================================")
    )
@@ -602,9 +602,14 @@
 ;; ============================================================
 ;; Gibt endpunkt zurueck.
 ;; VF_*-Block-Erstellung erfolgt zentral im Dispatcher (vf_core.lsp).
+;; hz: Parameter fuer Registry-Kompatibilitaet mit variofoerderer-einfuegen
+;; (siehe c:VarioFoerderer) - wird hier NICHT verwendet: die Etage-Anlage hat
+;; bereits eine eigene, fest verdrahtete horizontale Geometrie (hz-anfang/
+;; hz-ende fuer den 60-Grad-Uebereinander-Versatz) und unterstuetzt aktuell
+;; keine zusaetzliche globale Fahrtrichtung.
 (defun etage-foerderanlage-einfuegen (deltaL deltaH richtung
                                       best-winkel L_GF1 L_GF2 L_VF
-                                       startpunkt seite
+                                       startpunkt seite hz
                                       / aktueller-punkt bogen-name endpunkt
                                         bogen-mass bogen-dx bogen-dz
                                         as-block es-block gefaelle-blockname
@@ -630,7 +635,7 @@

  ;; 1. AS_30
  (princ (strcat "\n\n1/15: " as-block " (0 Grad)"))
-  (setq aktueller-punkt (insert-block-by-ks as-block aktueller-punkt))
+  (setq aktueller-punkt (insert-block-by-ks as-block aktueller-punkt 0.0))

  ;; 2. Staustrecke 400mm (hz-anfang, 3 Grad vert, KS_EIN)
  (princ (strcat "\n\n2/15: Staustrecke 400mm ("
@@ -657,7 +662,7 @@
    (progn
      (princ (strcat "\n\n5/15: Gefaellestrecke (3 Grad, L=" (rtos L_GF1 2 2) " mm)"))
      (setq aktueller-punkt
-        (insert-inclined-scaled-block "Staustrecke_SP_1000_mm" aktueller-punkt L_GF1 3))
+        (insert-inclined-scaled-block "Staustrecke_SP_1000_mm" aktueller-punkt L_GF1 3 0.0))
    )
    (princ "\n\n5/15: L_GF1 (uebersprungen)")
  )
@@ -665,7 +670,7 @@
  ;; 6. Umlenkstation (3 Grad geneigt)
  (princ "\n\n6/15: Umlenkstation (500mm, 3 Grad geneigt)")
  (setq aktueller-punkt
-    (insert-rotated-block-with-ks "Vario_Umlenkstation_500mm" aktueller-punkt 3 500 0))
+    (insert-rotated-block-with-ks "Vario_Umlenkstation_500mm" aktueller-punkt 3 500 0 0.0))

  ;; 7. 1. Vertikalbogen (3 Grad geneigt)
  (if (= richtung "Auf")
@@ -681,7 +686,7 @@
  (setq bogen-dx (car bogen-mass) bogen-dz (caddr bogen-mass))
  (princ (strcat "\n\n7/15: " bogen-name " (3 Grad geneigt)"))
  (setq aktueller-punkt
-    (insert-rotated-block-with-ks bogen-name aktueller-punkt 3 bogen-dx bogen-dz))
+    (insert-rotated-block-with-ks bogen-name aktueller-punkt 3 bogen-dx bogen-dz 0.0))

  ;; 8. Variable Strecke L_VF
  (if (> L_VF 0.1)
@@ -692,14 +697,14 @@
                         (itoa (- (- best-winkel 3))) " Grad, L=" (rtos L_VF 2 2) " mm)"))
          (setq aktueller-punkt
            (insert-inclined-scaled-block "Staustrecke_SP_1000_mm" aktueller-punkt
-              L_VF (- (- best-winkel 3))))
+              L_VF (- (- best-winkel 3)) 0.0))
        )
        (progn
          (princ (strcat "\n\n8/15: Gefaellestrecke ("
                         (itoa (+ best-winkel 3)) " Grad, L=" (rtos L_VF 2 2) " mm)"))
          (setq aktueller-punkt
            (insert-inclined-scaled-block "Staustrecke_SP_1000_mm" aktueller-punkt
-              L_VF (+ best-winkel 3)))
+              L_VF (+ best-winkel 3) 0.0))
        )
      )
    )
@@ -724,35 +729,35 @@
                     " (" (itoa (- 3 best-winkel)) " Grad geneigt)"))
      (setq aktueller-punkt
        (insert-rotated-block-with-ks bogen-name aktueller-punkt
-          (- 3 best-winkel) bogen-dx bogen-dz))
+          (- 3 best-winkel) bogen-dx bogen-dz 0.0))
    )
    (progn
      (princ (strcat "\n\n9/15: " bogen-name
                     " (" (itoa (+ best-winkel 3)) " Grad geneigt)"))
      (setq aktueller-punkt
        (insert-rotated-block-with-ks bogen-name aktueller-punkt
-          (+ best-winkel 3) bogen-dx bogen-dz))
+          (+ best-winkel 3) bogen-dx bogen-dz 0.0))
    )
  )

  ;; 10. Motorstation (3 Grad geneigt)
  (princ "\n\n10/15: Motorstation (500mm, 3 Grad geneigt)")
  (setq aktueller-punkt
-    (insert-rotated-block-with-ks "Vario_Motorstation_500mm" aktueller-punkt 3 500 0))
+    (insert-rotated-block-with-ks "Vario_Motorstation_500mm" aktueller-punkt 3 500 0 0.0))

  ;; 11. L_GF2 (3 Grad geneigt)
  (if (> L_GF2 0.1)
    (progn
      (princ (strcat "\n\n11/15: Gefaellestrecke (3 Grad, L=" (rtos L_GF2 2 2) " mm)"))
      (setq aktueller-punkt
-        (insert-inclined-scaled-block "Staustrecke_SP_1000_mm" aktueller-punkt L_GF2 3))
+        (insert-inclined-scaled-block "Staustrecke_SP_1000_mm" aktueller-punkt L_GF2 3 0.0))
    )
    (princ "\n\n11/15: L_GF2 (uebersprungen)")
  )

  ;; 12. Gefaellebogen Ende (via KS_EIN, 0 Grad vert)
  (princ (strcat "\n\n12/15: " gefaelle-blockname " (Ende, KS_EIN)"))
-  (setq aktueller-punkt (insert-block-by-ks gefaelle-blockname aktueller-punkt))
+  (setq aktueller-punkt (insert-block-by-ks gefaelle-blockname aktueller-punkt 0.0))

  ;; 13. Separator Ende (hz-ende, 3 Grad vert)
  (princ (strcat "\n\n13/15: Separator (300mm, "
@@ -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)
@@ -383,16 +391,66 @@
  (list best-winkel best-L_GF best-L_VF ergebnis-liste)
 )

+;; Prueft/berechnet die Variante mit HORIZONTALER Zwischenstrecke (Schritt
+;; 6/11 bei 0 Grad statt geneigt). Die beiden Vertikalboegen sind dabei
+;; IMMER auf 3 Grad fixiert (Vario_Bogen_auf_3 / Vario_Bogen_ab_3), weil sie
+;; nur zwischen der festen 3-Grad-Neigung von Umlenk-/Motorstation und der
+;; horizontalen Mitte vermitteln muessen - unabhaengig von Auf/Ab.
+;; WICHTIG (geometrische Konsequenz): GF1+GF2 (an AS/ES-Seite, ebenfalls
+;; fest bei 3 Grad geneigt) sind die einzige nennenswerte Quelle fuer
+;; Hoehenaenderung, da sich die beiden Boegen gegenseitig fast vollstaendig
+;; kompensieren. Die feste 3-Grad-Neigung wirkt IMMER absenkend:
+;;   - "Ab": passt zur gewuenschten Absenkung -> deltaH praktisch beliebig
+;;     erreichbar (im Rahmen von deltaL), GF1+GF2 werden einfach laenger.
+;;   - "Auf": wirkt der gewuenschten Steigung entgegen -> nur fuer SEHR
+;;     KLEINE deltaH ueberhaupt gueltig (wenige cm).
+;; Rueckgabe: (GF_total L_VF gueltig) oder nil falls Boegen nicht messbar.
+(defun berechne-horizontale-mitte (deltaL deltaH richtung /
+                                    mass1 mass2 rad3 bogen-x1 bogen-z1
+                                    bogen-x2 bogen-z2 deltaH-signiert
+                                    A-hz B-hz GF_total L_VF-hz gueltig)
+  (setq mass1 (get-bogen-mass bogen-auf 3))
+  (setq mass2 (get-bogen-mass bogen-ab  3))
+  (if (or (null mass1) (null mass2))
+    nil
+    (progn
+      (setq rad3 (* 3.0 (/ pi 180.0)))
+      ;; Bogen1 (immer auf_3): Eintritt bei 3 Grad (von Umlenkstation), biegt auf 0 Grad
+      (setq bogen-x1 (+ (* (car mass1) (cos rad3)) (* (caddr mass1) (sin rad3))))
+      (setq bogen-z1 (+ (* (- (car mass1)) (sin rad3)) (* (caddr mass1) (cos rad3))))
+      ;; Bogen2 (immer ab_3): Eintritt bei 0 Grad (von der horizontalen Mitte), biegt auf 3 Grad
+      (setq bogen-x2 (car mass2))
+      (setq bogen-z2 (caddr mass2))
+      ;; Signierte Ziel-Hoehenaenderung: Auf=+deltaH, Ab=-deltaH
+      (setq deltaH-signiert (if (= richtung "Auf") deltaH (- deltaH)))
+      ;; Horizontal-Budget: deltaL minus AS/ES minus beide Boegen minus feste Stationen (bei 3 Grad)
+      (setq A-hz (- deltaL aus-dx ein-dx bogen-x1 bogen-x2
+                    (* FESTE_HORIZONTAL (cos rad3))))
+      ;; Hoehen-Budget: was GF1+GF2 (bei 3 Grad) noch beitragen muessen
+      (setq B-hz (- (+ aus-dz ein-dz (- (* FESTE_HORIZONTAL (sin rad3)))
+                       bogen-z1 bogen-z2)
+                    deltaH-signiert))
+      (setq GF_total (/ B-hz (sin rad3)))
+      (setq L_VF-hz  (- A-hz (* GF_total (cos rad3))))
+      (setq gueltig (and (>= GF_total 0) (>= L_VF-hz 0)))
+      (list GF_total L_VF-hz gueltig)
+    )
+  )
+)
+
 ;; ============================================================
 ;; TEIL 5: BERECHNE-WRAPPER (Schnittstelle fuer Registry)
 ;; ============================================================
 ;; Initialisiert Standard-Bibliothek und berechnet Winkel.
 ;; seite-Parameter wird fuer Standard-Typ nicht benoetigt (keine Vorab-Geometrie).
+;; Die Machbarkeitspruefung fuer die horizontale Zwischenstrecke passiert
+;; separat und VORAB in c:VarioFoerderer (vor der Foerderrichtung-Abfrage),
+;; deshalb liefert diese Funktion nur noch die normale Winkelsuche zurueck.
 (defun berechne-standard (deltaL deltaH richtung seite)
  (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)
 )

 ;; ============================================================
@@ -400,81 +458,121 @@
 ;; ============================================================
 ;; Gibt endpunkt zurueck (letzter KS_AUS nach ES_90).
 ;; VF_*-Block-Erstellung erfolgt zentral im Dispatcher (vf_core.lsp).
-(defun variofoerderer-einfuegen (deltaL deltaH richtung best-winkel
-                                  L_GF1 L_GF2 L_VF startpunkt seite
-                                / aktueller-punkt bogen-name endpunkt
-                                  bogen-mass bogen-dx bogen-dz
-                                  as-block es-block)
-  (setq aktueller-punkt startpunkt)
+;; 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).
+;; --- 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 as-block (strcat "AS_Element_90_" seite))
-  (setq es-block (strcat "ES_Element_90_" seite))
  (if (not *lib-initialized*) (init-bibliothek))
+  (princ (strcat "\n\n1/11: " as-block " (hz=" (rtos hz 2 1) grad-zeichen ")"))
+  (insert-block-by-ks as-block startpunkt hz)
+)

-  ;; 1. AUS_Element
-  (princ (strcat "\n\n1/11: " as-block " (0 Grad)"))
-  (setq aktueller-punkt (insert-block-by-ks as-block aktueller-punkt))
-
-  ;; 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)))
+          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)))
-
-  ;; 4. Umlenkstation
-  (princ "\n\n4/11: Umlenkstation (500 mm, 3 Grad geneigt)")
+      (ssg-cfg-or "vario" "separator_block_dz" 0) hz))
+  ;; 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)))
+      (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
-  (if (= richtung "Auf")
+  ;; Sonderfall best-winkel=0 (horizontale Zwischenstrecke, siehe
+  ;; berechne-horizontale-mitte): Boegen IMMER auf_3/ab_3, unabhaengig von
+  ;; Auf/Ab, da sie nur zwischen der festen 3-Grad-Neigung und der
+  ;; horizontalen Mitte vermitteln muessen.
+  (if (= best-winkel 0)
    (progn
-      (setq bogen-name (strcat "Vario_Bogen_auf_" (itoa best-winkel)))
-      (setq bogen-mass (get-bogen-mass bogen-auf best-winkel))
+      (setq bogen-name "Vario_Bogen_auf_3")
+      (setq bogen-mass (get-bogen-mass bogen-auf 3))
    )
-    (progn
-      (setq bogen-name (strcat "Vario_Bogen_ab_" (itoa best-winkel)))
-      (setq bogen-mass (get-bogen-mass bogen-ab best-winkel))
+    (if (= richtung "Auf")
+      (progn
+        (setq bogen-name (strcat "Vario_Bogen_auf_" (itoa best-winkel)))
+        (setq bogen-mass (get-bogen-mass bogen-auf best-winkel))
+      )
+      (progn
+        (setq bogen-name (strcat "Vario_Bogen_ab_" (itoa best-winkel)))
+        (setq bogen-mass (get-bogen-mass bogen-ab best-winkel))
+      )
    )
  )
  (setq bogen-dx (car bogen-mass) bogen-dz (caddr bogen-mass))
  (princ (strcat "\n\n5/11: " bogen-name " (3 Grad geneigt)"))
  (setq aktueller-punkt
    (insert-rotated-block-with-ks bogen-name aktueller-punkt
-      (ssg-cfg-or "vario" "gefaelle_winkel" 3) bogen-dx bogen-dz))
+      (ssg-cfg-or "vario" "gefaelle_winkel" 3) bogen-dx bogen-dz hz))

  ;; 6. Variable Strecke L_VF
  (if (> L_VF 0.1)
    (progn
-      (if (= richtung "Auf")
+      (if (= best-winkel 0)
        (progn
-          (princ (strcat "\n\n6/11: Steigungsstrecke ("
-                         (itoa (- (- best-winkel 3))) " Grad, L=" (rtos L_VF 2 2) " mm)"))
+          (princ (strcat "\n\n6/11: Horizontale Zwischenstrecke (0 Grad, L="
+                         (rtos L_VF 2 2) " mm)"))
          (setq aktueller-punkt
            (insert-inclined-scaled-block "Staustrecke_SP_1000_mm" aktueller-punkt
-              L_VF (- (- best-winkel 3))))
+              L_VF 0 hz))
        )
-        (progn
-          (princ (strcat "\n\n6/11: Gefaellestrecke ("
-                         (itoa (+ best-winkel 3)) " Grad, L=" (rtos L_VF 2 2) " mm)"))
-          (setq aktueller-punkt
-            (insert-inclined-scaled-block "Staustrecke_SP_1000_mm" aktueller-punkt
-              L_VF (+ best-winkel 3)))
+        (if (= richtung "Auf")
+          (progn
+            (princ (strcat "\n\n6/11: Steigungsstrecke ("
+                           (itoa (- (- best-winkel 3))) " Grad, L=" (rtos L_VF 2 2) " mm)"))
+            (setq aktueller-punkt
+              (insert-inclined-scaled-block "Staustrecke_SP_1000_mm" aktueller-punkt
+                L_VF (- (- best-winkel 3)) hz))
+          )
+          (progn
+            (princ (strcat "\n\n6/11: Gefaellestrecke ("
+                           (itoa (+ best-winkel 3)) " Grad, L=" (rtos L_VF 2 2) " mm)"))
+            (setq aktueller-punkt
+              (insert-inclined-scaled-block "Staustrecke_SP_1000_mm" aktueller-punkt
+                L_VF (+ best-winkel 3) hz))
+          )
        )
      )
    )
@@ -482,64 +580,126 @@
  )

  ;; 7. 2. Vertikalbogen
-  (if (= richtung "Auf")
+  (if (= best-winkel 0)
    (progn
-      (setq bogen-name (strcat "Vario_Bogen_ab_" (itoa best-winkel)))
-      (setq bogen-mass (get-bogen-mass bogen-ab best-winkel))
+      (setq bogen-name "Vario_Bogen_ab_3")
+      (setq bogen-mass (get-bogen-mass bogen-ab 3))
    )
-    (progn
-      (setq bogen-name (strcat "Vario_Bogen_auf_" (itoa best-winkel)))
-      (setq bogen-mass (get-bogen-mass bogen-auf best-winkel))
+    (if (= richtung "Auf")
+      (progn
+        (setq bogen-name (strcat "Vario_Bogen_ab_" (itoa best-winkel)))
+        (setq bogen-mass (get-bogen-mass bogen-ab best-winkel))
+      )
+      (progn
+        (setq bogen-name (strcat "Vario_Bogen_auf_" (itoa best-winkel)))
+        (setq bogen-mass (get-bogen-mass bogen-auf best-winkel))
+      )
    )
  )
  (setq bogen-dx (car bogen-mass) bogen-dz (caddr bogen-mass))
-  (if (= richtung "Auf")
+  (if (= best-winkel 0)
    (progn
-      (princ (strcat "\n\n7/11: " bogen-name
-                     " (" (itoa (- 3 best-winkel)) " Grad geneigt)"))
+      (princ (strcat "\n\n7/11: " bogen-name " (3 Grad geneigt)"))
      (setq aktueller-punkt
        (insert-rotated-block-with-ks bogen-name aktueller-punkt
-          (- 3 best-winkel) bogen-dx bogen-dz))
+          0 bogen-dx bogen-dz hz))
    )
-    (progn
-      (princ (strcat "\n\n7/11: " bogen-name
-                     " (" (itoa (+ best-winkel 3)) " Grad geneigt)"))
-      (setq aktueller-punkt
-        (insert-rotated-block-with-ks bogen-name aktueller-punkt
-          (+ best-winkel 3) bogen-dx bogen-dz))
+    (if (= richtung "Auf")
+      (progn
+        (princ (strcat "\n\n7/11: " bogen-name
+                       " (" (itoa (- 3 best-winkel)) " Grad geneigt)"))
+        (setq aktueller-punkt
+          (insert-rotated-block-with-ks bogen-name aktueller-punkt
+            (- 3 best-winkel) bogen-dx bogen-dz hz))
+      )
+      (progn
+        (princ (strcat "\n\n7/11: " bogen-name
+                       " (" (itoa (+ best-winkel 3)) " Grad geneigt)"))
+        (setq aktueller-punkt
+          (insert-rotated-block-with-ks bogen-name aktueller-punkt
+            (+ best-winkel 3) bogen-dx bogen-dz hz))
+      )
    )
  )

-  ;; 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)))
-
-  ;; 9. 2. Gefaellestrecke
+      (ssg-cfg-or "vario" "station_block_dz" 0) hz))
+  ;; 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)))
+          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)")
+;; --- 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
+)
+
+;; --- 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 ")"))
+  (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
-    (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)))
-
-  ;; 11. EIN_Element
-  (princ (strcat "\n\n11/11: " es-block " (0 Grad)"))
-  (setq endpunkt (insert-block-by-ks es-block 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!")
@@ -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
--- a/Show More
+++ b/Show More
Author	SHA1	Message	Date
m.stangl	ab7fc92e23	Ausgabeverzeichnis nur über Lisp Variable festlegen. Anscheinend speichert Bricscad Umgebungen über die Sessions hinweg. Die Ausgaben der Tests landen woanders als der generelle Export	2026-07-10 21:26:41 +02:00
m.stangl	bde2380490	Merge branch 'master' of https://gitea.schoenenberger.de/Schoenenberger_Systeme_GmbH/dxfmakros	2026-07-10 21:22:53 +02:00
m.stangl	2767897158	Aufruf von explizitem Python Call rausgeworfen. War nur zu testzwecken	2026-07-10 20:16:46 +02:00
s.hensch	444d643dd3	[ADD] Attribute für ILS 2d/3d ergänzt und neu angeordnet	2026-07-10 14:16:30 +02:00
m.stangl	554e9bee99	Format der SivasNummer ohne +	2026-07-10 13:34:10 +02:00
m.stangl	fe283a0bf3	ABP 60 und APB 100 als eigenes AUswahlkriterium in die Oberfläche der 90Grad Bögen hinzugefügt. Beide APB60 Bögen und die Sternweiche dazu	2026-07-10 13:32:52 +02:00
m.stangl	6bf6b00e13	neue APB 60 Bögen dazu	2026-07-10 13:31:18 +02:00
m.stangl	f7933df5a4	Attribute mit SKript angeordnet. Test des Einfügens	2026-07-10 11:17:11 +02:00
m.stangl	0b89ed6c5e	Dispogruppe-Header korrigiert, Container-Referenzen und --type 2D/3D fuer set_attributs.py 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.	2026-07-09 16:03:22 +02:00
m.stangl	335c6d7875	erste FAssung der reference Dateien dazu	2026-07-09 16:01:12 +02:00
s.hensch	8a7521572d	Merge branch 'master' of https://gitea.schoenenberger.de/m.stangl/dxfmakros	2026-07-09 15:44:08 +02:00
s.hensch	1d3191b84b	[ADD] Staustrecke Gerade mit Vario links/rechts 3D hinzugefügt	2026-07-09 15:43:58 +02:00
y.wang	6073eb1d78	Merge branch 'master' of https://gitea.schoenenberger.de/Schoenenberger_Systeme_GmbH/dxfmakros	2026-07-09 10:59:00 +02:00
y.wang	96788e7244	TEST_LINIENZUG in eigene tests/test_linienzug.lsp auslagern + eigenen Menuepunkt Foerderer-Linienzug anlegen (Foerderer-Eintrag zurueckgesetzt), Menü neu laden nötig, damit Foerderer-Linienzug in Menü erscheint.	2026-07-09 10:58:56 +02:00
s.hensch	72a4637bd2	[CHANGE] Attribute für ARTINR und SIVASNR_TEF zu kommaseparierter liste geändert für vereinheitlichung; Unnötige dxf-Dateien entfernt oder umbenannt	2026-07-09 10:41:11 +02:00
y.wang	7a1444439c	Merge branch 'master' of https://gitea.schoenenberger.de/Schoenenberger_Systeme_GmbH/dxfmakros	2026-07-08 13:45:15 +02:00
y.wang	3897581dc9	Die Funktion bei VF_Linienzug wurde optimiert. Und TEST_LINIENZUG wurde in test_foerdererer.lsp eingebaut.	2026-07-08 13:45:12 +02:00
m.stangl	8ae55d171e	Merge branch 'master' of https://gitea.schoenenberger.de/Schoenenberger_Systeme_GmbH/dxfmakros	2026-07-07 09:05:19 +02:00
m.stangl	6a487433e2	Auflösung der 0_BG Nummern durch Sivas Nummern in den container Abschnitt der attradd.cfg eingepflegt. Für die programmgesteuerte Auflösung	2026-07-07 09:05:14 +02:00
y.wang	80ec7043b8	Merge branch 'master' of https://gitea.schoenenberger.de/Schoenenberger_Systeme_GmbH/dxfmakros	2026-07-06 15:54:49 +02:00
y.wang	9ce739fb35	3D-Linienzug (gemischte Gefaellestrecke/VarioFoerderer-Kette, Modus 1: manuelle Eingabe) wurde bei Variofoerder gabaut. Die Block-Attribute für GF und VF wurde angepasst wie erfoerdert bei EXPORT.	2026-07-06 15:54:46 +02:00
s.hensch	5eb0acd446	Merge branch 'master' of https://gitea.schoenenberger.de/m.stangl/dxfmakros	2026-07-03 14:09:03 +02:00
s.hensch	fd63e4c3ad	Scanner für ILS hinzugefügt (2d-Block in beide Verzeichnisse 2d und 3d eingefügt); attribut und layer definitionen für Omniflo erweitert und korrigiert	2026-07-03 14:08:47 +02:00
y.wang	acdf735e00	ATTREQ/ATTDIA vor GF-Block-Insert auf 0 setzen, um fehlende Attribute zu beheben; Horizontale Variofoerderer-Mittelsektion als zusaetzlichen Testfall in TEST_FOERDERER pruefen und bauen	2026-07-03 13:43:55 +02:00
y.wang	17d5bfc539	Merge branch 'master' of https://gitea.schoenenberger.de/Schoenenberger_Systeme_GmbH/dxfmakros	2026-07-03 13:05:20 +02:00
y.wang	027b377b84	Testaufrufe an neue Signatur (L_GF-Halbierung + horizontale Fahrrichtung) anpassen	2026-07-03 13:05:08 +02:00
y.wang	cc3cb9f160	horizontale Fahrrichtung (0°/90°/180°/270°) fuer Variofoederer manuelle Werteingabe ergänzen. die Möglichkeit des Horizontal-Varioföerderes wurde bei Ab-Förderrichtung geprüft.	2026-07-03 12:59:24 +02:00