die Variofoerderer.lsp umstruktiert. Gefaellstrecke kann nach einem Linienzug modeliert werden. Bei Kreiselinstert wurde die Blöck in 2D Pfad geladen.

Lisp/KreiselInsert.lsp

@@ -16,19 +16,19 @@
   (setq #Eckrad_LetzteNr 0)
 )
 
-;; Block-Pfad
+;; 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
-    (setq block-pfad "C:/Users/y.wang/Documents/dxfmakros/Blocks/")
-    (alert (strcat "Umgebungsvariable DXFM_BLOCKS nicht gefunden.\nNutze Standardpfad: " block-pfad))
+    (alert "DXFM_BLOCKS nicht gesetzt!\nBitte zuerst bin\\setenv.bat ausfuehren.")
+    (exit)
   )
   (setq block-pfad (strcat (vl-string-right-trim "/" (vl-string-translate "\\" "/" block-pfad)) "/"))
 )
 
 (setq *block-path* block-pfad)
-(princ (strcat "\nBlock-Pfad aktiv: " block-pfad))
+(princ (strcat "\nBlock-Pfad: " block-pfad))
 
 ;; Kreisel-Geometrie-Konstanten (aus Config oder Fallback)
 (setq *kreisel-durchmesser*    (ssg-cfg-or "kreisel" "durchmesser" 800.0))