VBA code to get and set the category design tracking iProperty metadata.

[tom.prichard]

My code in an abbreviated form looks like this,,,

Set oDoc = ThisApplication.ActiveDocument
Set oPropertySets = oDoc.PropertySets
Set oDesignProperty = oPropertySets.Item("Design Tracking Properties")
'Set oProp = oDesignProperty.Item("Category") 'No-such iProperty
Set oProp = oDesignProperty.Item("Categories") '(Saves but does not display in iProps dialogue)

Will someone please let me know why the 'category' and/or 'categories' prop. does not populate the iProperties when set by VBA? Thank you for any assistance you can provide.

[sundars · Accepted solution]

Hi @tom.prichard 

The  "Document Summary" property has a category item in it. Is that what you want?

Set oDoc = ThisApplication.ActiveDocument
Set oPropertySets = oDoc.PropertySets
Set oDesignProperty = oPropertySets.Item("Document Summary Information")
Set oProp = oDesignProperty.Item("Category") 

Thanks

-shiva

[tom.prichard]

I was using this,,,

'Set oDocumentProperty = oPropertySets.Item("Inventor Document Summary Information")

,,,not,,,
Set oDocumentProperty = oPropertySets.Item("Document Summary Information")

,,,because of test output from this,,,,

For Each oUserProperty oPropertySets
   'MsgBox (oDocumentProperty.Name)
   Debug.Print (oUserProperty.Name)
Next oUserProperty

YOU ARE RIGHT,,,, solved,

[johnsonshiue]

Hi Tom,

"Categories" seems to be a hidden property. Here is what I got from Inventor API help.

kCategoriesDesignTrackingProperties

56

Categories: String (VT_BSTR), Read Only, No UI, XML string providing the complete categorization of this model, along with the mappings of the Category Parameters to parameters within this Document.

Many thanks!