Get iProperty "Cost" Value

[isocam]

Can anybody help?

I have a part that has a iProperties "Estimated Cost" value of £37.89

Does anybody know how I can get this value, using a VBA macro.

For test only, display his value in a message box.

Many thanks in advance!!!!

Darren

[dano0310]

Hi Darren

Try this one.

Sub Costing()
    MsgBox ("The cost of this item is " & ThisApplication.ActiveDocument.PropertySets(3).ItemByPropId(36).Value)
End Sub

 To get the property id's go to ipropertiesandparameters.

Page 13 has a list of the id in each property set.

Property set 1 is the Inventor Summary information

Property set 2 is the Inventor Document Summary information

Property set 3 is the Design tracking properties

Cheers

Dan

[MechMachineMan]

Dan, I'm just curious, but is there a reason why you use the integer indexes vs the strings?

From what I've read, it seems that using the strings would make more sense as it is easier to read/debug when coming back to it, vs integers being a bit less intuitive, and needing a document to translate.

ie; if you use

ThisApplication.ActiveDocument.PropertySets.Item("Design Tracking Properties").Item("Cost").Value 

simply looking at the line, it's quite evident as to what it is.

Again, just wondering for the reason behind doing otherwise.

Thanks!

[dano0310]

Hi Mmm
When i first started to teach myself object oriented coding I didnt realise you could. Now i stick with the integer call ups because i know i cant misspell it.

Also some of the examples use the integer callups.
Cheers
Dan

[dano0310]

Oh and also less typing.

[MechMachineMan]

Fair enough; it seems my only argument against using integers is that if someone else ever has to look at it/come back to it, they MUST go back to that reference sheet to find what you are trying to pull, rather than seeing it in plain text.

And less typing might seem like time savings now; but if it is not less typing in the name of simplifying the function of the code/presenting it more clearly, I fear it just results in more typing when it comes time to debug.

[dano0310]

Good point. I currently have a graduate engineer who is teaching himself inventor vba and it would make his life a lot easier. He doesnt have write access to the company macros but he does make local changes and send them to me as proposed updates.
I might have to do a ctrl H and replace the integers with text.
Thanks for the suggestion