04-12-2023
08:31 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
04-12-2023
08:31 AM
Hi Richter
It works as intended! Beautiful!
Now I would like that the new file is checked into Vault.
Do you know any code to make this happen?
This way we can use the files without having to open them and checking them in manually.
BR
Justin
here is the coded which I changed very little to make it work.
Dim currentfilename As String Dim choice As String Dim length As String currentfilename = ThisDoc.FileName(False) choice = Parameter("FixedUnit_Curve") length = Parameter("FixedUnit_Length") 'custom filepath 'SetTheFilePathHere = "C:\ ... your filepath ..." 'filepath same as the current ipt SetTheFilePathHere = ThisDoc.Path SetTheFilenameHere = currentfilename & " - " & choice & " - L" & length & "mm" ThisApplication.CommandManager.PostPrivateEvent(kFileNameEvent, SetTheFilePathHere &"\" & SetTheFilenameHere & ".ipt") Dim oCtrlDef oCtrlDef = ThisApplication.CommandManager.ControlDefinitions.Item("AppFileSaveCopyAsCmd") oCtrlDef.ExecuteH