08-05-2022
04:46 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
08-05-2022
04:46 AM
This code is written in C#. You need to convert them to iLogic/VB.net like this one. This code hides specific occurrence in the drawing view and show others.
If you want, you can keep hidden occurrences hidden (check baseView.GetVisibility(occ)), pass multiple occurrences as parameter, etc.
Sub Main()
Dim drw As DrawingDocument = ThisDoc.Document
Dim baseView As DrawingView = drw.ActiveSheet.DrawingViews(1)
Dim asm As AssemblyDocument = baseView.ReferencedDocumentDescriptor.ReferencedDocument
Dim occ As ComponentOccurrence = asm.ComponentDefinition.Occurrences(1)
HideOccurrence(asm, occ, baseView)
End Sub
Private Sub HideOccurrence(asm As AssemblyDocument, occ As ComponentOccurrence, baseView As DrawingView)
Dim position As Point2d = baseView.Position
For Each occurrence As ComponentOccurrence In asm.ComponentDefinition.Occurrences
baseView.SetVisibility(occurrence, occurrence IsNot occ)
Next
baseView.Position = position
End Sub