[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:
+5
-5
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user