Update the current date in drawing with iLogic

[Anonymous]

Hello

I am making a drawing, i is there a way to make a auto update od the date in titel block or text?

[Anonymous]

Yes

If (ThisDoc.Document.DocumentType <> kDrawingDocumentObject) Then Return
Dim odrawdoc As DrawingDocument
odrawdoc = ThisDoc.Document
If (odrawdoc Is Nothing) Then Return

customPropertySet=odrawdoc.PropertySets.Item("Inventor User Defined Properties")

iProperties.Value("Project", "Creation Date")=Now

InventorVb.DocumentUpdate()

[Anonymous]

thak ypu for your reply

can you tell me how can i use the rule

when i run it, nothing happens

[rossano_praderi]

Hi Aleksandar,

try this piece of code

If (ThisApplication.ActiveDocument.DocumentType = kDrawingDocumentObject Then
  iProperties.Value("Project", "Creation Date") = Now.ToShortDateString()
  iLogicVb.UpdateWhenDone = True
end if

Let me know if you have any troubles with it.

Bregs

Rossano Praderi

[edwin.davidU9BPU · Accepted solution]

oTime = Now.ToShortDateString
iProperties.Value("Project", "Creation Date") = oTime
iLogicVb.UpdateWhenDone = True