Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
marcin_otręba
in reply to: NachitoMax

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