hexagon logo
Register Sign in
  • Replies 18 replies
  • Subscribers 35 subscribers
  • Views 310 views
  • Users 0 members are here
Options
Related

To Open/Execute Several Programs Sequentially Using Basic Script

Vinson
All the while I've been using CallSubs to do that from within the main program, but i've met several bugs and errors from the subroutines i've executed. Can anybody show me a simple basic script to open, execute, save, close several programs simultaneously?
Parents
  • I wanted a code to open a program and wanted to uncheck the manual part of the program.
    I already tried with this code but the error.
    Someone can help me?
    “ Dim PCDApp, PCDPartPrograms, PCDPartProgram, PCDCommands, PCDCommand


    Set PCDApp = CreateObject("PCDLRN.Application")
    Set PCDPartPrograms = PCDApp.PartPrograms
    Set PCDPartProgram = PCDApp.ActivePartProgram

    Set PCDCommands = PCDPartProgram.Commands

      PCDApp.Visible = True
      PCDPartPrograms.Open "Z:\MM.PRG", "CMM1"
      
    '************************************************* *************
    Dim WshShell
    set WshShell = WScript.CreateObject("WScript.Shell")



    '************************************************* *************
    Set PCDPartProgram = PCDApp.ActivePartProgram

    PCDCommands.Mark.true
     MsgBox "mark"”
Reply
  • I wanted a code to open a program and wanted to uncheck the manual part of the program.
    I already tried with this code but the error.
    Someone can help me?
    “ Dim PCDApp, PCDPartPrograms, PCDPartProgram, PCDCommands, PCDCommand


    Set PCDApp = CreateObject("PCDLRN.Application")
    Set PCDPartPrograms = PCDApp.PartPrograms
    Set PCDPartProgram = PCDApp.ActivePartProgram

    Set PCDCommands = PCDPartProgram.Commands

      PCDApp.Visible = True
      PCDPartPrograms.Open "Z:\MM.PRG", "CMM1"
      
    '************************************************* *************
    Dim WshShell
    set WshShell = WScript.CreateObject("WScript.Shell")



    '************************************************* *************
    Set PCDPartProgram = PCDApp.ActivePartProgram

    PCDCommands.Mark.true
     MsgBox "mark"”
Children
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement