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

 

Hi steen,

 

I think this should be what you're looking for.

 

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

 

 

DTP_PropertySet = ThisDoc.Document.PropertySets.Item("Design Tracking Properties")
oWeldMatl = DTP_PropertySet.Item("Weld Material").Value
MessageBox.Show(oWeldMatl, "iLogic")

 

Or this using @MechMachineMan 's example:

 

Dim oDoc As Document
oDoc = ThisApplication.ActiveDocument
oMatl = oDoc.PropertySets.Item("Design Tracking Properties").Item("Weld Material").Value
MessageBox.Show(oMatl, "iLogic")