From 493967c06d51aa86a4a9d8c6279fbf754ffd10e4 Mon Sep 17 00:00:00 2001 From: Michael Stangl Date: Sat, 29 Aug 2026 17:10:40 +0200 Subject: [PATCH] [FIX] ssg_ks_insert: itoa auf Float-Winkel in Statusmeldung crasht insert-inclined-scaled-block/insert-rotated-block-with-ks riefen (itoa winkel) fuer die Statusmeldung auf. Seit *vfk-gefaelle-winkel* (3.0, Float) statt rohem Integer-Literal 3 verwendet wird, brach das mit "bad argument type <3.0>; expected " ab - sichtbar beim Etage-VF-Bau (Mubea-Testfall), der danach folgende Elemente (u.a. Gefaellestrecken) nicht mehr baute. Fix: (itoa (fix winkel)). --- Lisp/ssg_ks_insert.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Lisp/ssg_ks_insert.lsp b/Lisp/ssg_ks_insert.lsp index 460d308..6bc1781 100644 --- a/Lisp/ssg_ks_insert.lsp +++ b/Lisp/ssg_ks_insert.lsp @@ -248,7 +248,7 @@ ) ) (princ (ssg-textf "vfc-fuege-ein-lwhz" - (list blockname (rtos laenge 2 2) (itoa winkel) (chr 176) (rtos (float hz) 2 1) (chr 176)))) + (list blockname (rtos laenge 2 2) (itoa (fix winkel)) (chr 176) (rtos (float hz) 2 1) (chr 176)))) (setq scale (/ laenge (ssg-cfg-or "vario" "skalierung_basis" 1000.0))) (setq rad-v (* (float winkel) (/ pi 180.0))) (setq rad-h (* (float hz) (/ pi 180.0))) @@ -298,7 +298,7 @@ ) ) (princ (ssg-textf "vfc-fuege-block-ein-rotation-hz" - (list blockname (itoa winkel) (chr 176) (rtos (float hz) 2 1) (chr 176)))) + (list blockname (itoa (fix winkel)) (chr 176) (rtos (float hz) 2 1) (chr 176)))) (setq rad-v (* winkel (/ pi 180.0))) (setq rad-h (* (float hz) (/ pi 180.0))) (setq chv (cos rad-h) shv (sin rad-h) cvv (cos rad-v) svv (sin rad-v))