hexagon logo

Automated execution of several consecutive programs

Hi guys.
I would like to know how i can automate the execution of several consecutive programs and which software i can do it easily.
Maybe somebody can share some code of vba or c+.
the goal is to run a program and after completion execute the next until finish all programs that i need. I will use an external alignment in every program in order to mesure all parts that i have fixed on the cmm table.
Thank you

Enviado desde mi SM-G928F mediante Tapatalk
Parents
  • Basic Script

    This might help.
    [COLOR=#454545][FONT=UICTFontTextStyleBody]Dim PCDApp, PCDPartPrograms, PCDPartProgram[/FONT][/COLOR][COLOR=#454545][FONT=UICTFontTextStyleBody]
    [/FONT][/COLOR]
    [COLOR=#454545][FONT=UICTFontTextStyleBody]Set PCDApp = CreateObject("PCDLRN.Application")[/FONT][/COLOR]
    [COLOR=#454545][FONT=UICTFontTextStyleBody]Set PCDPartPrograms = PCDApp.PartPrograms[/FONT][/COLOR]
    
    [COLOR=#454545][FONT=UICTFontTextStyleBody]  PCDApp.Visible = True[/FONT][/COLOR]
    [COLOR=#454545][FONT=UICTFontTextStyleBody]  PCDPartPrograms.Open "Z:\test1.PRG", "CMM1"[/FONT][/COLOR]
    
    [COLOR=#454545][FONT=UICTFontTextStyleBody]Set PCDPartProgram = PCDApp.ActivePartProgram[/FONT][/COLOR]
    
    [COLOR=#454545][FONT=UICTFontTextStyleBody]  'msgbox "This will start the execution of the partprogram!"[/FONT][/COLOR]
    [COLOR=#454545][FONT=UICTFontTextStyleBody]  PCDPartProgram.Execute[/FONT][/COLOR]
    
    [COLOR=#454545][FONT=UICTFontTextStyleBody]  ' PC-DMIS executes the partprogram[/FONT][/COLOR]
    
    [COLOR=#454545][FONT=UICTFontTextStyleBody]  PCDPartProgram.Close[/FONT][/COLOR][COLOR=#454545][FONT=UICTFontTextStyleBody]
    [/FONT][/COLOR]
    [COLOR=#454545][FONT=UICTFontTextStyleBody]  ' PC-DMIS closes and saves the partprogram[/FONT][/COLOR]
    
    [COLOR=#454545][FONT=UICTFontTextStyleBody]PCDPartPrograms.Open "Z:\test2.PRG", "CMM1"[/FONT][/COLOR][COLOR=#454545][FONT=UICTFontTextStyleBody]
    [/FONT][/COLOR]
    [COLOR=#454545][FONT=UICTFontTextStyleBody]Set PCDPartProgram = PCDApp.ActivePartProgram[/FONT][/COLOR]
    
    [COLOR=#454545][FONT=UICTFontTextStyleBody]  'msgbox "This will start the execution of the partprogram!"[/FONT][/COLOR]
    [COLOR=#454545][FONT=UICTFontTextStyleBody]  PCDPartProgram.Execute[/FONT][/COLOR]
    
    [COLOR=#454545][FONT=UICTFontTextStyleBody]  ' PC-DMIS executes the partprogram[/FONT][/COLOR]
    
    [COLOR=#454545][FONT=UICTFontTextStyleBody]  PCDPartProgram.Close[/FONT][/COLOR][COLOR=#454545][FONT=UICTFontTextStyleBody]
    [/FONT][/COLOR]
    [COLOR=#454545][FONT=UICTFontTextStyleBody]  ' PC-DMIS closes and saves the partprogram[/FONT][/COLOR][COLOR=#454545][FONT=UICTFontTextStyleBody]
    [/FONT][/COLOR]
    [COLOR=#454545][FONT=UICTFontTextStyleBody]' Cleanup[/FONT][/COLOR]
    [COLOR=#454545][FONT=UICTFontTextStyleBody]Set PCDPartProgram = nothing[/FONT][/COLOR]
    [COLOR=#454545][FONT=UICTFontTextStyleBody]Set PCDPartPrograms = nothing[/FONT][/COLOR]
    [COLOR=#454545][FONT=UICTFontTextStyleBody]Set PCDApp = nothing
    [/FONT][/COLOR]
Reply
  • Basic Script

    This might help.
    [COLOR=#454545][FONT=UICTFontTextStyleBody]Dim PCDApp, PCDPartPrograms, PCDPartProgram[/FONT][/COLOR][COLOR=#454545][FONT=UICTFontTextStyleBody]
    [/FONT][/COLOR]
    [COLOR=#454545][FONT=UICTFontTextStyleBody]Set PCDApp = CreateObject("PCDLRN.Application")[/FONT][/COLOR]
    [COLOR=#454545][FONT=UICTFontTextStyleBody]Set PCDPartPrograms = PCDApp.PartPrograms[/FONT][/COLOR]
    
    [COLOR=#454545][FONT=UICTFontTextStyleBody]  PCDApp.Visible = True[/FONT][/COLOR]
    [COLOR=#454545][FONT=UICTFontTextStyleBody]  PCDPartPrograms.Open "Z:\test1.PRG", "CMM1"[/FONT][/COLOR]
    
    [COLOR=#454545][FONT=UICTFontTextStyleBody]Set PCDPartProgram = PCDApp.ActivePartProgram[/FONT][/COLOR]
    
    [COLOR=#454545][FONT=UICTFontTextStyleBody]  'msgbox "This will start the execution of the partprogram!"[/FONT][/COLOR]
    [COLOR=#454545][FONT=UICTFontTextStyleBody]  PCDPartProgram.Execute[/FONT][/COLOR]
    
    [COLOR=#454545][FONT=UICTFontTextStyleBody]  ' PC-DMIS executes the partprogram[/FONT][/COLOR]
    
    [COLOR=#454545][FONT=UICTFontTextStyleBody]  PCDPartProgram.Close[/FONT][/COLOR][COLOR=#454545][FONT=UICTFontTextStyleBody]
    [/FONT][/COLOR]
    [COLOR=#454545][FONT=UICTFontTextStyleBody]  ' PC-DMIS closes and saves the partprogram[/FONT][/COLOR]
    
    [COLOR=#454545][FONT=UICTFontTextStyleBody]PCDPartPrograms.Open "Z:\test2.PRG", "CMM1"[/FONT][/COLOR][COLOR=#454545][FONT=UICTFontTextStyleBody]
    [/FONT][/COLOR]
    [COLOR=#454545][FONT=UICTFontTextStyleBody]Set PCDPartProgram = PCDApp.ActivePartProgram[/FONT][/COLOR]
    
    [COLOR=#454545][FONT=UICTFontTextStyleBody]  'msgbox "This will start the execution of the partprogram!"[/FONT][/COLOR]
    [COLOR=#454545][FONT=UICTFontTextStyleBody]  PCDPartProgram.Execute[/FONT][/COLOR]
    
    [COLOR=#454545][FONT=UICTFontTextStyleBody]  ' PC-DMIS executes the partprogram[/FONT][/COLOR]
    
    [COLOR=#454545][FONT=UICTFontTextStyleBody]  PCDPartProgram.Close[/FONT][/COLOR][COLOR=#454545][FONT=UICTFontTextStyleBody]
    [/FONT][/COLOR]
    [COLOR=#454545][FONT=UICTFontTextStyleBody]  ' PC-DMIS closes and saves the partprogram[/FONT][/COLOR][COLOR=#454545][FONT=UICTFontTextStyleBody]
    [/FONT][/COLOR]
    [COLOR=#454545][FONT=UICTFontTextStyleBody]' Cleanup[/FONT][/COLOR]
    [COLOR=#454545][FONT=UICTFontTextStyleBody]Set PCDPartProgram = nothing[/FONT][/COLOR]
    [COLOR=#454545][FONT=UICTFontTextStyleBody]Set PCDPartPrograms = nothing[/FONT][/COLOR]
    [COLOR=#454545][FONT=UICTFontTextStyleBody]Set PCDApp = nothing
    [/FONT][/COLOR]
Children
No Data