Delete suppressed components

By Adam Nagy

You may want to make the current LOD the master LOD in the assembly in which case you can delete the suppressed components in the assembly. Once I run the below VBA code the Master LOD of MainAsm document will not contain the components suppressed in LevelOfDetail1 LOD so basically the content of Master LOD and LevelOfDetail1 LOD will be the same. 

Sub DeleteSuppressedComponent(occs As ComponentOccurrences)
  Dim occ As ComponentOccurrence
  For Each occ In occs
    If occ.Suppressed Then
      occ.Delete
    Else
      Call DeleteSuppressedComponent(occ.SubOccurrences)
    End If
  Next
End Sub

Sub DeleteSuppressedComponents()
    Dim doc As AssemblyDocument
    Set doc = ThisApplication.ActiveDocument
    
    Dim acd As AssemblyComponentDefinition
    Set acd = doc.ComponentDefinition
    
    Call DeleteSuppressedComponent(acd.Occurrences)
End Sub

This is the result we'd get in case of the below assembly structure: