Looping through all sub assemblies to delete invisible parts & patterned parts

[Damian_LeeF852L]

I am trying to find some ilogic code to loop through my sub assemblies to delete all parts and patterns that are set to invisible. I have tried several things but so far I have not managed to achieve the desired result.

Any help would be greatly appreciated.

[C_Haines_ENG]

Heres a simple solution:

Sub Main
	
	Dim oAsm As AssemblyDocument = ThisDoc.Document
	
	For Each oPattern As OccurrencePattern In oAsm.ComponentDefinition.OccurrencePatterns
		
		If oPattern.Visible = False Then oPattern.Delete
		
	Next
	
	For Each oComp As ComponentOccurrence In oAsm.ComponentDefinition.Occurrences.AllLeafOccurrences
		
		If oComp.Visible = False Then oComp.Delete
		
	Next
	
End Sub