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

omniflo lisp funktionsaufrufe rausgeworfen und standardfunktionen verwendet. Ansonsten war Abhängigkeit zwischen Tests

Browse Source
This commit is contained in:
Michael Stangl
2026-06-23 16:43:46 +02:00
parent 10ed8b863b
commit 64cd1612cb
1 changed files with 7 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/test_omniflo.lsp
+7 -11
View File
@@ -153,10 +153,6 @@
description insert-pt anzahl-ok anzahl-fehler description insert-pt anzahl-ok anzahl-fehler
results-list tests-out-dir old-results) results-list tests-out-dir old-results)
(if (not *lib-initialized*)
(init-bibliothek)
)
(ssg-start "TEST_OMNIFLO" (ssg-start "TEST_OMNIFLO"
'(("OSMODE") ("ATTREQ") ("ATTDIA"))) '(("OSMODE") ("ATTREQ") ("ATTDIA")))
(setvar "OSMODE" 0) (setvar "OSMODE" 0)
@@ -175,7 +171,7 @@
(princ) (princ)
) )
(progn (progn
(setq testfaelle (omni:load-json tests-json-pfad)) (setq testfaelle (ssg-load-json tests-json-pfad))
(if (null testfaelle) (if (null testfaelle)
(progn (progn
(princ "\n[TEST_OMNIFLO] FEHLER: Testdaten konnten nicht geladen werden.") (princ "\n[TEST_OMNIFLO] FEHLER: Testdaten konnten nicht geladen werden.")
@@ -196,22 +192,22 @@
(foreach eintrag testfaelle (foreach eintrag testfaelle
(setq idx (1+ idx)) (setq idx (1+ idx))
(setq sivasnr (omni:val eintrag "sivasnr")) (setq sivasnr (ssg-val eintrag "sivasnr"))
(setq hoehe-str (omni:val eintrag "hoehe")) (setq hoehe-str (ssg-val eintrag "hoehe"))
(if (null hoehe-str) (setq hoehe-str "2000")) (if (null hoehe-str) (setq hoehe-str "2000"))
(if (numberp hoehe-str) (if (numberp hoehe-str)
(setq hoehe-str (rtos hoehe-str 2 0)) (setq hoehe-str (rtos hoehe-str 2 0))
) )
(setq drehung-str (omni:val eintrag "drehung")) (setq drehung-str (ssg-val eintrag "drehung"))
(if (null drehung-str) (setq drehung-str "0")) (if (null drehung-str) (setq drehung-str "0"))
(if (numberp drehung-str) (if (numberp drehung-str)
(setq drehung-str (rtos drehung-str 2 1)) (setq drehung-str (rtos drehung-str 2 1))
) )
(setq description (omni:val eintrag "description")) (setq description (ssg-val eintrag "description"))
;; x,y-Koordinaten aus JSON lesen (wie in omniflo_uebersicht.dxf) ;; x,y-Koordinaten aus JSON lesen (wie in omniflo_uebersicht.dxf)
(setq x-val (omni:val eintrag "x")) (setq x-val (ssg-val eintrag "x"))
(setq y-val (omni:val eintrag "y")) (setq y-val (ssg-val eintrag "y"))
(if (null x-val) (setq x-val 0.0)) (if (null x-val) (setq x-val 0.0))
(if (null y-val) (setq y-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 x-val)) (setq x-val (atof x-val)))