diff --git a/tests/test_omniflo.lsp b/tests/test_omniflo.lsp index 2f31a0f..500f99b 100644 --- a/tests/test_omniflo.lsp +++ b/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")) - (if (not (findfile dxf-pfad)) + (setq dxf-pfad (omni:omniflo-datei-finden sivasnr-str omniflo-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 diff --git a/tests/test_omniflo_strecke.lsp b/tests/test_omniflo_strecke.lsp index 137640a..c3af79f 100644 --- a/tests/test_omniflo_strecke.lsp +++ b/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")) - (if (not (findfile dxf-pfad)) + (setq dxf-pfad (omni:omniflo-datei-finden sivasnr-str omniflo-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