Access to iProperties in Assembly Files by VBA

[Anonymous]

Hi,

I would like read by VBA the "Part number" property in Assembly Files ("*.iam" files) in my project, but I can't find object, which give me

access to this property.

So far I know how to read the "Part number" in root of my project ("*.idw" file) :

Dim invDoc As Document
Set invDoc = ThisApplication.ActiveDocument
Dim invDesignInfo As PropertySet
Set invDesignInfo = invDoc.PropertySets.Item("Design Tracking Properties")
Dim invPartNumberProperty As Property
Set invPartNumberProperty = invDesignInfo.Item("Part Number")
MsgBox "The part number is: " & invPartNumberProperty.Value

Best regards,

Marek

[MechMachineMan]

What the code you've written actually does is get the Part Number for the ACTIVE DOCUMENT, whether it be an iam, an ipt, or an idw.

Regardless of what DOCUMENT you use, the code to get the properties is the same. What you are missing is telling it WHAT document that is.

How is the program supposed to know WHAT iam files to be pulling the iProperties from? Do you mean the iam referenced in the drawing (what if the drawing references an ipt)? Do you want it to iterate through all PROJECT locations and pull Part number information? Do you just want it to loop through one specific folder? Do you want it to go through all iams within an assembly?

[Anonymous · Accepted solution]

I already know how to read "*.iam" file properties. There is my code, maybe it can be improved:

 Dim openDoc As Document
 Set openDoc = ThisApplication.ActiveDocument    

 Dim docFile As Document    
 Set docFile = openDoc.ReferencedDocuments(1) 'first found referenced file, it's "iam" file

 MsgBox docFile.FullFileName ' show first found "iam" file path and name 
    
 Set invDesignInfo = docFile.PropertySets.Item("Design Tracking Properties") 'get the part number property
 Dim invProperty As Property
 Set invProperty = invDesignInfo.Item("Part Number")
 MsgBox "Part number: " & invProperty.Value 'show "Part Number" property of "iam" file

Best regards,

Marek

[MechMachineMan]

Not really, looks pretty standard.

Was there anything else you needed, or did you answer your own question?

[Anonymous]

If no one else offers a better solution, my code is enough for me.