hexagon logo

2012 MR1 Error

I have a script which works fine on previous versions of PC Dmis, but is failing on 2012 MR1 with an OLE Automation error.
The line that fails is:
Set PCDMIS = CreateObject("PCDLRN.Application")

However given that I am executing the VB Script WITHIN the DMIS program I wonder if this is nescessary.
How else do I reference the ActivePartProgram without the above code?

The failure manifests itself with PCDMIS opening a window which says "the action cannot be completed because the other program is busy". "Switch to", etc..

Is this because I am in effect trying to create an object that is already open?
What does this not fail on earlier versions of PCDMIS?
Parents
  • Hello,

    My following code was working fine till PC-DMIS 2012.

    Dim App As Object
    Dim Parts As Object
    Dim Part As Object

    Set App = CreateObject("PCDLRN.Application")

    Set Parts = App.PartPrograms

    Set Part = Parts.Open(sFilePath, "CMM1")

    Part.Execute

    Part.Close

    App.Quit
    Set App = Nothing

    what changes I need to do to run it in PC-DMIS 2012?

    Your help is highly appreciated.

    Thanks & Best Regards,
    Pravin
Reply
  • Hello,

    My following code was working fine till PC-DMIS 2012.

    Dim App As Object
    Dim Parts As Object
    Dim Part As Object

    Set App = CreateObject("PCDLRN.Application")

    Set Parts = App.PartPrograms

    Set Part = Parts.Open(sFilePath, "CMM1")

    Part.Execute

    Part.Close

    App.Quit
    Set App = Nothing

    what changes I need to do to run it in PC-DMIS 2012?

    Your help is highly appreciated.

    Thanks & Best Regards,
    Pravin
Children
No Data