Occurrence material color change

[PACDrafting]

Hi

How do I change the a part material render style within an assembly?

I have tried this below. It changes the name but doesn't update the render style.

Sub Material()

Dim oassy As AssemblyDocument
Set oassy = ThisApplication.ActiveDocument

Dim ocompdef As AssemblyComponentDefinition
Set ocompdef = oassy.ComponentDefinition

Dim ooccurr As ComponentOccurrences
Set ooccurr = ocompdef.Occurrences

Dim opartdef As ComponentDefinition
Set opartdef = ooccurr.Item(11).Definition

opartdef.Material.RenderStyle.Name = "Red"

End Sub

[xiaoyan.qi · Accepted solution]

hi

you can try to change the last statement as below

   opartdef.Material.RenderStyle = opartdef.Document.RenderStyles.Item("Red")

   ' the original statement  opartdef.Material.RenderStyle.Name = "Red"

Let me know if it works

Thanks

Mick

[PACDrafting]

Hi Mick,  works fine.

Thanks