VBA: Change "Creation Date" iProperty

[Anonymous]

Hi everyone,

I am trying to write a program that creates new drawings using predimensioned templates.

One of the issues with this is that the Creation Date iProperty does not change from the original template when a new drawing is created.

I was wondering how I can go about using VBA to call the Creation Date iProperty and change it to the current date.

Thanks!

[MechMachineMan · Accepted solution]

Dim oDoc As Document = ???

'oDoc.PropertySets.Item("Design Tracking Properties").Item("Creation Time").Value = "01.Jun.12"

or

'oDoc.PropertySets.Item("Design Tracking Properties").Item("Creation Time").Value = DateTime.Now.ToString("d")

[Anonymous]

Awesome, this works great!!

Just wondering, where can I possibly find the object model for the Inventor iProperties? i.e. How did you know that Creation Time fell under Design Tracking Properties?

If you can tell me this real quick Ill mark your above answer as right.

[MechMachineMan]

iProperties: http://modthemachine.typepad.com/my_weblog/2010/02/accessing-iproperties.html

Everything else I usually just have a bit of a search through the Programming Help within inventor using keywords. If I can find that, I will peruse the levels higher up from it; Ie; Balloons will be searched for first, if nothing, then I will go see if anything is visible in Sheet.

There is also the Event Watcher that is available for helping to discover objects, although I haven't really used it.

[BrandonBG]

http://modthemachine.typepad.com/files/iProperyNameTable.pdf

The names can differ from what you see in the iProperties tabs, but I use this chart all the time.

Brandon

[Anonymous]

Good afternoon,

I am attempting to input this code into my 2018 inventor. I have a title block with <CREATIONDATE> but need the current date...where do I input the code? I am a rookie VBA programmer.

[dba78]

one year later 🙂

Do you want to show the creation date of the drawing? Link the textfield of your TitleBlock to the drawing's iProp. No coding needed in this manner. The value will be set, as you save the drawing for the first time.

Or in case of Creationdate of the modell (those Props will be read from the FIRST VIEW MODEL in your sheet):

Is this what you're looking for?

If not, please extend your request 🙂

[raja]

Dim oDoc As Document = ThisDoc.Document
oDoc.PropertySets.Item("Design Tracking Properties").Item("Creation Time").Value = DateTime.Now.ToString("d")