07-22-2021
12:25 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
07-22-2021
12:25 AM
Hi @floccipier
If you dont want to use a for each loop and just loop through the occurrences, checking each one of them if it's visible or not and add +1 to an integer if so, you can do it like this
(oDoc = the document your'e checking all referenced occurrences of)
Dim oAsm As AssemblyDocument = ThisDoc.Document MsgBox(oAsm.ComponentDefinition.Occurrences.AllReferencedOccurrences(oDoc).OfType(Of ComponentOccurrence).Where(Function(x) x.Visible = True).Count)
Otherwise something like this is probably the most simple way to do it:
Dim oAsm As AssemblyDocument = ThisDoc.Document Dim count As Integer = 0 For Each oOcc As ComponentOccurrence In oAsm.ComponentDefinition.Occurrences.AllReferencedOccurrences(oDoc) If oOcc.Visible Then count += 1 Next MsgBox(count)
Jhoel Forshav
Download my free Inventor Addin - Hole Projector
LinkedIn | Ideas | Contributions | Blog posts | Website