Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

Hi @Maxim-CADman77 

Are you looking for something like this? :slightly_smiling_face:

 

Sub Main
	Dim oIPT As PartDocument = ThisDoc.Document
	Dim MsgBody As String
	For Each oNode In oIPT.BrowserPanes("PmDefault").TopNode.BrowserNodes
		If oNode.Visible Then
			MsgBody &= oNode.BrowserNodeDefinition.Label & vbCrLf
			If Not oNode.NativeObject Is Nothing Then
				MsgBody &= "       Type : " & GetObjectEnum(oNode.NativeObject.Type.ToString) & vbCrLf
			End If
		End If
	Next
	MsgBox(MsgBody, , "Node types are:")
	Exit Sub
End Sub

Function GetObjectEnum(oValue)

	Dim oEnumType As EnumType
	oEnumType = ThisApplication.TestManager.GetEnumType("ObjectTypeEnum")
	oEnumType.Value = 0
	Dim oName As String
	Dim index As Integer
	index = 0
	Do While index < oEnumType.Count

		If oEnumType.Value = oValue
			oName = oEnumType.ValueName
			Exit Do
		End If
		oEnumType.MoveNext


		index = index + 1
	Loop
	Return oName
End Function

ObjectType.PNG