03-14-2020
12:47 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
03-14-2020
12:47 PM
Are you looking for something like this? ![]()
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
Jhoel Forshav
Download my free Inventor Addin - Hole Projector
LinkedIn | Ideas | Contributions | Blog posts | Website