[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.

Lisp/vf_standard.lsp

@@ -260,8 +260,8 @@
     (if (or (null mass1) (null mass2))
       (setq ergebnis-liste (cons (list winkel nil nil nil) ergebnis-liste))
       (progn
-        (setq rad5 (* 3.0 (/ pi 180.0)))
-        (setq rad7 (* (float (if (= richtung "Auf") (- 3 winkel) (+ winkel 3)))
+        (setq rad5 (* *vfk-gefaelle-winkel* (/ pi 180.0)))
+        (setq rad7 (* (float (if (= richtung "Auf") (- *vfk-gefaelle-winkel* winkel) (+ winkel *vfk-gefaelle-winkel*)))
                       (/ pi 180.0)))
         (setq bogen-x1 (+ (* (car mass1) (cos rad5)) (* (caddr mass1) (sin rad5))))
         (setq bogen-z1 (+ (* (- (car mass1)) (sin rad5)) (* (caddr mass1) (cos rad5))))
@@ -271,7 +271,7 @@
               sinα (sin (* winkel (/ pi 180.0))))
         (setq A (- deltaL aus-dx ein-dx bogen-x1 bogen-x2
                    (* feste-hz cos3)))
-        (setq winkel-eff (if (= richtung "Auf") (- winkel 3) (+ winkel 3)))
+        (setq winkel-eff (if (= richtung "Auf") (- winkel *vfk-gefaelle-winkel*) (+ winkel *vfk-gefaelle-winkel*)))
         (setq cosEff (cos (* winkel-eff (/ pi 180.0)))
               sinEff (sin (* winkel-eff (/ pi 180.0))))
         (if (= richtung "Auf")
@@ -342,12 +342,12 @@
                                     mass1 mass2 rad3 bogen-x1 bogen-z1
                                     bogen-x2 bogen-z2 deltaH-signiert
                                     A-hz B-hz GF_total L_VF-hz gueltig)
-  (setq mass1 (get-bogen-mass bogen-auf 3))
-  (setq mass2 (get-bogen-mass bogen-ab  3))
+  (setq mass1 (get-bogen-mass bogen-auf (fix *vfk-gefaelle-winkel*)))
+  (setq mass2 (get-bogen-mass bogen-ab  (fix *vfk-gefaelle-winkel*)))
   (if (or (null mass1) (null mass2))
     nil
     (progn
-      (setq rad3 (* 3.0 (/ pi 180.0)))
+      (setq rad3 (* *vfk-gefaelle-winkel* (/ pi 180.0)))
       ;; Bogen1 (immer auf_3): Eintritt bei 3 Grad (von Umlenkstation), biegt auf 0 Grad
       (setq bogen-x1 (+ (* (car mass1) (cos rad3)) (* (caddr mass1) (sin rad3))))
       (setq bogen-z1 (+ (* (- (car mass1)) (sin rad3)) (* (caddr mass1) (cos rad3))))