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

Lisp/KreiselInsert.lsp

@@ -16,19 +16,22 @@
   (setq #Eckrad_LetzteNr 0)
 )
 
-;; Block-Pfad (gesetzt durch bin/setenv.bat -> DXFM_BLOCKS = data\ils\2D)
-(setq block-pfad (getenv "DXFM_BLOCKS"))
-
-(if (or (null block-pfad) (= block-pfad ""))
-  (progn
-    (alert "DXFM_BLOCKS nicht gesetzt!\nBitte zuerst bin\\setenv.bat ausfuehren.")
-    (exit)
+;; Block-Pfad immer data/ils/2D/ (Kreisel/Eckrad Bloecke nur 2D vorhanden)
+(setq block-pfad
+  (cond
+    ((getenv "DXFM_DATA")
+     (strcat (vl-string-translate "\\" "/" (getenv "DXFM_DATA")) "/ils/2D/"))
+    ((and (boundp '*ssg-lisp-pfad*) *ssg-lisp-pfad*
+          (vl-string-search "/Lisp" *ssg-lisp-pfad*))
+     (strcat (substr *ssg-lisp-pfad* 1 (vl-string-search "/Lisp" *ssg-lisp-pfad*))
+             "/data/ils/2D/"))
+    (t
+     (princ "\n[KreiselInsert] WARNUNG: Block-Pfad nicht ermittelbar!")
+     nil)
   )
-  (setq block-pfad (strcat (vl-string-right-trim "/" (vl-string-translate "\\" "/" block-pfad)) "/"))
 )
-
 (setq *block-path* block-pfad)
-(princ (strcat "\nBlock-Pfad: " block-pfad))
+(if 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"))))