Ilogic Suppress components if BOM structure is set to reference

[Anonymous]

Hello.

Im working on this code to suppress components with BOM structure is set to reference.

It does'nt work.

Need help please.

Thank you.

Dim oAsmCompDef As AssemblyComponentDefinition
oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition

Dim CompOcc As ComponentOccurrence 
For Each CompOcc In oAsmCompDef.Occurrences 
	If CompOcc.Definition.BOMStructure.kReferenceBOMStructure = True Then
		CompOcc.IsActive = False
	
	End If

Next 

[JelteDeJong · Accepted solution]

try this:

Dim oAsmCompDef As AssemblyComponentDefinition = ThisApplication.ActiveDocument.ComponentDefinition

For Each CompOcc As ComponentOccurrence In oAsmCompDef.Occurrences
	' go to next occurence if its already suppressed
	If CompOcc.Suppressed = True Then
		Continue For
	End If

	'suppress when the bom structure is set in the part/assembly
	If CompOcc.Definition.BOMStructure = BOMStructureEnum.kReferenceBOMStructure Then
		CompOcc.Suppress()
	End If

	'suppress when the bom structure is set in the assembly occurrence
	If (CompOcc.BOMStructure = BOMStructureEnum.kReferenceBOMStructure) Then
		CompOcc.Suppress()
	End If
Next

[marcin_otręba · Accepted solution]

try:

Dim oAsmCompDef As AssemblyComponentDefinition
oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition

Dim CompOcc As ComponentOccurrence 
For Each CompOcc In oAsmCompDef.Occurrences 
	If CompOcc.BOMStructure = kReferenceBOMStructure Then
		CompOcc.Suppress
	End If

Next