From 21682576c458f787ce31a832958d05ab4ca71f2a Mon Sep 17 00:00:00 2001 From: Michael Stangl Date: Thu, 18 Jun 2026 16:05:50 +0200 Subject: [PATCH] Bugfixes in LISP-Testrunnern (Foerderer, KS, SAVEAS) - test_foerderer.lsp: foerderanlage-einfuegen -> variofoerderer-einfuegen mit korrekten Parametern (seite, vf-nummer, n-scanner) - test_foerderer.lsp, test_kreisel.lsp, test_ks.lsp: SAVEAS "DXF" durch SAVEAS "" ersetzt (BricsCAD erkennt Format an .dxf-Endung automatisch) Co-Authored-By: Claude Opus 4.6 --- tests/test_foerderer.lsp | 10 +++++----- tests/test_ks.lsp | 2 +- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/tests/test_foerderer.lsp b/tests/test_foerderer.lsp index 303f8e9..5951d57 100644 --- a/tests/test_foerderer.lsp +++ b/tests/test_foerderer.lsp @@ -97,9 +97,9 @@ (itoa best-winkel) " Grad L_GF=" (rtos L_GF 2 1) " L_VF=" (rtos L_VF 2 1))) - (foerderanlage-einfuegen deltaL deltaH richtung best-winkel + (variofoerderer-einfuegen deltaL deltaH richtung best-winkel (/ L_GF 2.0) (/ L_GF 2.0) L_VF - (list 0 y-offset 0)) + (list 0 y-offset 0) "links" idx 0) (setq results-list (cons (foerderer:test-result-json test-id richtung deltaL deltaH @@ -150,9 +150,9 @@ (itoa best-winkel) " Grad L_GF=" (rtos L_GF 2 1) " L_VF=" (rtos L_VF 2 1))) - (foerderanlage-einfuegen deltaL deltaH richtung best-winkel + (variofoerderer-einfuegen deltaL deltaH richtung best-winkel (/ L_GF 2.0) (/ L_GF 2.0) L_VF - (list 0 y-offset 0)) + (list 0 y-offset 0) "links" idx 0) (setq results-list (cons (foerderer:test-result-json test-id richtung deltaL deltaH @@ -210,7 +210,7 @@ ;; DXF speichern (setq out-dxf (strcat tests-out-dir "/foerderer_tests.dxf")) - (command "_.SAVEAS" "DXF" out-dxf) + (command "_.SAVEAS" "" out-dxf) (princ (strcat "\n DXF gespeichert: " out-dxf)) (ssg-end) diff --git a/tests/test_ks.lsp b/tests/test_ks.lsp index 6432a39..a00db6e 100644 --- a/tests/test_ks.lsp +++ b/tests/test_ks.lsp @@ -251,7 +251,7 @@ ;; DXF speichern (setq out-dxf (strcat tests-out-dir "/ks_tests.dxf")) - (command "_.SAVEAS" "DXF" out-dxf) + (command "_.SAVEAS" "" out-dxf) (princ (strcat "\n DXF gespeichert: " out-dxf)) (ssg-end)