FilePropertySets - Iterate through all of the documents referenced by the assembly - ModelStates

[Marcus_Chong]

Hi,

I am trying to link up the value of filepropertysets from assembly to all other referenced documents. And at the same time, avoiding reference document that is ipart or library files. Some of my sub assemblies and parts are done with model states.

Is there a way to do it?

My code looks like this, but it is not working. is there anything that i have missed out.

Sub Main()

Dim oDoc As AssemblyDocument = ThisDoc.Document

Dim oRefDocs As DocumentsEnumerator = oDoc.AllReferencedDocuments

Dim oRefDoc As Document

For Each oRefDoc In oRefDocs

	oRefDoc.FilePropertySets.Item(3).Item("Project").Value = iProperties.Value("Project", "Project")

Next

End Sub

Please advise.

[bradeneuropeArthur · Accepted solution]

Try it this way:

Sub Main()

Dim oDoc As AssemblyDocument = ThisDoc.Document

Dim oRefDocs As DocumentsEnumerator = oDoc.AllReferencedDocuments

Dim oRefDoc As Inventor.Document

For Each oRefDoc In oRefDocs
Try
	oRefDoc.FilePropertySets.Item(3).Item("Project").Value = iProperties.Value("Project", "Project")
	Catch
	End Try
	

Next

End Sub

Regards,

Arthur Knoors

[Marcus_Chong]

That works perfectly!

Thank you Arthur for your great help!