mistangl/dxfmakros
1
0 Fork 0
Code Issues 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 committed 2026-05-28 17:34:02 +02:00
1 parent 909f780bf0
commit 3aed8fe176
16 files changed
+415 -3568
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

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))