VBA - iProperty value

[Jef_E]

Hi there,

I'm trying to read a certain iProperty, so I can check if my part/assembly is a valid file to edit via code.

This is what i get, but when i'm debugging it kills me at:

oPropSet = oDoc.Item("Inventor Document Summary Information")

What do i need to change?

I also tried inserting this code instead of the text, same result.

{D5CDD502-2E9C-101B-9397-08002B2CF9AE}

My code:

 ' Get the active document.
 Dim oDoc As Document
 oDoc = _invApp.ActiveDocument

 ' Get a reference to the "Inventor Document Summary Information" PropertySet
 Dim oPropSet As PropertySet
 oPropSet = oDoc.Item("Inventor Document Summary Information")

 ' Get the Category property.
 Dim oCat As [Property]
 oCat = oPropSet.Item("Category")

 MsgBox(oCat.Value())

Thanks for the help!

Inventor 2013

Visual Studio 2010

[Jef_E · Accepted solution]

I found the error.

This:

oPropSet = oDoc.Item("Inventor Document Summary Information")

Should be this:

oPropSet = oDoc.PropertySets.Item("Inventor Document Summary Information")

Code:

' Get the active document.
Dim oDoc As Document
oDoc = _invApp.ActiveDocument

' Get a reference to the "Inventor Document Summary Information" PropertySet
Dim oPropSet As PropertySet
oPropSet = oDoc.PropertySets.Item("Inventor Document Summary Information")

' Get the Category property.
Dim oCat As [Property]
oCat = oPropSet.Item("Category")

MsgBox(oCat.Value)

[MechMachineMan]

You are forgetting to call the collection in which the property set belongs to; a specific property set is not found directly on the document class, but instead within a PropertySets collection which belongs to the document;

ie;

ThisApplication.ActiveDocument.PropertySets.Item("Inventor Document Summary Information").Item("Category").Value

[Jef_E]

Hi,

Thanks for the reply, I had just found what was wrong 🙂 thanks anyway!