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

Lisp/vf_standard.lsp

@@ -8,11 +8,22 @@
 
 ;; Sicherstellen, dass vf_core.lsp geladen ist
 (if (not (car (atoms-family 1 '("VF-TYP-REGISTRIEREN"))))
-  (if (getenv "DXFM_LISP")
-    (load (strcat (getenv "DXFM_LISP") "/vf_core.lsp"))
-    (progn
-      (alert "DXFM_LISP nicht gesetzt! Bitte zuerst bin\\setenv.bat ausfuehren.")
-      (exit)
+  (progn
+    (setq *vf-std-core-pfad*
+      (cond
+        ((getenv "DXFM_LISP")
+         (vl-string-translate "\\" "/" (getenv "DXFM_LISP")))
+        ((and (boundp '*ssg-lisp-pfad*) *ssg-lisp-pfad*)
+         *ssg-lisp-pfad*)
+        (t nil)
+      )
+    )
+    (if *vf-std-core-pfad*
+      (load (strcat *vf-std-core-pfad* "/vf_core.lsp"))
+      (progn
+        (princ "\n[vf_standard] WARNUNG: Lisp-Pfad nicht ermittelbar - vf_core.lsp nicht ladbar!")
+        (exit)
+      )
     )
   )
 )