Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
Curtis_Waguespack
in reply to: Daan_M

Hi @Daan_M 

 

As @WCrihfield indicated we can use the API calls to get the property set, and the property, since you are working with the application's referenced documents, and not the referenced documents of an assembly.

 

Here is an update to my previous example.

 

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com

 

Dim rDocs As Documents = ThisApplication.Documents
For Each rDoc As Document In rDocs
	oDoc = ThisApplication.Documents.Open(rDoc.FullFileName, True)
	oDoc.Activate
	
	'get the property set
	Dim oDTPropSet As PropertySet
	oDTPropSet = oDoc.PropertySets.Item("Design Tracking Properties")	
	
	'get the property by name
	Dim oProperty As Inventor.Property
	oProperty = oDTPropSet.Item("Description")

	'set the value
	 oProperty.Value = "Hello World"

	MsgBox(oDoc.DisplayName & vbLf & oProperty.DisplayName & " = " & oProperty.Value)	

	oDoc.Save()
	'oDoc.Close
Next