hexagon logo
Register Sign in
  • Replies 17 replies
  • Subscribers 31 subscribers
  • Views 419 views
  • Users 0 members are here
Options
Related

Automated execution of several consecutive programs

MrBloondy
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
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement