hexagon logo
Register Sign in
  • Replies 11 replies
  • Subscribers 30 subscribers
  • Views 300 views
  • Users 0 members are here
Options
Related

Saving Part programs to newer version automatic VB.NET

FrankyB
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.
Parents
  • 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)
Reply
  • 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)
Children
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement