Resets a material to Rhino's default material.
Rhino.ResetMaterial (intMaterialIndex)
intMaterialIndex |
Required. Number. The zero-based source material index. |
Boolean |
True if successful, False if not successful. |
Null |
On error. |
Dim strObject, intIndex
strObject = Rhino.GetObject("Select object")
If Not IsNull(strObject) Then
intIndex = Rhino.ObjectMaterialIndex(strObject)
If (intIndex > -1) Then
Rhino.ResetMaterial intIndex
End If
End If