11-04-2015
06:48 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-04-2015
06:48 AM
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")