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))

menu/SSG_LIB.mnl

@@ -6,10 +6,34 @@
 ;; Feature-Module werden erst bei Menueklick nachgeladen.
 ;; ============================================================
 
-;; Globale Variable: Pfad zu den LISP-Dateien (aus Umgebungsvariable)
+;; Globale Variable: Pfad zu den LISP-Dateien
+;; Zuerst Umgebungsvariable, dann Heuristik aus MNL-Datei-Pfad
 (setq *ssg-lisp-pfad* (getenv "DXFM_LISP"))
 (if *ssg-lisp-pfad*
   (setq *ssg-lisp-pfad* (vl-string-translate "\\" "/" *ssg-lisp-pfad*))
+  ;; Fallback: Pfad aus MNL-Datei ableiten – menu/SSG_LIB.mnl → Lisp/
+  (progn
+    (setq *ssg-mnl-datei* (findfile "SSG_LIB.mnl"))
+    (if *ssg-mnl-datei*
+      (progn
+        (setq *ssg-mnl-datei* (vl-string-translate "\\" "/" *ssg-mnl-datei*))
+        (setq *ssg-menu-pos* (vl-string-search "/menu/" *ssg-mnl-datei*))
+        (if *ssg-menu-pos*
+          (progn
+            (setq *ssg-lisp-pfad*
+              (strcat (substr *ssg-mnl-datei* 1 *ssg-menu-pos*) "/Lisp"))
+            (if (findfile (strcat *ssg-lisp-pfad* "/ssg_core.lsp"))
+              (princ (strcat "\n[SSG_LIB] Pfad heuristisch ermittelt: " *ssg-lisp-pfad*))
+              (progn
+                (setq *ssg-lisp-pfad* nil)
+                (princ "\n[SSG_LIB] Heuristik fehlgeschlagen: ssg_core.lsp nicht gefunden.")
+              )
+            )
+          )
+        )
+      )
+    )
+  )
 )
 
 ;; ------------------------------------------------------------