Merge remote-tracking branch 'origin/master'

Lisp/vf_linienzug.lsp

@@ -3294,6 +3294,9 @@
   ;; temporaer auf Welt (verhindert den 31.95mm-Z-Versatz bei abweichendem
   ;; BKS, siehe Kommentar dort) und stellt es danach wieder her.
   (setq vfl-insert (ssg-block-wrap-welt vfl-bname startpunkt vfl-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 vfl-insert "variofoerderer")
   ;; Werte (volle Liste; nicht vorhandene Tags ignoriert ssg-attrib-set-on)
   (ssg-attrib-set-on vfl-insert
     (list
@@ -6730,6 +6733,9 @@
     (ssadd (entlast) merge-ss)
   )
   (setq neuer-insert (ssg-block-wrap-welt neuer-bname chain-start merge-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 neuer-insert "variofoerderer")
   (ssg-attrib-set-on neuer-insert aggregiert)
   ;; SEITE_AS/SEITE_ES explizit leeren, wenn die Kette (Ausnahmefall) ohne
   ;; eigenes AS-/ES-Element beginnt/endet - ssg-attrib-set-on wuerde einen