[REFACTOR] VF-Cluster: Magic-Numbers auf *vfk-*-Konstanten umgestellt

vf_core/vf_standard/vf_etage/vf_linienzug referenzieren jetzt durchgaengig
die zentralen *vfk-*-Konstanten aus vf_konstanten.lsp statt rohe Winkel-/
Laengen-/Toleranz-Literale (3.0 Grad, 500/300mm Stationen/Separatoren,
1000/800mm Mindestlaengen, AS/ES-Fallback-Versaetze, Text-/Label-Masse).
Bereits ueber ssg-cfg-or config-gefuehrte Werte bleiben unangetastet
(Config bleibt dort die aktive Quelle). vf_etage-Bogenwinkel-Inkonsistenz
(fest verdrahtete Liste ohne Bezug zu *vfk-bogen-winkel*) behoben.
vf_konstanten.lsp-Kommentare auf den neuen, aktiven Status aktualisiert.
This commit is contained in:
2026-08-29 17:10:05 +02:00
parent b0aad8e8f4
commit 41eea7fc01
5 changed files with 201 additions and 197 deletions
+5 -5
View File
@@ -786,8 +786,8 @@
(setq shz-l (sin (* (float hz) (/ pi 180.0))))
(setq halb (/ (float deltaL) 2.0))
(setq label-pt (list
(+ (car startpunkt) (* halb chz-l) (* 200.0 shz-l))
(+ (cadr startpunkt) (* halb shz-l) (* -200.0 chz-l))
(+ (car startpunkt) (* halb chz-l) (* *vfk-label-versatz* shz-l))
(+ (cadr startpunkt) (* halb shz-l) (* (- *vfk-label-versatz*) chz-l))
(caddr startpunkt)))
;; Textwinkel auf 0/90 Grad einrasten (nie kopfueber, unabhaengig von hz)
(setq basis-winkel (float hz))
@@ -800,7 +800,7 @@
(cons 8 "VF_Beschriftung")
'(67 . 0)
(cons 10 label-pt)
(cons 40 100.0)
(cons 40 *vfk-label-texthoehe*)
(cons 1 label-txt)
(cons 50 (* basis-winkel (/ pi 180.0)))
'(72 . 1)
@@ -852,13 +852,13 @@
'(8 . "0")
'(67 . 0)
(cons 10 (list (car startpunkt) attdef-ypos (caddr startpunkt)))
'(40 . 50.0)
(cons 40 *vfk-attdef-texthoehe*)
(cons 1 (cadr def))
(cons 3 (car def))
(cons 2 (car def))
'(70 . 1)
))
(setq attdef-ypos (- attdef-ypos 100.0))
(setq attdef-ypos (- attdef-ypos *vfk-attdef-zeilenabstand*))
)
;; Alle neuen Entities seit lastEnt sammeln