[CHANGE] Verzeichnisse ILS 2d und 3d zusammengeführt und Funktionen entsprechend angepasst; TODO: Vario auf/ab Bögen schalten noch nicht korrekt zwischen 2d und 3d hin und her; TODO: Omniflo Verzeichnisse 2d/3d entsprechend genau so zusammenführen

Lisp/vf_core.lsp

@@ -11,20 +11,20 @@
 ;; ============================================================
 ;; TEIL 1: ABHAENGIGKEITEN
 ;; ============================================================
-;; DXFM_DIM lesen; 2D wird auf 3D korrigiert (VF/GF benoetigen Z-Geometrie)
-(setq *vf-dxfm-dim* (getenv "DXFM_DIM"))
-(if (or (not (= (type *vf-dxfm-dim*) 'STR)) (= *vf-dxfm-dim* "2D"))
-  (setq *vf-dxfm-dim* "3D"))
-;; Block-Pfad: data/ils/3D/ wenn DXFM_DIM nicht gesetzt oder 2D
+;; Bloecke liegen seit dem Flach-Refactor direkt unter data/ils/ (die Dimension
+;; steckt im Dateinamen bzw. Blocknamen als Suffix _2D/_3D, siehe ssg_core.lsp).
+;; VF folgt der aktuellen Dimension (ssg-ils-dim-aktuell) mit 3D-Fallback; das
+;; Laden erfolgt zentral ueber ensure-block-loaded/ssg-ils-block-laden.
+;; modul-pfad/block-pfad dienen nur noch der Info-Ausgabe (Basisverzeichnis).
 (setq modul-pfad
   (cond
     ((and (getenv "DXFMAKRO") (= (type (getenv "DXFMAKRO")) 'STR))
      (strcat (vl-string-right-trim "/" (vl-string-translate "\\" "/" (getenv "DXFMAKRO")))
-             "/data/ils/" *vf-dxfm-dim* "/"))
+             "/data/ils/"))
     ((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/" *vf-dxfm-dim* "/"))
+             "/data/ils/"))
     (t
      (princ "\n[vf_core] WARNUNG: Block-Pfad nicht ermittelbar!")
      nil)
@@ -259,11 +259,16 @@
 ;; TEIL 5: KS_EIN/KS_AUS EXTRAKTION
 ;; ============================================================
 (defun ensure-block-loaded (blockname / )
-  ;; Zentraler Loader (aktuelle Dimension + 3D-Fallback, Neudefinition bei
-  ;; Dimensionswechsel). Meldung nur bei Fehlschlag.
+  ;; Zentraler Loader (flache Ablage). Laedt den Block in der AKTUELLEN Dimension
+  ;; (ssg-ils-dim-aktuell: *ssg-ils-dim*-Override -> DXFM_DIM) mit automatischem
+  ;; 3D-Fallback, sodass 2D- und 3D-Aufbau gleichermassen funktionieren. Laedt den
+  ;; Block unter seinem effektiven, dim-suffigierten Namen und GIBT DIESEN ZURUECK,
+  ;; damit Aufrufer ihn zum Einfuegen (vla-InsertBlock/tblsearch) verwenden.
+  ;; Meldung nur bei Fehlschlag.
   (if (not (ssg-ils-block-laden blockname))
     (princ (ssg-textf "vfc-fehler-block-datei-fehlt" (list blockname)))
   )
+  (ssg-ils-blockname blockname)
 )
 
 (defun extract-ks-from-block-raw (block-obj / sub-entities sub-obj ks-results
@@ -450,7 +455,7 @@
       (exit)
     )
   )
-  (ensure-block-loaded blockname)
+  (setq blockname (ensure-block-loaded blockname))
   (if (not (tblsearch "BLOCK" blockname))
     (progn
       (princ (ssg-textf "vfc-fehler-block-nicht-in-bibliothek-abgebrochen" (list blockname)))
@@ -522,7 +527,7 @@
                                P-ein xe ye ze P-aus xu-aus yu-aus zu-aus
                                R R-Pein R-Paus tx ty tz T4
                                P-out xu-out yu-out zu-out)
-  (ensure-block-loaded blockname)
+  (setq blockname (ensure-block-loaded blockname))
   (if (not (tblsearch "BLOCK" blockname))
     (progn
       (princ (ssg-textf "vfc-fehler-block-nicht-in-bibliothek" (list blockname)))
@@ -610,7 +615,7 @@
                                xe ye ze P-ein P-aus xu-aus yu-aus zu-aus
                                R P-xyref P-zref R-xyref R-zref tx ty tz T4
                                R-Paus P-out xu-out yu-out zu-out)
-  (ensure-block-loaded blockname)
+  (setq blockname (ensure-block-loaded blockname))
   (if (not (tblsearch "BLOCK" blockname))
     (progn
       (princ (ssg-textf "vfc-fehler-block-nicht-in-bibliothek" (list blockname)))
@@ -693,7 +698,7 @@
 ;; ============================================================
 ;; Masse (KS_EIN->KS_AUS als (dx dy dz)) eines Elements aus dem Block ziehen.
 (defun vf-element-masse (blockname / temp-obj ks-data ke ka)
-  (ensure-block-loaded blockname)
+  (setq blockname (ensure-block-loaded blockname))
   (if (not (tblsearch "BLOCK" blockname))
     nil
     (progn
@@ -713,7 +718,7 @@
 ;; oder gerade). Wird genutzt, um KS_EIN so zu drehen, dass KS_AUS entlang hz
 ;; zeigt:  ein-hz = hz - plan-turn. Fallback 90 (Vorgabe fuer 90-Grad-Element).
 (defun vf-element-plan-turn (blockname / temp-obj ks-data fe fa)
-  (ensure-block-loaded blockname)
+  (setq blockname (ensure-block-loaded blockname))
   (if (not (tblsearch "BLOCK" blockname))
     90.0
     (progn
@@ -734,7 +739,7 @@
 ;;     vx / vy           : KS_AUS.origin - KS_EIN.origin (Block-XY)
 ;; Damit laesst sich die KS_AUS-Lage + Achsrichtung analytisch vorausberechnen.
 (defun vf-element-ks-info (blockname / temp-obj ks-data fe fa)
-  (ensure-block-loaded blockname)
+  (setq blockname (ensure-block-loaded blockname))
   (if (not (tblsearch "BLOCK" blockname))
     nil
     (progn
@@ -780,7 +785,7 @@
       startpunkt
     )
     (progn
-      (ensure-block-loaded blockname)
+      (setq blockname (ensure-block-loaded blockname))
       (if (not (tblsearch "BLOCK" blockname))
         (progn
           (princ (ssg-textf "vfc-fehler-block-nicht-in-bibliothek-abgebrochen" (list blockname)))
@@ -843,7 +848,7 @@
       startpunkt
     )
     (progn
-      (ensure-block-loaded blockname)
+      (setq blockname (ensure-block-loaded blockname))
       (if (not (tblsearch "BLOCK" blockname))
         (progn
           (princ (ssg-textf "vfc-fehler-block-nicht-in-bibliothek-abgebrochen" (list blockname)))