Alle LISP-Module auf ssg-cfg-or umgestellt (hardcodierte Konstanten entfernt)

Alle bisher hart codierten Geometrie-, Farb- und Default-Werte in den
LISP-Modulen werden jetzt ueber ssg-cfg-or aus component_defaults.json
gelesen (mit Fallback auf den bisherigen Wert als Sicherheitsnetz).

Lisp/KreiselInsert.lsp:
  - Geometrie-Konstanten: *kreisel-durchmesser*, *kreisel-pin-abstand*,
    *kreisel-default-laenge*, *kreisel-default-hoehe*, *eckrad-default-hoehe*
  - Beschriftungs-Einstellungen: Texthöhe, Farbe, Abstand
  - Linienfarben (color_linie_1/2, color_pin) fuer Layer/CECOLOR
  - Toleranzen: toleranz_kollinear, toleranz_winkel

Lisp/OmniModulInsert.lsp:
  - Default-Werte fuer HOEHE und DREHUNG beim Einfuegen und Bearbeiten
  - Textgroessen (textHeight, textGap) fuer Vorschau-Dialog
  - Max-Laengen fuer AP60, AP110, APG110

Lisp/VarioFoerderer.lsp:
  - staustrecke-basis, FESTE_HORIZONTAL
  - bogen-winkel Liste (zweifach, in Bibliotheks-Extraktion und Berechnung)
  - gefaelle_winkel (3°) an allen Stellen im Anlagen-Aufbau
  - skalierung_basis fuer Block-Skalierung
  - separator_block_dx/dz, station_block_dx/dz fuer Blockeinfuegung

Lisp/Gefaellestrecke.lsp:
  - Default-Wert fuer deltaL, default_winkel
  - separator_breite fuer Laengenberechnung

Lisp/export.lsp:
  - default_hoehe fuer HOEHE-Attribut-Fallback in Bogen/Weiche/Gerade
  - default_gerade_laenge fuer Laenge-Fallback
  - mm_pro_meter (1000.0) fuer Umrechnung mm->m bei Laengenangaben

Lisp/ssg_dialog.lsp:
  - dialog_preview_bg_color (-18) fuer fill_image Hintergrundfarbe

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

Lisp/export.lsp

@@ -282,7 +282,7 @@
   (setq winkel  (or (csv:get-attrib ename "WINKEL")  "0"))
   (setq radius  (or (csv:get-attrib ename "RADIUS")  "0"))
   (setq sivasnr (or (csv:get-attrib ename "ARTINR")  ""))
-  (setq hoehe   (or (csv:get-attrib ename "HOEHE")   "2000"))
+  (setq hoehe   (or (csv:get-attrib ename "HOEHE")   (ssg-cfg-or "omniflo" "default_hoehe" "2000")))
   (setq drehung (or (csv:get-attrib ename "DREHUNG") (rtos rotation 2 1)))
   (strcat "{\"Kurvenwinkel\":" winkel
           ",\"Radius\":" radius
@@ -298,7 +298,7 @@
   (setq winkel  (or (csv:get-attrib ename "WINKEL")     "0"))
   (setq sivasnr (or (csv:get-attrib ename "ARTINR")     ""))
   (setq tef-str (csv:get-attrib ename "SIVASNR_TEF"))
-  (setq hoehe   (or (csv:get-attrib ename "HOEHE")      "2000"))
+  (setq hoehe   (or (csv:get-attrib ename "HOEHE")      (ssg-cfg-or "omniflo" "default_hoehe" "2000")))
   (setq drehung (or (csv:get-attrib ename "DREHUNG")    (rtos rotation 2 1)))
   (strcat "{\"Weichentyp\":\"" (csv:json-escape wtyp) "\""
           ",\"Richtung\":\"False\""
@@ -314,11 +314,11 @@
 (defun csv:omni-gerade-merkmale (ename rotation / laenge hoehe drehung)
   (setq laenge (csv:get-attrib ename "LAENGE"))
   (if (null laenge) (setq laenge (csv:get-attrib ename "A")))
-  (if (null laenge) (setq laenge "2000"))
-  (setq hoehe   (or (csv:get-attrib ename "HOEHE")   "2000"))
+  (if (null laenge) (setq laenge (ssg-cfg-or "omniflo" "default_gerade_laenge" "2000")))
+  (setq hoehe   (or (csv:get-attrib ename "HOEHE")   (ssg-cfg-or "omniflo" "default_hoehe" "2000")))
   (setq drehung (or (csv:get-attrib ename "DREHUNG") (rtos rotation 2 1)))
   (strcat "{\"Anzahl der Separatoren\":\"0\""
-          ",\"L\\u00e4nge in Meter\":\"" (csv:json-escape (rtos (/ (atof laenge) 1000.0) 2 2)) "\""
+          ",\"L\\u00e4nge in Meter\":\"" (csv:json-escape (rtos (/ (atof laenge) (ssg-cfg-or "infrastruktur" "mm_pro_meter" 1000.0)) 2 2)) "\""
           ",\"Winkel\":\"0\""
           ",\"Anzahl der Scanner\":0"
           ",\"H\\u00f6he oben\":\"" (csv:json-escape hoehe) "\""
@@ -426,7 +426,7 @@
            (if (null laenge-str) (setq laenge-str (csv:get-attrib ename "A")))
            (if (and laenge-str (> (strlen laenge-str) 0))
              (setq len-ap110 (+ len-ap110 (atof laenge-str)))
-             (setq len-ap110 (+ len-ap110 2000.0))
+             (setq len-ap110 (+ len-ap110 (float (atoi (ssg-cfg-or "omniflo" "default_gerade_laenge" "2000")))))
            )
            (setq merkmale (csv:omni-gerade-merkmale ename rotation))
            (setq lines (cons