03-13-2023
08:00 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
03-13-2023
08:00 AM
Hi,
i have a code to unsuppress the components in the assembly. Unfortunately, no subassemblies are considered. How i can unsuppress subassemblies and their components?
Dim oComp As ComponentOccurrence
Dim oComps As ComponentOccurrences
oComps = ThisDoc.Document.ComponentDefinition.Occurrences
For Each oComp In oComps
If Component.IsActive(oComp.Name) = False Then oComp.Unsuppress
Next
Solved! Go to Solution.