03-15-2023
01:34 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
03-15-2023
01:34 PM
try this
Sub Main()
Dim doc = ThisDoc.Document
res(ThisDoc.Document)
doc.Update2()
End Sub
Sub res(doc As Document)
If (doc.DocumentType <> DocumentTypeEnum.kAssemblyDocumentObject) Then Return
Dim aDoc As AssemblyDocument = doc
If (aDoc.ComponentDefinition.IsiAssemblyMember) Then
aDoc = aDoc.ComponentDefinition.FactoryDocument
End If
Dim occs As ComponentOccurrences = aDoc.ComponentDefinition.Occurrences
For Each occ As ComponentOccurrence In occs
occ.Unsuppress()
res(occ.Definition.Document)
Next
End Sub
Jelte de Jong
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Blog: hjalte.nl - github.com