Export: Gefällestrecke-Höhe, Gerüst-Defaults, Omniflo-Komponenten-Split

- Entfernt "Hoehe oben"/"Hoehe unten" aus Gefällestrecke JSON-Export
- "Hoehe in m" kommt jetzt konsistent aus MONTAGEHOEHE_m bei Kreisel/Variofoerderer/Gefällestrecke
- Setzt "Geruest fuer Einzelmodul" auf Default True (statt False) bei Kreisel, Eckrad, Variofoerderer, Gefällestrecke
  - Eckrad-Abfrage: Default = Yes, Logik korrigiert (war invertiert)
- JSON-Key-Reihenfolge optimiert:
  - Variofoerderer/ILS 2.0 Strecke: "Hoehe in m" zuerst
  - Gefällestrecke/ILS 2.0 Gefällestrecke: "Hoehe in m" und "Typ" zuerst
  - Kreisel: "Hoehe in m" zuerst
- Omniflo-Komponenten-Split: Teile mit "0_B"-Präfix werden als separate CSV-Zeilen ausgegeben
  - Multi-Komponenten-Sivasnr (z.B. "834372002+0_BG090090") splitten
  - IDs werden mit .t1, .t2, etc. ergänzt
  - 0_B-Komponenten als "TEF Bogen"/"TEF Weiche" klassifiziert

Co-Authored-By: Claude Haiku 4.5 <noreply@anthropic.com>

Lisp/Gefaellestrecke.lsp

@@ -1440,7 +1440,7 @@
                             es-seite geruest-einzelmodul geruest-typ /
                             gf-bname gf-ss ent gf-insert typ-str anzahl-gf
                             gf-winkel-str i gf-g10z gf-korr-dz gf-osmode-alt)
-  (if (null geruest-einzelmodul) (setq geruest-einzelmodul "0"))
+  (if (null geruest-einzelmodul) (setq geruest-einzelmodul "1"))
   (if (null geruest-typ) (setq geruest-typ (ssg-geruest-idx-to-typ (ssg-geruest-typ-to-idx nil))))
   ;; Beschriftung: Mitte der ersten Geraden, 400mm senkrecht versetzt
   (gf-make-label gf-nummer hoehe-von hoehe-bis deltaH deltaL
@@ -1752,7 +1752,7 @@
         (if (and prefill (equal (cdr (assoc "es-seite" prefill)) "rechts")) "1" "0"))
 
       (set_tile "geruest_einzelmodul"
-        (if (and prefill (equal (cdr (assoc "geruest-einzelmodul" prefill)) "1")) "1" "0"))
+        (if (or (null prefill) (equal (cdr (assoc "geruest-einzelmodul" prefill)) "1")) "1" "0"))
       (start_list "geruest_typ")
       (foreach opt *ssg-geruest-optionen* (add_list opt))
       (end_list)
@@ -2225,7 +2225,7 @@
           (cons "einfuegehoehe" z-start)
           (cons "as-winkel"     as-winkel)
           (cons "es-winkel"     es-winkel)
-          (cons "geruest-einzelmodul" (cond ((cdr (assoc "GERUEST_EINZELMODUL" attribs))) ("0")))
+          (cons "geruest-einzelmodul" (cond ((cdr (assoc "GERUEST_EINZELMODUL" attribs))) ("1")))
           (cons "geruest-typ"   (cdr (assoc "GERUEST_TYP" attribs)))))
 
   ;; AS-Seite + untere Hoehe fuer den optionalen parallelen VF-Bau

Lisp/KreiselInsert.lsp

@@ -86,7 +86,7 @@
     ("ANZAHL_SEPARATOR" "2")
     ("ANZAHL_SCANNER"   "0")
     ("ANZAHL_RAMPEN"    "0")
-    ("GERUEST_EINZELMODUL" "0")
+    ("GERUEST_EINZELMODUL" "1")
     ("GERUEST_TYP"      "Schoenenberger Geruest")
     ("DREHRICHTUNG"     "UZS")
     ("DREHUNG"          "0")
@@ -103,7 +103,7 @@
     ("DREHUNG"       "0")
     ("NUMMER"        "0")
     ("HOEHE"         "0")
-    ("GERUEST_EINZELMODUL" "0")
+    ("GERUEST_EINZELMODUL" "1")
     ("GERUEST_TYP"   "Schoenenberger Geruest")
     ("ID"            ""))
 )
@@ -1120,7 +1120,7 @@
   (dbg 'hoehe)
 
   ;; 5. Geruest fuer Einzelmodul + Geruestoption abfragen
-  (setq geruest-einzelmodul (if (ssg-ques (ssg-text "kreisel-eckrad-geruest-frage") nil) "0" "1"))
+  (setq geruest-einzelmodul (if (ssg-ques (ssg-text "kreisel-eckrad-geruest-frage") T) "1" "0"))
   (setq geruest-typ (ssg-ask-geruest-typ))
 
   ;; 6. Einfuegen (centerPt ist der Kreismittelpunkt)

Lisp/ssg_core.lsp

@@ -504,7 +504,7 @@
 (setq *strecke-attr-hinten*
   '(("ANZAHL_SEPARATOR"     "1")
     ("ANZAHL_SCANNER"       "0")
-    ("GERUEST_EINZELMODUL"  "0")
+    ("GERUEST_EINZELMODUL"  "1")
     ("GERUEST_TYP"          "Schoenenberger Geruest")))
 
 ;; ============================================================

Lisp/vf_core.lsp

@@ -1076,7 +1076,7 @@
                             geruest-einzelmodul geruest-typ
                             / vf-bname vf-ss vf-e vf-insert montagehoehe-m attdef-ypos L_GF_m-str)
   (if (null hz) (setq hz 0.0))
-  (if (null geruest-einzelmodul) (setq geruest-einzelmodul "0"))
+  (if (null geruest-einzelmodul) (setq geruest-einzelmodul "1"))
   (if (null geruest-typ) (setq geruest-typ (ssg-geruest-idx-to-typ (ssg-geruest-typ-to-idx nil))))
   ;; Beschriftungstext erzeugen
   (vf-make-label vf-nummer hoehe-von hoehe-bis deltaH deltaL L_VF L_GF1 L_GF2

Lisp/vf_standard.lsp

@@ -767,7 +767,7 @@
         (if (and prefill (equal (cdr (assoc "seite" prefill)) "links")) "1" "0"))
 
       (set_tile "geruest_einzelmodul"
-        (if (and prefill (equal (cdr (assoc "geruest-einzelmodul" prefill)) "1")) "1" "0"))
+        (if (or (null prefill) (equal (cdr (assoc "geruest-einzelmodul" prefill)) "1")) "1" "0"))
       (start_list "geruest_typ")
       (foreach opt *ssg-geruest-optionen* (add_list opt))
       (end_list)
@@ -1113,7 +1113,7 @@
   (setq prefill-basis
     (list (cons "deltaL" deltaL) (cons "deltaH" deltaH) (cons "richtung" richtung)
           (cons "einfuegehoehe" z-start) (cons "hz" hz) (cons "seite" seite)
-          (cons "geruest-einzelmodul" (cond ((cdr (assoc "GERUEST_EINZELMODUL" attribs))) ("0")))
+          (cons "geruest-einzelmodul" (cond ((cdr (assoc "GERUEST_EINZELMODUL" attribs))) ("1")))
           (cons "geruest-typ" (cdr (assoc "GERUEST_TYP" attribs)))))
 
   (setq eingabe (vfs-dialog-eingabe-basis prefill-basis))