11-06-2023
06:25 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-06-2023
06:25 AM
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