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

der Lisp Omniflo Test verwendet jetzt wirklich alle existierenden Omniflo Teile die da sind.

Browse Source
This commit is contained in:
Michael Stangl
2026-06-22 11:19:27 +02:00
parent fed941d7b1
commit abc7d5ab77
3 changed files with 1236 additions and 88 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/test_omniflo.lsp
+11 -6
View File
@@ -107,7 +107,7 @@
;; exportiert CSV nach tests/output/.
;; ============================================================
(defun c:TEST_OMNIFLO (/ tests-json-pfad testfaelle
x-pos x-schritt
x-val y-val
idx eintrag sivasnr hoehe-str drehung-str
description insert-pt anzahl-ok anzahl-fehler
results-list tests-out-dir old-results)
@@ -148,8 +148,6 @@
(princ "\n================================================================")
;; Alle Bloecke einfuegen
(setq x-pos 0.0)
(setq x-schritt 200.0)
(setq anzahl-ok 0)
(setq anzahl-fehler 0)
(setq results-list nil)
@@ -170,11 +168,18 @@
)
(setq description (omni:val eintrag "description"))
(setq insert-pt (list x-pos 0.0 (atof hoehe-str)))
;; x,y-Koordinaten aus JSON lesen (wie in omniflo_uebersicht.dxf)
(setq x-val (omni:val eintrag "x"))
(setq y-val (omni:val eintrag "y"))
(if (null x-val) (setq x-val 0.0))
(if (null y-val) (setq y-val 0.0))
(if (not (numberp x-val)) (setq x-val (atof x-val)))
(if (not (numberp y-val)) (setq y-val (atof y-val)))
(setq insert-pt (list x-val y-val (atof hoehe-str)))
(princ (strcat "\n " (itoa idx) ". "
(if description description (if sivasnr sivasnr "?"))
" -> (" (rtos x-pos 2 0) ", 0, " hoehe-str ")"))
" -> (" (rtos x-val 2 0) ", " (rtos y-val 2 0) ", " hoehe-str ")"))
(if (omni:test-insert sivasnr insert-pt hoehe-str drehung-str)
(progn
@@ -193,9 +198,9 @@
)
)
(setq x-pos (+ x-pos x-schritt))
)
;; Zusammenfassung
(princ "\n================================================================")
(princ (strcat "\n Eingefuegt: " (itoa anzahl-ok)