
B-63343EN/02 SAMPLE PROGRAM 1.USER PROGRAMS FOR SETTING DATA FORMAT OF MACHINING PROCESS
- 143 -
IF[#[22120+22]EQ#0]GOTO120 ;IF NOT DATA SET THEN DATA SET
IF[#[22120+22]NE-1]GOTO121 ;IF DATA TYPE -1 ELSE SKIP DATA SET
N120 #[22120+22]=8104053 ;Data item #9 End Z / Hole depth type
N121 #[22120+24]=-1 ;Data item #10 Data item #10 type
#[22120+26]=0004053 ;Data item #11 Dwell type
#[22120+28]=-1 ;Data item #12 Data item #12 type
#[22120+30]=-1 ;Data item #13 Data item #13 type
#[22120+32]=-1 ;Data item #14 Data item #14 type
#[22120+34]=-1 ;Data item #15 Data item #15 type
#[22120+36]=-1 ;Data item #16 Data item #16 type
#[22120+38]=-1 ;Data item #17 Data item #17 type
#[22120+40]=-1 ;Data item #18 Data item #18 type
#[22120+42]=-1 ;Data item #19 Data item #19 type
#[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
M99; return
/*
/* User Programs for Machining program
/* O7511 For CYCLE Cutting Item type definition
/*
/* **** Drilling machining ****
/*
O7511
#[22120+1]=1 ;process (2) Drilling
#[22120+3]=9 ;process Drilling
#[22120+4]=-1 ;Machining area None
#[22120+5]=1 ;cycle common
#[22120+6]=3004051 ;Data item #1 Tool Number type
IF[#[22120+8]EQ#0]GOTO10 ;IF NOT DATA SET THEN DATA SET
IF[#[22120+8]NE-1]GOTO11 ;IF DATA TYPE -1 ELSE SKIP DATA SET
N10 #[22120+8]=4004053 ;Data item #2 Feedrate type
N11 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]=1104050 ;Data item #3 Spindle Speed type
N111 #[22120+12]=1204050 ;Data item #4 Spindle direction type
#[22120+14]=0004053 ;Data item #5 Start position X type
#[22120+16]=0004053 ;Data item #6 Start position Z type
#[22120+18]=0004053 ;Data item #7 Hole diameter type
#[22120+20]=0004053 ;Data item #8 Start Z type
IF[#[22120+22]EQ#0]GOTO120 ;IF NOT DATA SET THEN DATA SET
IF[#[22120+22]NE-1]GOTO121 ;IF DATA TYPE -1 ELSE SKIP DATA SET
N120 #[22120+22]=8104053 ;Data item #9 End Z / Hole depth type
N121 #[22120+24]=0004053 ;Data item #10 Step amount
#[22120+26]=0004053 ;Data item #11 Dwell type
#[22120+28]=1204054 ;Data item #12 Machining type
#[22120+30]=-1 ;Data item #13 Depth decreese type
#[22120+32]=-1 ;Data item #14 Return amount type
#[22120+34]=-1 ;Data item #15 Minimum Depth type
#[22120+36]=-1 ;Data item #16 Start feed type
#[22120+38]=-1 ;Data item #17 Start clearance type
#[22120+40]=-1 ;Data item #18 End feed type
#[22120+42]=-1 ;Data item #19 End clearance type
#[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+29]NE121]GOTO100 ;IF Machining is braind hole
#[22120+36]=0014053 ;Data item #16 Start feed type
#[22120+38]=0014053 ;Data item #17 Start clearance type
N100 IF[#[22120+29]EQ122]GOTO200 ;IF Machining is braind deep hole
IF[#[22120+29]NE123]GOTO300 ;IF Machining is high speed braind deep hole
N200 #[22120+30]=0014053 ;Data item #13 Depth decreese type
#[22120+32]=0014053 ;Data item #14 Return amount type
#[22120+34]=0014053 ;Data item #15 Minimum Depth type