06-08-2020
11:56 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
06-08-2020
11:56 PM
heck this:
Dim oPane As BrowserPane oPane = ThisDoc.Document.BrowserPanes.Item("Model") On Error Resume Next ' Get the last visible child node under the sub-assembly occurrence Dim oTargetNode As BrowserFolder Dim i As Long For i = oPane.TopNode.BrowserFolders.Count To 1 Step -1 oTargetNode = oPane.TopNode.BrowserFolders.Item(i) If oTargetNode.Name = "NOZZLE" Then Dim onode As BrowserNode For Each onode In oTargetNode.BrowserNode.BrowserNodes Dim occ As ComponentOccurrence = onode.NativeObject MessageBox.Show(occ.name, "Title") Next End If Next