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

Bugfixes in LISP-Testrunnern (Foerderer, KS, SAVEAS)

Browse Source 
- 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 <noreply@anthropic.com>
This commit is contained in:
Michael Stangl
2026-06-18 16:05:50 +02:00
parent bd053d76d3
commit 21682576c4
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/test_foerderer.lsp
+5 -5
View File
@@ -97,9 +97,9 @@
(itoa best-winkel) " Grad L_GF=" (rtos L_GF 2 1) (itoa best-winkel) " Grad L_GF=" (rtos L_GF 2 1)
" L_VF=" (rtos L_VF 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 (/ 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 (setq results-list (cons
(foerderer:test-result-json test-id richtung deltaL deltaH (foerderer:test-result-json test-id richtung deltaL deltaH
@@ -150,9 +150,9 @@
(itoa best-winkel) " Grad L_GF=" (rtos L_GF 2 1) (itoa best-winkel) " Grad L_GF=" (rtos L_GF 2 1)
" L_VF=" (rtos L_VF 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 (/ 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 (setq results-list (cons
(foerderer:test-result-json test-id richtung deltaL deltaH (foerderer:test-result-json test-id richtung deltaL deltaH
@@ -210,7 +210,7 @@
;; DXF speichern ;; DXF speichern
(setq out-dxf (strcat tests-out-dir "/foerderer_tests.dxf")) (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)) (princ (strcat "\n DXF gespeichert: " out-dxf))
(ssg-end) (ssg-end)
tests/test_ks.lsp
+1 -1
View File
@@ -251,7 +251,7 @@
;; DXF speichern ;; DXF speichern
(setq out-dxf (strcat tests-out-dir "/ks_tests.dxf")) (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)) (princ (strcat "\n DXF gespeichert: " out-dxf))
(ssg-end) (ssg-end)