10-09-2017
04:23 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
10-09-2017
04:23 AM
hi @MattH_Work this should work
Dim oDoc As DrawingDocument
oDoc = ThisDoc.Document
Dim oSheet As Sheet
oSheet = oDoc.ActiveSheet
Dim symbol As SketchedSymbol
For Each symbol In oSheet.SketchedSymbols
If symbol.Name = "test" Then
MsgBox( symbol.Parent.DrawingViews(1).Name)
End If
Next
If you think this answer fullfilled your needs, improved your knowledge or leads to a solution,
please feel free to "kudos"
please feel free to "kudos"