Schoenenberger_Systeme_GmbH/dxfmakros
7
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Michael Stangl
2026-10-09 16:26:45 +02:00
parent 7e64e8a501
commit 7c0c5ccfa6
2 changed files with 13 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/test_omniflo.lsp
+7 -3
View File
@@ -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
tests/test_omniflo_strecke.lsp
+6 -3
View File
@@ -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