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 ...")