Getting iproperties values of all sub part or asm of the active IAM document?

[mucip]

Hi,

Normally I can get, add and change all the iproperties values below code:

Dim invDocs As Documents
        invDocs = inv_App.Documents
        Dim i As Integer
        Dim invDocument As Document

        Dim invPartNumberProperty As Property
        For i = 1 To invDocs.Count
            invDocument = invDocs.Item(i)

            Set invPartNumberProperty = invDocument.PropertySets.Item("Design Tracking Properties").Item("Part Number")
        Next

But above code give the all part/asm part list of the all open files in inventor 2013...

I want to get used part/assembly list of only active document. But inv_App.ActiveDocument has not got "For i = 1 To invDocs.Count" propety?!...

How can I iterate and get iproperties values of only active document of the inventor session?...

Regards,

Mucip:)

[mucip · Accepted solution]

Hi,

I found solution... 🙂

Dim invDocs As Document
        invDocs = inv_App.ActiveDocument       
        'Get all of the referenced documents.
        Dim oRefDocs As DocumentsEnumerator
        oRefDocs = invDocs.AllReferencedDocuments

        Dim invPartNumberProperty As Property

    
        Dim invDocument As Document
    
        For Each invDocument In oRefDocs    
            ' Get a specific item from the Documents collection.

       Set invPartNumberProperty = doc.PropertySets.Item("Design Tracking Properties").Item("Part Number")     

            MsgBox(invPartNumberProperty.value)
        
        Next

Regards,

Mucip:)