Saving Part programs to newer version automatic VB.NET

Hello there,

We have recently updated to the version of 2021R2 of PCDMIS.
But PCMIS 2021R2 supports only versions newer then V2014.
we still have a version of 2020 that support all versions.

But to open every program and save it to the latest version of 2020R2.
Would take up a lot of time, because we have a lot of Part Programs (over 6000)

I now it is possible to open a part program with VB.NET.
but my question is, is it possible to save it to the active version of pcdmis (2020R2)

App = CreateObject("PCDLRN.Application")
Parts = App.PartPrograms("PartProgram.PRG")
Part = Parts.Open

I think it will be something like ...

Part.SaveAs("programNewVersion.PRG") ????? version ?????

Personally, I find it very unfortunate that Hexagon does not come up with the initiative for this solution

Thanks in advance for your answer.

vpt.se over 2 years ago

Maybe they do, they just don't announce it. Checked with your local tech support?

Additionally, we'd need something to add to the SaveAs function to tell which version to save as.
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
Henniger123 over 2 years ago
good Day,

In this example you can see the correct SaveAs command and how to use it. However, in this example the measurement program must be open.
more code is required to open and save several measurement programs.

Dim retVal Dim vVersion Dim vpcDMIS_App, vpcDMIS_Part As Object Set vpcDMIS_App = CreateObject("PCDLRN.Application") Set vpcDMIS_Part = vpcDMIS_App.ActivePartProgram vVersion = "2020R2" retVal = vpcDMIS_Part.SaveAs3("C:\test.PRG", vVersion, False)
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
FrankyB over 2 years ago in reply to Henniger123

Hey Henninger123,

Thanks for the quick answer.
I can work with this and I will give it a try.

Pity this is not mentioned in the pcdmis book for basic.

Gr. Franky
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
FrankyB over 2 years ago

Maybe they do, they just don't announce it. Checked with your local tech support?

Additionally, we'd need something to add to the SaveAs function to tell which version to save as.

i asked them.
the answer was, save each program by hand.

Try to work with this anser
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
vpt.se over 2 years ago

If you look at the GeoTol conversion helper app that is available in the this forum, there is code that opens and saves all PRG's available in a selected folder. You can either use that or it may give you hints on what you want.

Henniger123 - thanks for the SaveAs3 function!
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel

Henniger123 over 2 years ago

here is a bit of extra code, this script opens a part program at the stored path and saves it in the same place with the new version.
you just have to put it in a loop and change the path, so that a whole bulk of measurement programs should be able to be changed

' dim something
  Dim retVal
  Dim vVersion
  vVersion = "2021.2"

  Dim vPath As String

  Dim vpcDMIS_App, vpcDMIS_Part As Object
  Set vpcDMIS_App = CreateObject("PCDLRN.Application")
  Set vpcDMIS_Part = Nothing


' scan folder
   ' here start loop if needed
  vPath = "D:\test123.PRG"


' open Partprogramm
  Set vpcDMIS_Part = vpcDMIS_App.PartPrograms.Open(vPath, "Offline")
  If vVersion <> vpcDMIS_Part.ProgramVersionName Then
    retVal = vpcDMIS_Part.SaveAs3(vPath, vVersion, False)
  End If


' close Partprogramm
  vpcDMIS_Part.Quit
  Set vpcDMIS_Part = Nothing
   ' here end loop if needed


' un-dim something
  Set vpcDMIS_App = Nothing

FrankyB over 2 years ago

Ok thank s Henniger12 3
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
Henniger123 over 2 years ago
here maybe thats something for you:

Hello Neil,

As I proposed on th JIRA PCD-226852, is it possible to have a automation tools that open and save routine in the last PCDMIS version ?

#5.1

neil.challinor commented
03-23-2022, 12:16 PM

We already have them. If you contact tech support they will be able to supply them to you. Or you can download from here: https://support.hexagonmi.com/s/arti...ty-for-PC-DMIS
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
vpt.se over 2 years ago

Admin Admin2 Don Ruggieri neil.challinor

The post above (with the conversion program download links) should be stickied.

( https://support.hexagonmi.com/s/article/Conversion-Utility-for-PC-DMIS)
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel
FrankyB over 2 years ago

Hey Henninger123 and Vpt.se,

Ahhh i just ended my program yesterday.

but if this already exist, even better then for everyone.

Thanks
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel