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

dph51 over 7 years ago

Try this stand alone script.

This should bring up a message window with the CMM name

Dim PCDDmisApp As Object
Dim PCDDmisPart As Object
Dim PCDDmisCommands As Object
Dim PCDDmisCommand As Object

Sub Main
Set PCDDmisApp = CreateObject("PCDLRN.Application")
Set PCDDmisPart = PCDDmisApp.ActivePartProgram
Set PCDDmisCommands = PCDmisPart.Commands

[COLOR=#FF0000]CMM_Name = PCDDmisPart.ActiveMachine[/COLOR]

Dim CMM_Name,Msg
Msg = CMM_Name
MsgBox Msg

PCDDmisPart.RefreshPart

End Sub

Reply

dph51 over 7 years ago

Try this stand alone script.

This should bring up a message window with the CMM name

Dim PCDDmisApp As Object
Dim PCDDmisPart As Object
Dim PCDDmisCommands As Object
Dim PCDDmisCommand As Object

Sub Main
Set PCDDmisApp = CreateObject("PCDLRN.Application")
Set PCDDmisPart = PCDDmisApp.ActivePartProgram
Set PCDDmisCommands = PCDmisPart.Commands

[COLOR=#FF0000]CMM_Name = PCDDmisPart.ActiveMachine[/COLOR]

Dim CMM_Name,Msg
Msg = CMM_Name
MsgBox Msg

PCDDmisPart.RefreshPart

End Sub

Children

bigtallanddopey over 7 years ago in reply to dph51

Just missed this part out if anyone else comes across this script.

CMM_Name = PCDPart.ActiveMachine
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel