Selection by attribute

Try the following code. It will look through all the components in the current display part and select any with an attribute named "TEST". The attribute name is hard coded in the journal; edit the journal to look for your desired attribute before running it.

Option Strict Off
Imports System
Imports System.Collections.Generic
Imports NXOpen
Imports NXOpen.UF

Module Module3

ReadOnly theSession As Session = Session.GetSession()
ReadOnly theUfSession As UFSession = UFSession.GetUFSession()
ReadOnly theUI As UI = UI.GetUI()

Dim lw As ListingWindow = theSession.ListingWindow

'*********************************************
'* change "TEST" to the desired attribute name
Const findAttributeTitle As String = "TEST"
'*********************************************

Sub Main()

If IsNothing(theSession.Parts.BaseWork) Then
'active part required
Return
End If

lw.Open()

If IsNothing(theSession.Parts.Display.ComponentAssembly.RootComponent) Then
'no components to process
Return
End If

Dim foundComponents As New List(Of Assemblies.Component)
theUI.SelectionManager.ClearGlobalSelectionList()

Try
Dim c As Assemblies.ComponentAssembly = theSession.Parts.Display.ComponentAssembly
processComponentChildren(c.RootComponent, foundComponents)
Catch e As Exception
theSession.ListingWindow.WriteLine("Failed: " & e.ToString)
End Try
lw.Close()

theUI.SelectionManager.RequestSelections(foundComponents.ToArray)

lw.WriteLine("number of selected components: " & theUI.SelectionManager.GetNumSelectedObjects.ToString)

End Sub

Sub processComponentChildren(ByVal comp As Assemblies.Component, ByRef componentList As List(Of Assemblies.Component))

For Each child As Assemblies.Component In comp.GetChildren()
If child.HasUserAttribute(findAttributeTitle, NXObject.AttributeType.Any, -1) Then
componentList.Add(child)
End If
processComponentChildren(child, componentList)
Next
End Sub

Public Function GetUnloadOption(ByVal dummy As String) As Integer

'Unloads the image immediately after execution within NX
GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately

End Function

End Module