Doppelklick-GF-Edit repariert

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