Die 2D/3D einzelnen Blockdateien für Gefaellestrecken und Varioförderer wurden eingepflegt.

Lisp/KreiselInsert.lsp

@@ -30,6 +30,34 @@
 (setq *block-path* block-pfad)
 (princ (strcat "\nBlock-Pfad: " block-pfad))
 
+;; ssg_core laden falls noch nicht geschehen (Schutz bei direktem Laden ohne ssg-ensure)
+(if (null (car (atoms-family 1 '("SSG-CFG-OR"))))
+  (progn
+    (setq *ssg-core-datei*
+      (cond
+        ((getenv "DXFM_LISP")
+         (strcat (vl-string-translate "\\" "/" (getenv "DXFM_LISP")) "/ssg_core.lsp"))
+        ((findfile "ssg_core.lsp")
+         (findfile "ssg_core.lsp"))
+        (t nil)
+      )
+    )
+    (if *ssg-core-datei*
+      (progn
+        (load *ssg-core-datei*)
+        (if (car (atoms-family 1 '("SSG-LOAD-CONFIG"))) (ssg-load-config))
+        (princ (strcat "\n[KreiselInsert] ssg_core geladen: " *ssg-core-datei*))
+      )
+      (progn
+        (defun ssg-cfg-or (sektion schluessel standard) standard)
+        (defun ssg-cfg   (sektion schluessel) nil)
+        (defun ssg-load-config () nil)
+        (princ "\n[KreiselInsert] WARNUNG: ssg_core.lsp nicht gefunden - Standardwerte.")
+      )
+    )
+  )
+)
+
 ;; Kreisel-Geometrie-Konstanten (aus Config oder Fallback)
 (setq *kreisel-durchmesser*    (ssg-cfg-or "kreisel" "durchmesser" 800.0))
 (setq *kreisel-pin-abstand*    (ssg-cfg-or "kreisel" "pin_abstand" 100.0))