From 7c0c5ccfa6695034777d60c6ca9379c453933ad3 Mon Sep 17 00:00:00 2001 From: Michael Stangl Date: Fri, 9 Oct 2026 16:26:45 +0200 Subject: [PATCH] =?UTF-8?q?Fallbackpfad=20f=C3=BCr=20OMniflo=20Elemente=20?= =?UTF-8?q?von=202D/3D,=20da=20aktuell=20nur=202D=20definiert?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- tests/test_omniflo.lsp | 10 +++++++--- tests/test_omniflo_strecke.lsp | 9 ++++++--- 2 files changed, 13 insertions(+), 6 deletions(-) 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