AllReferencedDocuments

[cadman777]

Hello,

I've struggled for over 2 hours trying to figure out how to access the iProperties in a part file from an assembly file.

So now I'm here inquiring from 'the experts'.

Would someone please educate me on how to access the iProperties using 'AllReferencedDocuments'?
Here's the code:

' Open and activate assembly file
Dim openDoc As Document = ThisDoc.Document
' Get the assembly filename
Dim oAssyFileName As String = ThisDoc.FileName(False)
'MessageBox.Show(oAssyFileName, "oAssyFileName")

' Access all part files in assembly
Dim docFile As Document
If openDoc.DocumentType = kAssemblyDocumentObject Then    
	For Each docFile In openDoc.AllReferencedDocuments

		' Access the part's properties and change the value of 'Authority' iProperty

	Next
	Else
		MessageBox.Show("You must have a valid Assembly document open before running this rule!", _
						"Wrong File Type!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If

Thanx! 

[cadman777]

Never mine, I figured it out.

Here's the working code:

' Open and activate assembly file
Dim openDoc As Document = ThisDoc.Document

' Get the assembly filename
Dim oAssyFileName As String = ThisDoc.FileName(False)
'MessageBox.Show(oAssyFileName, "oAssyFileName")

' Access all part files in assembly
Dim docFile As Document
If openDoc.DocumentType = kAssemblyDocumentObject Then    
	For Each docFile In openDoc.AllReferencedDocuments
		' Access the part's properties and change the value of 'Authority' iProperty
         docFile.PropertySets("Design Tracking Properties").Item("Authority").Value = oAssyFileName
	Next
	Else
		MessageBox.Show("You must have a valid Assembly document open before running this rule!", _
						"Wrong File Type!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If