_NoEcho
_-RunScript (arrObjects = Rhino.GetObjects(“Select objects to change color”, 0, True, True)
If IsArray(arrObjects) Then
color = Rhino.GetColor
If Not IsNull(color) Then
Rhino.EnableRedraw False
For Each strObject In arrObjects
Rhino.ObjectColor strObject, color
Next
Rhino.EnableRedraw True
Erase arrObjects
End If
End If)