From c6d5a4e8eb3ebb071778c189678e715766fe584f Mon Sep 17 00:00:00 2001 From: Yuelin Wang Date: Wed, 22 Jul 2026 12:43:29 +0200 Subject: [PATCH] Doppelklick-GF-Edit repariert --- Lisp/Gefaellestrecke.lsp | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/Lisp/Gefaellestrecke.lsp b/Lisp/Gefaellestrecke.lsp index 355700f..79f3117 100644 --- a/Lisp/Gefaellestrecke.lsp +++ b/Lisp/Gefaellestrecke.lsp @@ -2089,6 +2089,10 @@ hoehe-bis)) (setq hz-vf (rem (+ hz 180.0) 360.0)) (setq vf-seite as-seite) ; VF-AS/ES-Seite: Default = GF-AS-Seite + (princ (strcat "\n[DEBUG-VFPAR] GF-hz=" (rtos hz 2 1) " -> VF-hz=" (rtos hz-vf 2 1) + " | as-seite=" as-seite + " | gf-start=" (vl-princ-to-string gf-start) + " | vf-start=" (vl-princ-to-string vf-start))) (vfs-standard-dialog-berechnen-einfuegen (vf-next-number) deltaL deltaH "Auf" vf-start hz-vf vf-seite nil) (princ (ssg-text "gf-vf-gebaut")) @@ -2171,7 +2175,10 @@ (setq as-seite (cond ((cdr (assoc "SEITE_AS" attribs))) ("links"))) (setq hoehe-bis (atof (cond ((cdr (assoc "HOEHE_BIS_mm" attribs))) ("0")))) - (setq dlg-werte (gf-dialog-eingabe prefill)) + ;; 2. Argument (hoehe-vorbelegung) explizit nil: BricsCAD verlangt die exakte + ;; Argumentzahl (setzt fehlende NICHT automatisch auf nil). Im Edit kommt die + ;; Einfuegehoehe aus prefill, keine separate Punkt-Vorbelegung noetig. + (setq dlg-werte (gf-dialog-eingabe prefill nil)) (cond ((null dlg-werte) (princ (ssg-text "gf-status-abgebrochen")))