B-63343EN/02 SAMPLE PROGRAM 1.USER PROGRAMS FOR SETTING DATA FORMAT OF MACHINING PROCESS
- 145 -
/* O7513 For CYCLE Cutting Item type definition
/*
/* **** Boring machining ****
/*
O7513
#[22120+1]=3 ;process (2) boreing
#[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]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]=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 Shift type
#[22120+26]=0004053 ;Data item #11 Dwell type
#[22120+28]=-1 ;Data item #12
#[22120+30]=-1 ;Data item #13
#[22120+32]=-1 ;Data item #14
#[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
#[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
/* O7514 For CYCLE Cutting Item type definition
/*
/* **** Tapping machining ****
/*
O7514
#[22120+3]=10 ;process Tapping
#[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 Pitch type
#[22120+26]=0004053 ;Data item #11 Dwell type
#[22120+28]=1204050 ;Data item #12 General/Rigid type