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

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.")
+              )
+            )
+          )
+        )
+      )
+    )
+  )
 )
 
 ;; ------------------------------------------------------------