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

@@ -98,17 +98,10 @@
   (vla-TransformBy block-obj (vlax-tmatrix matrix))
   (vla-Move block-obj (vlax-3D-point '(0.0 0.0 0.0)) (vlax-3D-point pt))
 
-  ;; LAYER-Attribut auslesen und Block auf diesen Layer verschieben
+  ;; Layer aus der Block-Vorgabe (LAYER-Attribut) setzen
   (setq blockEnt (vlax-vla-object->ename block-obj))
   (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 *tefl-blockname* attribs))
 
   ;; Eindeutige ID zuweisen, falls das Block-Schema ein ID-Attribut fuehrt
   ;; (bei 0_B10030 aktuell nicht der Fall - dann folgenlos, wie in