Select object and obtain information

Here's some code that gets an attribute named "thickness". You can use the same principle to get other attributes from the component.

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

Module Module69

Dim theSession As Session = Session.GetSession()
Dim lw As ListingWindow = theSession.ListingWindow

Sub Main()

lw.Open()

Dim theComponent As Assemblies.Component = Nothing

If SelectComponent("select a component", theComponent) = Selection.Response.Cancel Then
Return
End If

lw.WriteLine("component display name: " & theComponent.DisplayName)
lw.WriteLine("component part path: " & theComponent.Prototype.OwningPart.FullPath)

Const testAttribute As String = "thickness"

Dim thicknessAtt As NXObject.AttributeInformation = Nothing
If theComponent.HasUserAttribute(testAttribute, NXObject.AttributeType.Any, -1) Then
thicknessAtt = theComponent.GetUserAttribute(testAttribute, NXObject.AttributeType.Any, -1)
lw.WriteLine("""" & testAttribute & """" & " attribute found")
lw.WriteLine(" attribute value: " & thicknessAtt.StringValue)
Else
lw.WriteLine("component does NOT have an attribute named: " & testAttribute)
End If

lw.Close()
End Sub

Function SelectComponent(ByVal prompt As String, ByRef selObj As TaggedObject) As Selection.Response

Dim theUI As UI = UI.GetUI
Dim title As String = "Select a component"
Dim includeFeatures As Boolean = False
Dim keepHighlighted As Boolean = False
Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific
Dim cursor As Point3d
Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
Dim selectionMask_array(0) As Selection.MaskTriple

With selectionMask_array(0)
.Type = UFConstants.UF_component_type
.Subtype = UFConstants.UF_component_subtype
End With

Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt,
title, scope, selAction,
includeFeatures, keepHighlighted, selectionMask_array,
selObj, cursor)
If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then
Return Selection.Response.Ok
Else
Return Selection.Response.Cancel
End If

End Function

End Module