Layer Color to Layer Material Color

Rhinoscripts / By

This rhino script allows the user to match the layer’s material color to that layer’s layer color.  If no layer material has been applied the script will create a new layer material and match its color.

Rhino Script

Option Explicit 
'Script written by <David Mans> 
'Script copyrighted by <NeoArchaic Design> 
'Script version Wednesday, 16 February 2011 12:03:34 
Call Main() 
Sub Main() 
    Dim strLayer 
    strLayer = Rhino.GetLayer("Select Layers To Match") 
    If isNull(strLayer) Then Exit Sub      
    Call Rhino.EnableRedraw(False) 
    Dim intMat, ingColor 
    intMat = Rhino.LayerMaterialIndex(strLayer) 
    ingColor = Rhino.LayerColor(strLayer) 
    If intMat < 0 Then
        intMat = Rhino.AddMaterialToLayer(strLayer) 
    End If
    Call Rhino.MaterialColor(intMat, ingColor) 
    Call Rhino.EnableRedraw(True) 
End Sub