Fallbackpfad für OMniflo Elemente von 2D/3D, da aktuell nur 2D definiert

tests/test_omniflo.lsp

@@ -22,6 +22,9 @@
 ;; insert-pt   : Einfuegepunkt als Liste (x y z)
 ;; hoehe-str   : Hoehe als String (fuer HOEHE-Attribut)
 ;; drehung-str : Drehung als String (fuer DREHUNG-Attribut)
+;; Pfadaufloesung (inkl. DWG- und 2D/3D-Dimensionsfallback) wie im
+;; produktiven Einfuege-/Edit-Pfad ueber omni:omniflo-datei-finden
+;; (OmniModulInsert.lsp) - nicht mehr lokal dupliziert.
 (defun omni:test-insert (sivasnr-str insert-pt hoehe-str drehung-str /
                           dxf-pfad omniflo-pfad blockEnt angleDeg)
   (setq omniflo-pfad (getenv "DXFM_OMNIFLO"))
@@ -31,10 +34,11 @@
       nil
     )
     (progn
-      (setq dxf-pfad (strcat omniflo-pfad "/" sivasnr-str ".dxf"))
+      (setq dxf-pfad (omni:omniflo-datei-finden sivasnr-str omniflo-pfad))
-      (if (not (findfile dxf-pfad))
+      (if (not dxf-pfad)
         (progn
-          (princ (strcat "\n[TEST_OMNIFLO] WARNUNG: DXF nicht gefunden: " dxf-pfad))
+          (princ (strcat "\n[TEST_OMNIFLO] WARNUNG: DXF nicht gefunden: "
+                         omniflo-pfad "/" sivasnr-str ".dxf"))
           nil
         )
         (progn

tests/test_omniflo_strecke.lsp

@@ -46,6 +46,9 @@
 
 
 ;; --- Bogen-DXF non-interaktiv an gegebenem Punkt einfuegen ---
+;; Pfadaufloesung (inkl. DWG- und 2D/3D-Dimensionsfallback) wie im
+;; produktiven Einfuege-/Edit-Pfad ueber omni:omniflo-datei-finden
+;; (OmniModulInsert.lsp) - nicht mehr lokal dupliziert.
 (defun omnistr:insert-bogen (sivasnr-str insert-pt hoehe-str drehung-str /
                              dxf-pfad omniflo-pfad blockEnt angleDeg)
   (dbgf "omnistr:insert-bogen")
@@ -60,10 +63,10 @@
       nil
     )
     (progn
-      (setq dxf-pfad (strcat omniflo-pfad "/" sivasnr-str ".dxf"))
+      (setq dxf-pfad (omni:omniflo-datei-finden sivasnr-str omniflo-pfad))
-      (if (not (findfile dxf-pfad))
+      (if (not dxf-pfad)
         (progn
-          (dbgmsg (strcat "WARNUNG: DXF nicht gefunden: " dxf-pfad))
+          (dbgmsg (strcat "WARNUNG: DXF nicht gefunden: " omniflo-pfad "/" sivasnr-str ".dxf"))
           nil
         )
         (progn