[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_etage.lsp

@@ -155,6 +155,9 @@
   )
   (setq block-obj (vla-InsertBlock modelspace
                     (vlax-3D-point '(0 0 0)) blockname scale 1.0 1.0 0))
+  ;; Einzelteil auf die eigene Ebene der Blockdefinition legen - wie in den
+  ;; Zwillingen in ssg_ks_insert.lsp; hier fehlte der Aufruf bisher.
+  (ssg-ils-block-auf-ebene block-obj blockname)
   (setq matrix (vf-rot-matrix chz shz cv sv))
   (vla-TransformBy block-obj (vlax-tmatrix matrix))
   (vla-Move block-obj (vlax-3D-point '(0 0 0)) (vlax-3D-point startpunkt))
@@ -186,6 +189,9 @@
   )
   (setq block-obj (vla-InsertBlock modelspace
                     (vlax-3D-point '(0 0 0)) blockname 1.0 1.0 1.0 0))
+  ;; Einzelteil auf die eigene Ebene der Blockdefinition legen - wie in den
+  ;; Zwillingen in ssg_ks_insert.lsp; hier fehlte der Aufruf bisher.
+  (ssg-ils-block-auf-ebene block-obj blockname)
   (setq matrix (vf-rot-matrix chz shz cv sv))
   (vla-TransformBy block-obj (vlax-tmatrix matrix))
   (vla-Move block-obj (vlax-3D-point '(0 0 0)) (vlax-3D-point startpunkt))
@@ -225,6 +231,9 @@
   (setq ks-aus (cadr (assoc "KS_AUS" ks-data)))
   ;; Block einfuegen und rotieren
   (setq block-obj (vla-InsertBlock modelspace (vlax-3D-point '(0 0 0)) blockname 1.0 1.0 1.0 0))
+  ;; Einzelteil auf die eigene Ebene der Blockdefinition legen - wie in den
+  ;; Zwillingen in ssg_ks_insert.lsp; hier fehlte der Aufruf bisher.
+  (ssg-ils-block-auf-ebene block-obj blockname)
   (vla-TransformBy block-obj (vlax-tmatrix (vf-rot-matrix chz shz cv sv)))
   (if (and ks-ein ks-aus)
     (progn
@@ -287,6 +296,9 @@
   (setq ks-aus (cadr (assoc "KS_AUS" ks-data)))
   ;; Block mit XScale einfuegen und rotieren
   (setq block-obj (vla-InsertBlock modelspace (vlax-3D-point '(0 0 0)) blockname scale 1.0 1.0 0))
+  ;; Einzelteil auf die eigene Ebene der Blockdefinition legen - wie in den
+  ;; Zwillingen in ssg_ks_insert.lsp; hier fehlte der Aufruf bisher.
+  (ssg-ils-block-auf-ebene block-obj blockname)
   (vla-TransformBy block-obj (vlax-tmatrix (vf-rot-matrix chz shz cv sv)))
   (if (and ks-ein ks-aus)
     (progn