0  BEGIN PGM 51051_FR MM 
1  ;Programme CN permettant de calculer la trajectoire de
2  ;l'outil d'ébavurage d'une rainure de clavette.
3  ;Ce programme CN est structuré de manière à pouvoir être
4  ;appelé comme cycle depuis un programme d'usinage. Les
5  ;paramètres nécessaires sont définis dans le programme
6  ;d'usinage appelant. Vous n'avez donc pas besoin d'apporter
7  ;des modifications à ce programme CN.
8  ;
9  FN 18: SYSREAD Q1 = ID270 NR1 IDX1 ;Lecture de la position X actuelle
10 FN 18: SYSREAD Q2 = ID270 NR1 IDX2 ;Lecture de la position Y actuelle
11 Q5 = Q203 + ABS Q200 ;Distance de sécurité
12 Q6 = Q203 + ABS Q204 ;Saut de bride
13 CYCL DEF 7.0 POINT ZERO
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 ;Position rainure
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 POINT ZERO
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 ;Angle départ
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 ;Angle départ
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 POINT ZERO
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_FR MM