Automatic versions for drawings (like fusion)

Automatic versions for drawings (like fusion)

CADZLTM4
Enthusiast Enthusiast
321 Views
2 Replies
Message 1 of 3

Automatic versions for drawings (like fusion)

CADZLTM4
Enthusiast
Enthusiast

I wondered if there was a way to have a version number that goes up 1 time per save like Fusion. Even if it doesn't change the file name, just something that automatically updates the variable in the title block on all pages so older printed drawings can be identified. 

 

The closest thing I have is where the date changed when I open and save the document. It seems like something simple in ilogic but didn't know how to go about it.

 

Ex:

if (file_save)

     then (Version = (Version + 1))

 

Then just have a spot for the variable "Version".  Would it be that simple?  

 

Context: I do have/use Vault but I am the only CAD designer at a small fab shop so it is just for backup and file management reasons. I don't think revisions are the way to go. It is mainly to avoid mixups. Thank you

 

0 Likes
Accepted solutions (1)
322 Views
2 Replies
Replies (2)
Message 2 of 3

CADZLTM4
Enthusiast
Enthusiast

So I did some digging and copy-pasting and this seems to give the desired result of changing the value. Is there a way to make this happen when I save or have this tacked onto a rule that exports the current drawing as a pdf but changes this "Rev" number before the export and tacks it to the end of the pdf file name?

 

 

Ver = (iProperties.Value("Project", "Revision Number")) + 1
iProperties.Value("Project", "Revision Number") = Ver
iLogicVb.UpdateWhenDone = True
0 Likes
Message 3 of 3

CADZLTM4
Enthusiast
Enthusiast
Accepted solution

Turns out I just needed to buy a rubber ducky. Here is what I got working. Any suggestions or changes are welcome but it works 

 

'CHANGE DATE
oTime = Now.ToShortDateString
iProperties.Value("Project", "Creation Date") = oTime

'ADVANCE VERSION NUMBER
Ver = (iProperties.Value("Project", "Revision Number")) + 1
iProperties.Value("Project", "Revision Number") = Ver

'UPDATES DRAWING
Parameter.UpdateAfterChange = True

'EXPORTS FILE
file_path = ThisDoc.Path
file_name = ThisDoc.FileName(False) 'without extension
file_name_path = file_path & "\" & file_name & " V" &iProperties.Value("Project", "Revision Number")

ThisDoc.Document.SaveAs(file_name_path & ".pdf", True)