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