
B-63343EN/02 SAMPLE PROGRAM 1.USER PROGRAMS FOR SETTING DATA FORMAT OF MACHINING PROCESS
- 141 -
#[22120+33]=1 ;Data item #14 Groove number =1 default
N130 #[22120+34]=0024053 ;Data item #15 Groove start point X
#[22120+36]=0024053 ;Data item #16 Groove start point Z
#[22120+38]=0024053 ;Data item #17 Groove end X or Z
#[22120+40]=0024053 ;Data item #18 Chamfering
#[22120+42]=-1 ;Data item #19 -X area machining type
IF [P9970 AND 16 EQ 0] GOTO 800
#[22120+42]=1214050 ;Data item #19 -X area machining type
IF[#[22120+43]NE#0]GOTO800
#[22120+43]=191 ;Data item #19 +X area default
N800 #[22120+44]=0014053 ;Data item #20 Approach X type
#[22120+46]=0014053 ;Data item #21 Approach Z type
#[22120+48]=1010001 ;Data item #22 Coolant type
#[22120+50]=1214050 ;Data item #23 Spindle Gear type
IF[#[22120+21]NE84]GOTO999;If groove pattern is not thread groove?
;Then goto ret
#[22120+30]=-1 ;Data item #13 Pitch
#[22120+31]=#0 ;Data item #13 Pitch
#[22120+32]=-1 ;Data item #14 Groove number
#[22120+33]=1 ;Data item #14 Groove number
#[22120+42]=0024051 ;Data item #19 Groove angle
N999 M99; return
/*
/* User Programs for Machining program
/* O7507 For CYCLE Cutting Item type definition
/*
/* **** Grooving trapezoid Rough machining ****
/*
O7507
#[22120+3]=6 ;process Grooving (trapezoid)
#[22120+5]=1 ;cycle Rough
#[22120+6]=3004051 ;Data item #1 Tool Number type
IF[#[22120+8]EQ#0]GOTO100 ;IF NOT DATA SET THEN DATA SET
IF[#[22120+8]NE-1]GOTO101 ;IF DATA TYPE -1 ELSE SKIP DATA SET
N100 #[22120+8]=4004053 ;Data item #2 Feedrate type
N101 IF[#[22120+10]EQ#0]GOTO110 ;IF NOT DATA SET THEN DATA SET
IF[#[22120+10]NE-1]GOTO111 ;IF DATA TYPE -1 ELSE SKIP DATA SET
N110 #[22120+10]=1004050 ;Data item #3 Spindle Speed type
N111 #[22120+12]=1204050 ;Data item #4 Spindle direction type
#[22120+14]=0014053 ;Data item #5 Start position X type
#[22120+16]=0014053 ;Data item #6 Start position Z type
#[22120+18]=0004053 ;Data item #7 Tool width type
#[22120+20]=-1 ;Data item #8 groove pattern type
#[22120+21]=83 ;Data item #8 Groove pattern trapezoid
#[22120+22]=0004051 ;Data item #9 Step amount
#[22120+24]=0004053 ;Data item #10 Dwell
#[22120+26]=0004051 ;Data item #11 Finish X
#[22120+28]=0004051 ;Data item #12 Finish Z
#[22120+30]=0004053 ;Data item #13 Pitch
#[22120+32]=0004050 ;Data item #14 Groove number
IF[#[22120+33]NE#0]GOTO130 ;IF DATA ALREADY SET ELSE DATA SET
#[22120+33]=1 ;Data item #14 Groove number =1 default
N130 #[22120+34]=-1 ;Data item #15
#[22120+36]=-1 ;Data item #16
#[22120+38]=-1 ;Data item #17
#[22120+40]=-1 ;Data item #18
#[22120+42]=-1 ;Data item #19 -X area machining type
IF [P9970 AND 16 EQ 0] GOTO 800
#[22120+42]=1214050 ;Data item #19 -X area machining type
IF[#[22120+43]NE#0]GOTO800
#[22120+43]=191 ;Data item #19 +X area default
N800 #[22120+44]=0014053 ;Data item #20 Approach X type
#[22120+46]=0014053 ;Data item #21 Approach Z type
#[22120+48]=1010001 ;Data item #22 Coolant type
#[22120+50]=1214050 ;Data item #23 Spindle Gear type
N999 M99; return