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

Doppelklick-GF-Edit repariert

Browse Source
This commit is contained in:
Yuelin Wang
2026-07-22 12:43:29 +02:00
parent c0f06b68cd
commit c6d5a4e8eb
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Lisp/Gefaellestrecke.lsp
+8 -1
View File
@@ -2089,6 +2089,10 @@
hoehe-bis)) hoehe-bis))
(setq hz-vf (rem (+ hz 180.0) 360.0)) (setq hz-vf (rem (+ hz 180.0) 360.0))
(setq vf-seite as-seite) ; VF-AS/ES-Seite: Default = GF-AS-Seite (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 (vfs-standard-dialog-berechnen-einfuegen
(vf-next-number) deltaL deltaH "Auf" vf-start hz-vf vf-seite nil) (vf-next-number) deltaL deltaH "Auf" vf-start hz-vf vf-seite nil)
(princ (ssg-text "gf-vf-gebaut")) (princ (ssg-text "gf-vf-gebaut"))
@@ -2171,7 +2175,10 @@
(setq as-seite (cond ((cdr (assoc "SEITE_AS" attribs))) ("links"))) (setq as-seite (cond ((cdr (assoc "SEITE_AS" attribs))) ("links")))
(setq hoehe-bis (atof (cond ((cdr (assoc "HOEHE_BIS_mm" attribs))) ("0")))) (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 (cond
((null dlg-werte) ((null dlg-werte)
(princ (ssg-text "gf-status-abgebrochen"))) (princ (ssg-text "gf-status-abgebrochen")))