07-22-2021
12:55 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
07-22-2021
12:55 AM
Try this!
Dim oAsmCompDef As AssemblyComponentDefinition oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition 'Iterate through all of the occurrences Dim oOccurrence As ComponentOccurrence Dim oList As New List(Of Integer) For Each oOccurrence In oAsmCompDef.Occurrences If oOccurrence.Visible = True Then oList.Add(oAsmCompDef.Occurrences.Count) End If x1 = oList.Count Next MessageBox.Show(x1, "Number of VisibleComponents")
Bhavik Suthar