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

debug beim Varioförderer dazu. dbgreturn routine gibt den Wert zurück. neues Test Konzept für unsere lisp Funktionen implementiert

Browse Source
This commit is contained in:
Michael Stangl
2026-05-28 17:34:02 +02:00
parent 909f780bf0
commit 3aed8fe176
16 changed files with 415 additions and 3568 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Lisp/VarioFoerderer.lsp
+4 -4
View File
@@ -601,8 +601,8 @@
;; 5. Erster Vertikalbogen
(if (= richtung "Auf")
(setq bogen-name (strcat "Vario_Bogen_auf_" (itoa best-winkel)))
(setq bogen-name (strcat "Vario_Bogen_ab_" (itoa best-winkel)))
(setq bogen-name (strcat "Vario_Bogen_auf_" (itoa best-winkel) grad-zeichen))
(setq bogen-name (strcat "Vario_Bogen_ab_" (itoa best-winkel) grad-zeichen))
)
(princ (strcat "\n\n5/11: " bogen-name))
(setq aktueller-punkt (insert-block-by-ks bogen-name aktueller-punkt))
@@ -646,8 +646,8 @@
;; 7. Zweiter Vertikalbogen (gegenläufig)
(if (= richtung "Auf")
(setq bogen-name (strcat "Vario_Bogen_ab_" (itoa best-winkel)))
(setq bogen-name (strcat "Vario_Bogen_auf_" (itoa best-winkel)))
(setq bogen-name (strcat "Vario_Bogen_ab_" (itoa best-winkel) grad-zeichen))
(setq bogen-name (strcat "Vario_Bogen_auf_" (itoa best-winkel) grad-zeichen))
)
(princ (strcat "\n\n7/11: " bogen-name))
(setq aktueller-punkt (insert-block-by-ks bogen-name aktueller-punkt))