Orderstruktur der Library in 2d und 3d unterteilt, Dateien entsprechend verschoben, Pfade in Variablen im gesamten Verzeichnis entsprechend korrigiert; Vario Vertikalbögen für 2d und 3d erzeugt;

Lisp/OmniModulInsert.lsp

@@ -956,15 +956,15 @@
 ;; hoehe       = Hoehe in mm als String (wird als HOEHE-Attribut gesetzt)
 ;; drehung     = Drehwinkel in Grad als String (Block-Rotation)
 ;; Rueckgabe: Einfuegepunkt oder nil bei Abbruch
-(defun omni:insert-dxf (sivasnr-str hoehe drehung / dxf-pfad data-pfad pt angleDeg blockEnt attribs layer-name)
-  (setq data-pfad (getenv "DXFM_DATA"))
-  (if (null data-pfad)
+(defun omni:insert-dxf (sivasnr-str hoehe drehung / dxf-pfad omniflo-pfad pt angleDeg blockEnt attribs layer-name)
+  (setq omniflo-pfad (getenv "DXFM_OMNIFLO"))
+  (if (null omniflo-pfad)
     (progn
-      (princ "\n[OMNI] FEHLER: DXFM_DATA nicht gesetzt!")
+      (princ "\n[OMNI] FEHLER: DXFM_OMNIFLO nicht gesetzt!")
       nil
     )
     (progn
-      (setq dxf-pfad (strcat data-pfad "/omniflo/" sivasnr-str ".dxf"))
+      (setq dxf-pfad (strcat omniflo-pfad "/" sivasnr-str ".dxf"))
       (if (not (findfile dxf-pfad))
         (progn
           (princ (strcat "\n[OMNI] FEHLER: DXF nicht gefunden: " dxf-pfad))
@@ -1307,8 +1307,7 @@
   (setq sivasnr-str (omni:sivasid-to-str (omni:val new-eintrag "Sivasnr")))
 
   ;; 6. DXF-Datei pruefen
-  (setq data-pfad (getenv "DXFM_DATA"))
-  (setq dxf-pfad (strcat data-pfad "/omniflo/" sivasnr-str ".dxf"))
+  (setq dxf-pfad (strcat (getenv "DXFM_OMNIFLO") "/" sivasnr-str ".dxf"))
   (if (not (findfile dxf-pfad))
     (progn
       (ssg-emsg (strcat "DXF nicht gefunden: " dxf-pfad))

Lisp/VarioFoerderer.lsp

@@ -17,20 +17,8 @@
   )
 )
 
-;; Pfad zum Verzeichnis mit den Einzelblock-DXF-Dateien
-(if (getenv "DXFM_DATA")
-  (progn
-    (setq block-pfad (getenv "DXFM_DATA"))
-    (setq block-pfad (vl-string-translate "\\" "/" block-pfad))
-    (if (= (substr block-pfad (strlen block-pfad)) "/")
-      (setq block-pfad (substr block-pfad 1 (1- (strlen block-pfad)))))
-    (setq block-pfad (strcat block-pfad "/ils/"))
-  )
-  (progn
-    (alert "Umgebungsvariable DXFM_DATA nicht gesetzt!\nBitte zuerst bin\\setenv.bat ausfuehren.")
-    (exit)
-  )
-)
+;; Pfad zu den Einzelblock-DXF-Dateien (zeigt auf 2D oder 3D Unterverzeichnis)
+(setq block-pfad modul-pfad)
 
 (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
 (setq modelspace (vla-get-ModelSpace doc))
@@ -119,10 +107,9 @@
       ;; Erste fehlender Block: gesamte Bibliothek laden (enthaelt alle 3D-Bloecke)
       (if (not *library-loaded*)
         (progn
-          ;; Pfad: block-pfad = ".../data/ils/" → ".../data/block_libraries/ils_library.dxf"
           (setq lib-datei
-            (strcat (substr block-pfad 1 (- (strlen block-pfad) 4))
-                    "block_libraries/ils_library.dwg"))
+            (strcat (vl-string-translate "\\" "/" (getenv "DXFM_DATA"))
+                    "/block_libraries/ils_library.dwg"))
           (if (findfile lib-datei)
             (progn
               (princ "\n  Lade ils_library.dxf ...")

bin/setenv.bat

@@ -21,11 +21,13 @@ set "DXFM_TESTOUT=%DXFM_TESTS%\output"
 set "DXFM_TESTREF=%DXFM_TESTS%\reference"
 set "DXFM_CFG=%DXFMAKRO%\cfg"
 set "DXFM_LOG=%DXFMAKRO%\logs"
-set "DXFM_BLOCKS=%DXFMAKRO%\data\ils"
 set "DXFM_LISP=%DXFMAKRO%\Lisp"
 set "DXFM_DCL=%DXFMAKRO%\dcl"
 set "DXFM_RESULTS=%DXFMAKRO%\results"
 
+REM 2D/3D-Modus: Standard ist 2D
+set "DXFM_DIM=2D"
+
 set BRICSCAD="C:\Program Files\Bricsys\BricsCAD V25 de_DE\bricscad.exe"
 
 if exist "C:\Program Files\Bricsys\BricsCAD V25 de_DE\bricscad.exe" (
@@ -38,12 +40,20 @@ if exist "C:\Program Files\Bricsys\BricsCAD V25 de_DE\bricscad.exe" (
     echo Keine BricsCAD-Installation gefunden.
 )
 
-REM Ueberladen von Umgebungsvariablen durch _setenv.bat
+REM Ueberladen von Umgebungsvariablen durch _setenv.bat (z.B. DXFM_DIM=3D)
 if exist "%~dp0_setenv.bat" (
     echo Lade lokale Umgebungseinstellungen aus _setenv.bat...
     call "%~dp0_setenv.bat"
 )
 
+REM Kommandozeilenparameter hat hoechste Prioritaet
+if /i "%1"=="3D" set "DXFM_DIM=3D"
+if /i "%1"=="2D" set "DXFM_DIM=2D"
+
+REM Abhaengige Pfade nach Override berechnen
+set "DXFM_BLOCKS=%DXFMAKRO%\data\ils\%DXFM_DIM%"
+set "DXFM_OMNIFLO=%DXFMAKRO%\data\omniflo\%DXFM_DIM%"
+
 
 REM Ordner erstellen falls sie nicht existieren
 if not exist "%DXFM_BIN%" mkdir "%DXFM_BIN%"
@@ -51,6 +61,7 @@ if not exist "%DXFM_CFG%" mkdir "%DXFM_CFG%"
 if not exist "%DXFM_LIB%" mkdir "%DXFM_LIB%"
 if not exist "%DXFM_DATA%" mkdir "%DXFM_DATA%"
 if not exist "%DXFM_BLOCKS%" mkdir "%DXFM_BLOCKS%"
+if not exist "%DXFM_OMNIFLO%" mkdir "%DXFM_OMNIFLO%"
 if not exist "%DXFM_LISP%" mkdir "%DXFM_LISP%"
 if not exist "%DXFM_LOG%" mkdir "%DXFM_LOG%"
 if not exist "%DXFM_RESULTS%" mkdir "%DXFM_RESULTS%"
@@ -62,6 +73,9 @@ REM Umgebungsvariablen anzeigen
 echo.
 echo ================================================================
 echo DXFMAKRO         = %DXFMAKRO%
+echo DXFM_DIM         = %DXFM_DIM%
+echo DXFM_BLOCKS      = %DXFM_BLOCKS%
+echo DXFM_OMNIFLO     = %DXFM_OMNIFLO%
 echo ================================================================
 echo.