0  BEGIN PGM 51051_EN MM 
1  ;NC program for calculating the tool path for
2  ;deburring a keyway.
3  ;This NC program is set up in a way that it is
4  ;called from the machining program as cycle.
5  ;The required parameters are defined in the
6  ;calling machining program. Therefore, you do
7  ;not need to edit this NC program.
8  ;
9  FN 18: SYSREAD Q1 = ID270 NR1 IDX1 ;Read out current X position
10 FN 18: SYSREAD Q2 = ID270 NR1 IDX2 ;Read out current Y position
11 Q5 = Q203 + ABS Q200 ;Set-up clearance
12 Q6 = Q203 + ABS Q204 ;2nd set-up clearance
13 CYCL DEF 7.0 DATUM SHIFT
14 CYCL DEF 7.1 IX+Q1
15 CYCL DEF 7.2 IY+Q2
16 CYCL DEF 10.0 ROTATION
17 CYCL DEF 10.1 IROT+Q374
18 ;Slot position
19 Q7 = 0
20 FN 9: IF +Q367 EQU +0 GOTO LBL "END"
21 Q7 = ABS Q218 / 2
22 FN 9: IF +Q367 EQU +1 GOTO LBL "END"
23 Q7 = ( ABS Q218 - ABS Q219 ) / 2
24 FN 9: IF +Q367 EQU +2 GOTO LBL "END"
25 Q7 = NEG ( ABS Q218 - ABS Q219 ) / 2
26 FN 9: IF +Q367 EQU +3 GOTO LBL "END"
27 Q7 = NEG ABS Q218 / 2
28 LBL "END"
29 CYCL DEF 7.0 DATUM SHIFT
30 CYCL DEF 7.1 IX+Q7
31 ;
32 Q10 = ( ABS Q218 - ABS Q219 ) / 2 ;X-MIN
33 Q11 = SQRT ( SQ ( Q222 / 2 ) - SQ ( Q219 / 2 ) )
34 Q12 = Q203 - ( Q222 / 2 - Q11 ) - ABS Q201
35 Q13 = Q219 / 2 - Q108
36 L  X+0  Y+0  Z+Q6 R0 FMAX
37 L  Z+Q5 R0 FMAX
38 L  X+0  Y+0  Z+Q12 FQ207
39 APPR LCT  X+0  Y+Q13 R1 FQ207
40 L  X-Q10
41 Q20 = 90 ;Starting angle
42 LBL 1
43 Q20 = Q20 + 1
44 Q21 = - Q10 + COS Q20 * Q13
45 Q22 = SIN Q20 * Q13
46 Q23 = SIN Q20 * Q219 / 2
47 Q11 = SQRT ( SQ ( Q222 / 2 ) - SQ ( Q23 ) )
48 Q12 = Q203 - ( Q222 / 2 - Q11 ) - ABS Q201
49 L  X+Q21  Y+Q22  Z+Q12
50 CALL LBL 1 REP179
51 L  X+Q10
52 Q20 = - 90 ;Starting angle
53 LBL 2
54 Q20 = Q20 + 1
55 Q21 = Q10 + COS Q20 * Q13
56 Q22 = SIN Q20 * Q13
57 Q23 = SIN Q20 * Q219 / 2
58 Q11 = SQRT ( SQ ( Q222 / 2 ) - SQ ( Q23 ) )
59 Q12 = Q203 - ( Q222 / 2 - Q11 ) - ABS Q201
60 L  X+Q21  Y+Q22  Z+Q12
61 CALL LBL 2 REP179
62 L  X+0
63 DEP LCT  X+0  Y+0 R1
64 ;
65 CYCL DEF 7.0 DATUM SHIFT
66 CYCL DEF 7.1  X+0
67 CYCL DEF 7.2  Y+0
68 CYCL DEF 7.3  Z+0
69 CYCL DEF 10.0 ROTATION
70 CYCL DEF 10.1  ROT+0
71 L  Z+Q6 R0 FMAX
72 END PGM 51051_EN MM