Get list of all parts from assembly using apprentice server

[danijel.radenkovic]

Hello,

I am working on my first addin and I need to get list of parts (their filenames) from an assembly which I chose using file open dialog.

Thanks in advance friends

Danijel.

[Anonymous]

Hi Daniel,

Here is the code you need

Sub test()
   Dim nModel As AssemblyDocument
   Set nModel = ThisApplication.ActiveDocument

   Dim nDocEnum As DocumentDescriptorsEnumerator
   Set nDocEnum = nModel.ReferencedDocumentDescriptors

   For Each Item In nDocEnum
     Debug.Print Item.FullDocumentName
   Next Item

End Sub

You need to open Immediate window (Ctrl+G) to see result.

Regards

Nedeljko.

[danijel.radenkovic]

Hello Nedeljko,

This should works when I put code into ilogic rule or inventor vba, but I need to manage with Inventor properties without opening Inventor, using apprentice server.

 I think I am close to the solution with this:

 For Each n As Inventor.ComponentOccurrence In apprenticeDoc.ComponentDefinition.Occurrences
      lablel.Text = apprenticeDoc.ComponentDefinition.Occurrences(Name).ToString
 Next

[danijel.radenkovic]

Finaly, I resolved with this code.

  For Each occ As Inventor.ComponentOccurrence In apprenticeDoc.ComponentDefinition.Occurrences
                If occ.DefinitionDocumentType = Inventor.DocumentTypeEnum.kPartDocumentObject Then
                End If
                ListBox1.Items.Add(occ.Name)
 Next

Thanks for your help Nedeljko

Best regards

Danijel