<?xml encoding=”UTF-8″>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 SubThis is the result we’d get in case of the below assembly structure:
Leave a Reply