Get Inventor TreeView in VB.net Customised

[amitnkukanur]

Am trying to get the treeview filled with Inventor Treeview details which is present on lrft side.

this is the code i did

Imports System.Uri

Imports System.UriComponents

Imports System.UriParser

Public objAppServComponent AsNew Inventor.ApprenticeServerComponent

Dim objAppServDoc As Inventor.ApprenticeServerDocument

objAppServDoc = objAppServComponent.Open(TextBox1.Text) '''' here i get path of assembly

Dim objTreeNode As New TreeNode(objAppServDoc.DisplayName)

TreeView1.Nodes.Add(objTreeNode)

Call GetComponents(objAppServDoc.ComponentDefinition.Occurrence, objTreeNode)

''''''Getting error on this above line

'''''' reference to Reference to non shared member requires object reference

How to Solve or get Inventor Treeview to customised treeview, any suggestions

[leefsma]

Hi amitk_189,

The "ComponentDefinition.Occurrence" property does not exist, so it is no wonder that the code you provided generates an error.

Below is a VB.Net sample that illustrates how to parse an assembly structure using a recursive procedure (this Inventor, but adapting it to Apprentice should be straightforward):

    Public Sub AssemblyTraversal()

        Dim oDoc As AssemblyDocument
        oDoc = _InvApplication.ActiveDocument

        'Call the recursive function to iterate through the assembly tree
        Call AssemblyTraversalRec(oDoc.ComponentDefinition.Occurrences, 0)

    End Sub

    Private Sub AssemblyTraversalRec(ByVal InCollection As ComponentOccurrences, ByVal level As Long)

        'Iterate through the components in the current collection
        Dim oCompOccurrence As ComponentOccurrence
        For Each oCompOccurrence In InCollection

            Dim str As String = String.Empty

            If oCompOccurrence.DefinitionDocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then

                str = Space(3 * level) & " - [Asm]  " & oCompOccurrence.Name

            Else

                str = Space(3 * level) & " - [Part] " & oCompOccurrence.Name

            End If

            Debug.WriteLine(str)

            'Recursively call this function for the sub-occurrences of the current component
            Call AssemblyTraversalRec(oCompOccurrence.SubOccurrences, level + 1)

        Next

    End Sub

I hope it helps.

Philippe Leefsma
Developer Consultant
Developer Technical Services
Global Subscription & Support
 

Autodesk EMEA

www.autodesk.com/joinadn

[amitnkukanur]

Getting error on

oDoc = _InvApplication.ActiveDocument

Object reference not set to an instance of an object.

[amitnkukanur · Accepted solution]

Hi i solved that error using the below code

Dim

Dim _InvApplication As Inventor.Application

Dim InvType AsType = GetTypeFromProgID("Inventor.Application", True)

_InvApplication = CreateInstance(InvType)

　

　

Dim oDoc As Inventor.AssemblyDocument

oDoc = _InvApplication.ActiveDocument

'Till here its working but getting error on next line.

Call AssemblyTraversalRec(oDoc.ComponentDefinition.Occurrences, 0)

[spascual]

Hi Sirs,

Could you paste the code you wrote ????

Thanks,