Originally Posted by
tjones
I thought I would share this as a help for anyone using these controls. There are so few examples of using this type of programming I decided to test out for a job where we are needing to load and tough off every part from the face and centered on the sides. This is an example of using a program to tough off and set the WKPC before calling a sub program to cut.
%
L15/POSITIONG PROGRAM
(THIS PROGRAM PICKS UP FRONT OF PART AND CENTER OF PART TO SET WKPC)
(THEN CALLS CUT PROGRAM)
(ZERO WKPC P10 NEAR FRONT CENTER OF PART IN SETUP)
(THIS PROGRAM WILL PICKUP PART EACH RUN)
H10=1 (CUT 1ST FORM 1=YES 0=NO)
H19=.010 (PART STOCK TO REMOVE FROM FACE---OFFESTS IN Y DIRECTION)
G62 X0 Y0
G97 X0
G70
G90
G53 G92 X0 Y0 Z0
G54.1P10
G0G90Z0 (MOVE TO Z POSITION JUST FOR SAFETY TO CLEAR IF MOVED)
G01 X.00000 Y.2000 F40.0000 M91(MOVE TO START)
M20 M78
E1401 F0.03000 (CALL EPACK JUST TO SET WIRE TENSION, ETC.)
M81 M85
G90
G92 X.00000 Y.2000 (SET TEMP ZERO)
(EDGE POSITION FACE)
G29Y-1P6Q11 (PICKUP FACE IN -Y DIRECTION, Q11 SETS H11 FOR ERROR MESSAGES)
G14Y12P1 (SET Y AXIS MACHINE POSITION TO H12)
G43YH12-.0060-H19 (HALF WIRE AND STOCK TO REMOVE)
H20=H12-.0060 (JUST A CHECK TO SEE VALUE)
G53 G92 X0 Y0 Z0 (CLEAR AND RECALL WPC---NOT CERTAIN THIS IS NEEDED)
G54.1P10
G0G90 X-.25 (POSITION TOWARDS SIDE OF PART)
Y-.2 (POSITION INTO PART FROM FACE)
G29X1P6Q11 (PICKUP FACE IN +X DIRECTION)
G14X13P1 (SET X AXIS MACHINE POSITION TO H13)
G0G90 X-.25 (MOVE CLEAR OF SIDE)
Y.2 (MOVE CLEAR OF FACE)
X.25 (MOVE TO OPPOSITE SIDE)
Y-.2 (MOVE TO DISTANCE FROM FACE)
G29X-1P6Q11 (PICKUP OPPOSITE SIDE IN X)
G14X14P1 (SET OPPOSITE SIDE TO H14)
H21=H14-H13 (SUBTRACT LARGEST X FROM SMALLER X PICKUP)
H22=H21/2 (DEVIDE DIFFERENCE BY 2)
H23=H22+H13 (ADD DIFFERNCE TO SMALLER ABSOLUTE PICKUP)
(H23=[H14-H13]/2+H13 FULL MATH EQUATION)
G43XH23 (SET X AXIS CENTER TO MIDDLE OF PICKUPS)
G53 G92 X0 Y0 Z0
G54.1P10
G0G90 X.25 (POSITION CLEAR OF PART NEAR START)
Y.2
G01 X.00000 Y.04000 F30.0000
G201A100B0CH10 (SKIP CUT IF H10=0)
M21 (CUT WIRE TO MOVE TO SLOT)
G22L16 (CUT FORM 1)
N100
G22L17 (CUT FORM 2)
M02
%