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

Lisp/KreiselInsert.lsp

@@ -16,22 +16,25 @@
   (setq #Eckrad_LetzteNr 0)
 )
 
-;; Block-Pfad immer data/ils/2D/ (Kreisel/Eckrad Bloecke nur 2D vorhanden)
+;; DXFM_DIM sicher lesen (type-Guard gegen nicht-String Rueckgabewerte)
+(setq *ki-dxfm-dim* (getenv "DXFM_DIM"))
+(if (not (= (type *ki-dxfm-dim*) 'STR)) (setq *ki-dxfm-dim* "3D"))
+;; Block-Pfad: primaer aus DXFMAKRO + DXFM_DIM, dann *ssg-lisp-pfad*-Heuristik
 (setq block-pfad
   (cond
-    ((getenv "DXFM_DATA")
-     (strcat (vl-string-translate "\\" "/" (getenv "DXFM_DATA")) "/ils/2D/"))
-    ((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/" *ki-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/2D/"))
+             "/data/ils/" *ki-dxfm-dim* "/"))
     (t
      (princ "\n[KreiselInsert] WARNUNG: Block-Pfad nicht ermittelbar!")
      nil)
   )
 )
 (setq *block-path* 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"))))
@@ -1282,6 +1285,9 @@
   (princ)
 )
 
-(princ "\nKreiselInsert.lsp geladen (Version 7.0 - Auto-Nummerierung + Beschriftung + Attribute + Redraw + Eckrad)")
-(princ "\nBefehle: KreiselInsert, KreiselConnect, KreiselRedraw, KreiselEdit, KreiselQuick, KreiselParams, ILS_Eckrad")
+(princ "\n>>> KREISELINSERT v7.0 geladen <<<")
+(princ "\n>>> Befehle: KreiselInsert, KreiselConnect, KreiselRedraw,")
+(princ "\n             KreiselEdit, KreiselQuick, KreiselParams, ILS_Eckrad")
+(if block-pfad (princ (strcat "\n    Block-Pfad: " block-pfad)))
+(princ "\n=========================================")
 (princ)