[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/OmniModulInsert.lsp

@@ -618,6 +618,11 @@
   )
   (ssg-attrib-set-on blockEnt attribs)
 
+  ;; Layer aus dem LAYER-Attribut setzen - dieselbe Vorgabe-Konvention wie in
+  ;; omni:insert-dxf und c:OMNI_EDIT. Die Quell-Attribute (srcAttribs) tragen
+  ;; den Layer bereits, er wurde hier bisher nur nicht angewendet.
+  (ssg-block-layer-vorgabe blockEnt bname attribs)
+
   ;; 4. Text oberhalb der Linie positionieren, um Linienwinkel drehen,
   ;;    Inhalt mit Laenge ergaenzen
   (setq perpX (* (- (sin angle)) textGap)
@@ -1020,16 +1025,9 @@
                 (list (cons "HOEHE" (if hoehe hoehe (ssg-cfg-or "omniflo" "default_hoehe" "2000")))
                       (cons "DREHUNG" drehung-anzeige)))
 
-              ;; Layer aus LAYER-Attribut lesen und Block verschieben
+              ;; Layer aus der Block-Vorgabe (LAYER-Attribut) setzen
               (setq attribs (ssg-attrib-read blockEnt))
-              (setq layer-name (cdr (assoc "LAYER" attribs)))
-              (if (and layer-name (> (strlen layer-name) 0))
-                (progn
-                  (ssg-make-layer layer-name 7 nil)
-                  (entmod (subst (cons 8 layer-name) (assoc 8 (entget blockEnt)) (entget blockEnt)))
-                  (entupd blockEnt)
-                )
-              )
+              (setq layer-name (ssg-block-layer-vorgabe blockEnt sivasnr-str attribs))
             )
           )
 
@@ -1378,16 +1376,9 @@
         (list (cons "HOEHE" (if new-hoehe new-hoehe (ssg-cfg-or "omniflo" "default_hoehe" "2000")))
               (cons "DREHUNG" (if new-drehung new-drehung (ssg-cfg-or "omniflo" "default_drehung" "0")))))
 
-      ;; Layer aus LAYER-Attribut lesen und Block verschieben (wie omni:insert-dxf)
+      ;; Layer aus der Block-Vorgabe (LAYER-Attribut) setzen (wie omni:insert-dxf)
       (setq attribs    (ssg-attrib-read blockEnt))
-      (setq layer-name (cdr (assoc "LAYER" attribs)))
-      (if (and layer-name (> (strlen layer-name) 0))
-        (progn
-          (ssg-make-layer layer-name 7 nil)
-          (entmod (subst (cons 8 layer-name) (assoc 8 (entget blockEnt)) (entget blockEnt)))
-          (entupd blockEnt)
-        )
-      )
+      (setq layer-name (ssg-block-layer-vorgabe blockEnt sivasnr-str attribs))
     )
   )