VBA or iLogic to isolate parts/subassemblies set as 'Reference' in BOM structure

[TYoung_Combi]

Inventor Professional 2017

As the title suggests, I would like either a VBA or iLogic routine that will identify and isolate all parts/subassemblies in the upper level assembly which have had their BOM structure set to 'Reference'.

Any help would be greatly appreciated; thank you in advance.

[mcgyvr · Accepted solution]

oCompDef = ThisDoc.Document.ComponentDefinition
oAssemblyComponents = oCompDef.Occurrences

Dim oOccurrence As ComponentOccurrence

    For Each oOccurrence In oAssemblyComponents
        If (oOccurrence.BOMStructure = BOMStructureEnum.kReferenceBOMStructure) Then
            oOccurrence.Visible = True
        Else
            oOccurrence.Visible = False
        End If
    Next

[TYoung_Combi]

Greatly appreciated, @mcgyvr . Thank you very much!