Read all Properties from referenced drawings

[GeorgK]

Hello together,

whats the best and quickest way to iterate through a complete assembly and read all Part Number from all refenced drawings? I would like to compare the number from the part with number of the drawing and update it if it´s not correct.

For Each docFile In openDoc.AllReferencedDocuments
  Dim oIProInEachRefDoc
  oIProInEachRefDoc = docFile.PropertySets("Design Tracking Properties").Item("Part Number")
  Dim oPartNo
  oPartNo = oIProInEachRefDoc.Value  
  MessageBox.Show(oPartNo)  
Next

Thank you Georg

[GeorgK]

Solved it.

[adam.nagy]

Hi Gerg,

I'm glad you managed to find the solution.

Could you please write it down here and then set it as the accepted solution?

Thank you,