Get iProperty of Each Model In a Drawing, for all Open Documents

[C_Haines_ENG]

Hello all!

Well I was going to ask this question but coincedentally I solved it myself as I was making the post. Ill leave it here for future people. See anwser below. 

[C_Haines_ENG · Accepted solution]

This code will get the description of the attached model file of all open drawings.

Dim oDoc As Document

For Each oDoc In ThisApplication.Documents.VisibleDocuments
	
AttachedModel = oDoc.Sheets.Item(1).DrawingViews.Item(1).ReferencedDocumentDescriptor.ReferencedDocument
Description = AttachedModel.PropertySets.Item("Design Tracking Properties").Item("Description").Value


Next