
1.USER PROGRAMS FOR SETTING DATA FORMAT OF MACHINING PROCESS SAMPLE PROGRAM B-63343EN/02
- 140 -
IF[#[22120+20]EQ#0]GOTO120 ;IF NOT DATA SET THEN DATA SET
IF[#[22120+20]NE-1]GOTO121 ;IF DATA TYPE -1 ELSE SKIP DATA SET
N120 #[22120+20]=6104053 ;Data item #8 Cutting amnt./number of thread type
N121 #[22120+22]=1204054 ;Data item #9 Thread type type
#[22120+24]=1204050 ;Data item #10 Cutting method type
#[22120+26]=0004051 ;Data item #11 Thread angle type
IF[#[22120+28]EQ#0]GOTO140 ;IF NOT DATA SET THEN DATA SET
IF[#[22120+28]NE-1]GOTO141 ;IF DATA TYPE -1 ELSE SKIP DATA SET
N140 #[22120+28]=5004053 ;Data item #12 Read/thread number type
IF[#[22120+23]EQ91]GOTO141 ;IF THREAD TYPE GENERAL
IF[#[22120+23]EQ92]GOTO141 ;IF THREAD TYPE MATRIC
#[22120+28]=5104053 ;Data item #12 Read/thread number type
N141 #[22120+30]=0014050 ;Data item #13 Multi thread type
#[22120+32]=0014053 ;Data item #14 Thread highit type
#[22120+34]=0014053 ;Data item #15 Spark out type
#[22120+36]=0014053 ;Data item #16 Finishing type
#[22120+38]=0014053 ;Data item #17 Clearance X type
#[22120+40]=0014053 ;Data item #18 Clearance Z type
#[22120+42]=-1 ;Data item #19 -X area machining type
IF [P9970 AND 16 EQ 0] GOTO 600
#[22120+42]=1214050 ;Data item #19 -X area machining type
IF[#[22120+43]NE#0]GOTO600
#[22120+43]=191 ;Data item #19 +X area default
N600 #[22120+44]=0014051 ;Data item #20 Approach X type
#[22120+46]=0014051 ;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+23]NE#0]GOTO700;IF Thread TYPE = NONE ELSE
#[22120+26]=-1 ;Data item #11 Thread angle NOT DISPLAY
#[22120+28]=-1 ;Data item #12 Read/thread number NOT DISPLAY
GOTO800
N700 IF[#[22120+25]NE#0]GOTO800;IF Cutting method = NONE ELSE
#[22120+25]=101 ;Data item #10 Cutting method data single-amount defalt
N800 IF[#[22120+23]EQ91]GOTO900 ;IF Thread TYPE = GENERAL
#[22120+26]=-1 ;THREAD ANGE NOT DISPLAY
N900 M99; return
/*
/* User Programs for Machining program
/* O7506 For CYCLE Cutting Item type definition
/*
/* **** Grooving machining ****
/*
O7506
#[22120+3]=6 ;process Grooving (general)
#[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]=1004050 ;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 Tool width type
#[22120+20]=-1 ;Data item #8 Groove pattern type
#[22120+21]=81 ;Data item #8 Groove pattern DATA GENERAL
#[22120+22]=0004053 ;Data item #9 Step amounttype
#[22120+24]=0004053 ;Data item #10 Dwell type
#[22120+26]=0024053 ;Data item #11 Groove width
IF[#[22120+28]EQ#0]GOTO120 ;IF NOT DATA SET THEN DATA SET
IF[#[22120+28]NE-1]GOTO121 ;IF DATA TYPE -1 ELSE SKIP DATA SET
N120 #[22120+28]=7024053 ;Data item #12 Groove diameter/Groove depth type
N121 #[22120+30]=0024053 ;Data item #13 Pitch
#[22120+32]=0024050 ;Data item #14 Groove number
IF[#[22120+33]NE#0]GOTO130 ;IF DATA ALREADY SET ELSE DATA SET