[ADD] Layerdefinitionen und Farben durch layer.cfg für zusammengesetzte Blöcke wie Gefällestrecke oder Varioförderer werden beim Zusammenbau der Baugruppen in den Skripten verwendet; Ebenfalls als Fallback für Blöcke möglich, die kein Attribut LAYER besitzen.

Lisp/vf_core.lsp

@@ -770,7 +770,7 @@
 (defun vf-make-label (vf-nummer hoehe-von hoehe-bis deltaH deltaL L_VF L_GF1 L_GF2
                       richtung best-winkel n-separator n-scanner startpunkt hz /
                       label-txt label-pt L_VF_str L_GF_str delta-sym
-                      chz-l shz-l halb basis-winkel)
+                      chz-l shz-l halb basis-winkel lay)
   (setq delta-sym (chr 916))
   (setq L_VF_str (vl-string-subst "," "." (rtos (/ L_VF 1000.0) 2 3)))
   (setq L_GF_str (strcat (rtos (/ L_GF1 1000.0) 2 3) "," (rtos (/ L_GF2 1000.0) 2 3)))
@@ -795,9 +795,19 @@
   (while (>= basis-winkel 360.0) (setq basis-winkel (- basis-winkel 360.0)))
   (if (>= basis-winkel 180.0) (setq basis-winkel (- basis-winkel 180.0)))
   (setq basis-winkel (if (or (< basis-winkel 45.0) (>= basis-winkel 135.0)) 0.0 90.0))
+  ;; Beschriftungs-Layer aus cfg/layer.cfg (Baugruppe "vf_beschriftung"), sonst
+  ;; der bisherige Hartwert. Der Layer wird hier ANGELEGT - bisher schrieb das
+  ;; entmake unten auf einen Layer, den niemand erzeugt hat.
+  (setq lay (ssg-layer-anlegen "vf_beschriftung" nil))
+  (if (null lay)
+    (progn
+      (setq lay "VF_Beschriftung")
+      (ssg-make-layer lay "7" nil)
+    )
+  )
   (entmake (list
     '(0 . "TEXT")
-    (cons 8 "VF_Beschriftung")
+    (cons 8 lay)
     '(67 . 0)
     (cons 10 label-pt)
     (cons 40 *vfk-label-texthoehe*)
@@ -881,6 +891,9 @@
       ;; temporaer auf Welt (verhindert den 31.95mm-Z-Versatz bei
       ;; abweichendem BKS) und stellt es danach wieder her.
       (setq vf-insert (ssg-block-wrap-welt vf-bname startpunkt vf-ss))
+      ;; Ziel-Layer der Baugruppe aus cfg/layer.cfg (ohne Eintrag bleibt die
+      ;; Referenz auf dem aktuellen Layer, wie vor der Umstellung).
+      (ssg-layer-setzen vf-insert "variofoerderer")
       (setq montagehoehe-m (/ (+ hoehe-von hoehe-bis) 2000.0))
       ;; L_GF_m: kommagetrennte Segmentlaengen in Metern (vorne,hinten),
       ;; analog L_GF_m in Gefaellestrecke.lsp.