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