hexagon logo
Register Sign in
  • Replies 37 replies
  • Subscribers 225 subscribers
  • Views 500 views
  • Users 0 members are here
Options
Related

PC-DMIS 2012 MR1 & Scripting

ALLEN.usmc22
Is VB scripting the only form of code to use for pc-dmis 2012 mr1?
Parents
  • I have already tried this but the same behavior.

    Here is my code.
    Dim App As Object
    Dim Parts As Object
    Dim Part As Object

    Set App = CreateObject("PCDLRN.Application")

    Set Parts = App.PartPrograms

    App.Visible = True

    Parts.Open "D:\PrbCal.PRG", "CMM1" '"Machine1/Maskin1".

    DoEvents
    Set Part = App.ActivePartProgram
    DoEvents
    MsgBox "Pause for 10 seconds here then click OK"

    Part.Execute
    DoEvents

    Part.Close

    Set Part = Nothing
    Set Parts = Nothing
    App.Quit
    Set App = Nothing
Reply
  • I have already tried this but the same behavior.

    Here is my code.
    Dim App As Object
    Dim Parts As Object
    Dim Part As Object

    Set App = CreateObject("PCDLRN.Application")

    Set Parts = App.PartPrograms

    App.Visible = True

    Parts.Open "D:\PrbCal.PRG", "CMM1" '"Machine1/Maskin1".

    DoEvents
    Set Part = App.ActivePartProgram
    DoEvents
    MsgBox "Pause for 10 seconds here then click OK"

    Part.Execute
    DoEvents

    Part.Close

    Set Part = Nothing
    Set Parts = Nothing
    App.Quit
    Set App = Nothing
Children
No Data
© 2025 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement