Startup-Alert bei VarioFoerderer entfernt. Alle verwendete Blöcke in VarioFoerderer.lsp und Gefaellestrecke.lsp sind aus data/ils/3D/ - DXFM_BLOCKS.

Lisp/EtageVarioFoerderer.lsp

@@ -3,7 +3,20 @@
 ;; Laedt vf_core.lsp (Plugin-Dispatcher-Architektur)
 ;; c:ETAGEVARIOFOERDERER ist in vf_core.lsp als Alias definiert.
 ;; ============================================================
-(if (getenv "DXFM_LISP")
-  (load (strcat (getenv "DXFM_LISP") "/vf_core.lsp"))
-  (alert "DXFM_LISP nicht gesetzt! Bitte zuerst bin\\setenv.bat ausfuehren.")
+;; vf_core.lsp laden: 1) DXFM_LISP, 2) *ssg-lisp-pfad* (vom MNL gesetzt), 3) findfile
+(setq *vf-core-datei*
+  (cond
+    ((getenv "DXFM_LISP")
+     (strcat (vl-string-translate "\\" "/" (getenv "DXFM_LISP")) "/vf_core.lsp"))
+    ((and (boundp '*ssg-lisp-pfad*) *ssg-lisp-pfad*
+          (findfile (strcat *ssg-lisp-pfad* "/vf_core.lsp")))
+     (strcat *ssg-lisp-pfad* "/vf_core.lsp"))
+    ((findfile "vf_core.lsp")
+     (findfile "vf_core.lsp"))
+    (t nil)
+  )
+)
+(if *vf-core-datei*
+  (load *vf-core-datei*)
+  (princ "\n[EtageVarioFoerderer] WARNUNG: vf_core.lsp nicht gefunden - Befehle nicht verfuegbar.")
 )