12 Automation lntegration
12.4 Sample Robotic - CNC lntegration Programs
184
Close Gripper
Go Linear to Position SCRIPT.P2 Fast
Send Message $Start to MANAGER ID=TASK_ID
Return from Subroutine
Remark: ************************************************************************************************
Set Subroutine PUT031
Print to Screen: PUT TO BUFFER3
Call Subroutine SCRIPT.PUT_TO_BUFFER3
Print to Screen: P1,P2,P3,PB1: 'SCRIPT.P1', 'SCRIPT.P2','SCRIPT.P3','SCRIPT.PB1'
Go to Position SCRIPT.P3 Fast
Go to Position SCRIPT.PB1 Fast
Go to Position SCRIPT.P2 Fast
Go Linear to Position SCRIPT.P1 Speed 30 (%)
Open Gripper
Go Linear to Position SCRIPT.P2 Fast
Send Message $Finish to MANAGER ID=TASK_ID
Send Message $End to MANAGER ID=TASK_ID
Return from Subroutine
Remark: ************************************************************************************************
Set Subroutine GET032
Print to Screen: GET FROM MILL (PM8000)
Call Subroutine SCRIPT.GET_FROM_MILL1
Print to Screen: P1,P2,P3,P4,PB1: 'SCRIPT.P1', 'SCRIPT.P2','SCRIPT.P3','SCRIPT.P4','SCRIPT.PB1'
Go to Position SCRIPT.P4 Speed 50 (%)
Go to Position SCRIPT.PB1 Fast
If Input 1 Off Call Subroutine PM8000 NOT READY
Call Subroutine PLACE VICE IN LOADING POSITION
If Input 1 Off Call Subroutine PM8000 NOT READY
Call Subroutine OPEN DOOR
Go to Position SCRIPT.P3 Speed 50 (%)
Open Gripper
Go to Position SCRIPT.P2 Speed 50 (%)
Go Linear to Position SCRIPT.P1 Speed 30 (%)
Close Gripper
If Input 1 Off Call Subroutine PM8000 NOT READY
Call Subroutine OPEN VICE
Go Linear to Position SCRIPT.P2 Speed 30 (%)
Go to Position SCRIPT.P3 Speed 50 (%)
Go to Position SCRIPT.P4 Speed 50 (%)
If Input 1 Off Call Subroutine PM8000 NOT READY
Call Subroutine CLOSE DOOR