Block-Pfad-Ermittlung auf DXFMAKRO+DXFM_DIM umgestellt; Console bereinigt

Lisp/Gefaellestrecke.lsp

@@ -47,16 +47,20 @@
 (if (null *ein-ks-ein-local*) (setq *ein-ks-ein-local* nil))
 (if (null *lib-initialized*) (setq *lib-initialized* nil))
 
-;; Block-Pfad: DXFM_BLOCKS → Heuristik (3D-Bloecke benoetigt)
+;; DXFM_DIM sicher lesen (type-Guard gegen nicht-String Rueckgabewerte)
+(setq *gf-dxfm-dim* (getenv "DXFM_DIM"))
+(if (not (= (type *gf-dxfm-dim*) 'STR)) (setq *gf-dxfm-dim* "3D"))
+;; Block-Pfad: primaer aus DXFMAKRO + DXFM_DIM, dann *ssg-lisp-pfad*-Heuristik
 (if (null block-pfad)
   (setq block-pfad
     (cond
-      ((getenv "DXFM_BLOCKS")
-       (strcat (vl-string-translate "\\" "/" (getenv "DXFM_BLOCKS")) "/"))
-      ((and (boundp '*ssg-lisp-pfad*) *ssg-lisp-pfad*
+      ((and (getenv "DXFMAKRO") (= (type (getenv "DXFMAKRO")) 'STR))
+       (strcat (vl-string-right-trim "/" (vl-string-translate "\\" "/" (getenv "DXFMAKRO")))
+               "/data/ils/" *gf-dxfm-dim* "/"))
+      ((and (boundp '*ssg-lisp-pfad*) (= (type *ssg-lisp-pfad*) 'STR)
             (vl-string-search "/Lisp" *ssg-lisp-pfad*))
        (strcat (substr *ssg-lisp-pfad* 1 (vl-string-search "/Lisp" *ssg-lisp-pfad*))
-               "/data/ils/3D/"))
+               "/data/ils/" *gf-dxfm-dim* "/"))
       (t nil)
     )
   )
@@ -1241,11 +1245,11 @@
 ;; ============================================================
 ;; START
 ;; ============================================================
-(princ "\n=========================================")
 (princ "\n>>> GEFAELLESTRECKE v2.0 geladen <<<")
-(princ "\n>>> Befehl: GEFAELLESTRECKE <<<")
+(princ "\n>>> Befehl: Gefaellestrecke")
 (princ "\n    Modus 1: Manuelle Eingabe")
 (princ "\n    Modus 2: 3D-Linie")
 (princ "\n    Modus 3: Linienzug mit Gefaellebogen")
+(if block-pfad (princ (strcat "\n    Block-Pfad: " block-pfad)))
 (princ "\n=========================================")
 (princ)