Set Color of Sub-assembly Parts

[Anonymous]

The code below works fine for setting the top level occurrence colors. What can I do to make it also set the color of parts in sub-assemblies?
Thanks in advance!

Dim oDoc As AssemblyDocument
Set oDoc = invApp.ActiveDocument

Dim oAsmCompDef As AssemblyComponentDefinition
Set oAsmCompDef = invApp.ActiveDocument.ComponentDefinition

' Get references to the two occurrences to constrain.
Dim oOcc1 As ComponentOccurrence
Set oOcc1 = oAsmCompDef.Occurrences.ItemByName(PartName)

Dim oRenderStyle As RenderStyle
Set oRenderStyle = oDoc.RenderStyles.Item(sColor)

oOcc1.SetRenderStyle kOverrideRenderStyle, oRenderStyle

[Anonymous]

This will depend on the behavior you want. Say there are 2 occurrences of a
sub-assembly in the top level assembly. Do you then want to set the part
occurrence color individually for each occurrence within those occurrences?
If so, you need to set the color on a ComponentOccurrenceProxy as shown in
the code below. If you want the color to apply to all instances of the
sub-assembly, you need to jump over to the sub-assembly document and apply
the color there.

Sanjay-

Dim oDoc As AssemblyDocument
Set oDoc = invApp.ActiveDocument

Dim oAsmCompDef As AssemblyComponentDefinition
Set oAsmCompDef = invApp.ActiveDocument.ComponentDefinition

' Get references to the two occurrences to constrain.
Dim oOcc1 As ComponentOccurrence
Set oOcc1 = oAsmCompDef.Occurrences.ItemByName("Assembly1:1")

Dim oOccProxy1 As ComponentOccurrenceProxy
Set oOccProxy1 = oOcc1.SubOccurrences.Item(1)

Dim oRenderStyle As RenderStyle
Set oRenderStyle = oDoc.RenderStyles.Item(sColor)

oOccProxy1.SetRenderStyle kOverrideRenderStyle, oRenderStyle

[Anonymous]

I know the occurrence name even when it is a part of a sub-assembly. Ex: Part:2
I do not know the name of the sub-assembly that the part is in.
I want all part colors to be the same no matter what sub-assembly they are in.

[Anonymous]

So if you color a particular part occurrence as red, do you want it to show
as red even when the sub-assembly in which it lives is opened? Or do you
want to show it in red only in the context of the (current) top level
assembly?

Sanjay-

[Anonymous]

In the top level assembly.

[Anonymous]

The following code should do it. Note that this will change the color of
*all* occurrences of the specified part document at *all* levels in the
current assembly. The full file name of the part document is hardcoded -
you'll need to change that.

Sanjay-


Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument

Dim oAsmCompDef As AssemblyComponentDefinition
Set oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition

Dim oPartDoc As PartDocument
Set oPartDoc = ThisApplication.Documents.ItemByName("c:\temp\block.ipt")

Dim oOccs As ComponentOccurrencesEnumerator
Set oOccs = oAsmCompDef.Occurrences.AllReferencedOccurrences(oPartDoc)

Dim oRenderStyle As RenderStyle
Set oRenderStyle = oDoc.RenderStyles.Item(sColor)

Dim oOcc As ComponentOccurrence
For Each oOcc In oOccs
oOcc.SetRenderStyle kOverrideRenderStyle, oRenderStyle
Next

[Anonymous]

This is exactly what I wanted!
Thank you!