0 BEGIN PGM 3045_FR MM 
1 ;Programme permettant d'usiner un cône tronqué horizontal
2 ;de l'intérieur. L'axe de rotation est parallèle à l'axe X.
3 ;L'usinage s'effectue avec une fraise boule et des lignes
4 ;de niveau dont vous définissez le nombre au paramètre
5 ;"Division" (Q8).
6 ;
7 ;Définition des paramètres
8 FN 0: Q13 =+35 ;CENTRE CONE EN Y
9 FN 0: Q14 =+0 ;CENTRE CONE EN Z
10 FN 0: Q1 =+0 ;COORDONNEE X MINIMALE
11 FN 0: Q5 =+100 ;COORDONNEE X MAXIMALE
12 FN 0: Q6 =+30 ;RAYON POUR X MINIMAL
13 FN 0: Q7 =+20 ;RAYON POUR X MAXIMAL
14 FN 0: Q8 =+90 ;DIVISION
15 FN 0: Q10 =+30 ;DISTANCE D'APPROCHE
16 FN 0: Q11 =+300 ;AVANCE DE LA PASSE EN PROFONDEUR
17 FN 0: Q12 =+1000 ;AVANCE FRAISAGE
18 ;Fin de la programmation des paramètres
19 ;
20 BLK FORM 0.1 Z X+0 Y+0 Z-35
21 BLK FORM 0.2  X+100  Y+70  Z+0
22 ;
23 ;Appel de la fraise boule
24 TOOL CALL 157 Z S4000
25 TOOL CALL  Z DL-Q108 ;Correction de longueur au centre de la boule
26 ;
27 L  X-20  Y+0  Z+28 R0 F5555 ;Pré-positionnement
28 ;
29 CALL LBL 1 ;Appeler l’usinage
30 ;
31 ;Réinitialisation de la conversion de coordonnées
32 CYCL DEF 7.0 POINT ZERO
33 CYCL DEF 7.1  X+0
34 CYCL DEF 7.2  Y+0
35 CYCL DEF 7.3  Z+0
36 ;
37 ;Dégagement et fin de programme
38 L  Z+100 R0 FMAX M2
39 ;
40 LBL 1 ;Usinage
41 ;Calculs
42 FN 2: Q16 =+Q6 - +Q108 ;Rayon jusqu'au centre de l'outil, pour X min
43 FN 2: Q17 =+Q7 - +Q108 ;Rayon jusqu'au centre de l'outil, pour X max
44 FN 0: Q27 =+180 ;Angle de départ
Q37 = 180 / Q8 ;Incrément angulaire
45 FN 0: Q28 =+0 ;Compteur
46 ;
47 ;Décalage du point zéro au centre du cône
48 CYCL DEF 7.0 POINT ZERO
49 CYCL DEF 7.1  Y+Q13
50 CYCL DEF 7.2  Z+Q14
51 ;
52 CALL LBL 10
53 L  X+Q1  Y+Q22 R0 F5555 ;Approche du point de départ
54 L  Z+Q23 FQ11 ;Approche de la profondeur
55 L  X+Q5  Y+Q42  Z+Q43 ;Déplacement au point final
56 L IZ+Q10 ;Déplacement à la distance d'approche
57 ;
58 LBL 2
Q27 = Q27 + Q37 ;Nouveau calcul de l'angle
Q28 = Q28 + 1 ;Nouveau calcul du compteur
59 FN 11: IF +Q28 GT +Q8 GOTO LBL 99
60 CALL LBL 10
61 L  X+Q1  Y+Q22 R0 F5555 ;Approche du point de départ
62 L  Z+Q23 FQ11 ;Approche de la profondeur
63 L  X+Q5  Y+Q42  Z+Q43 ;Déplacement au point final
64 L IZ+Q10 ;Déplacement à la distance d'approche
65 FN 9: IF +0 EQU +0 GOTO LBL 2 ;Répétition
66 ;
67 LBL 10 ;Calcul des coordonnées
Q22 = Q16 * COS Q27 ;Coordonnée Y, pour X min
Q42 = Q17 * COS Q27 ;Coordonnée Y, pour X max
Q23 = Q16 * SIN Q27 ;Coordonnée Z, pour X min
Q43 = Q17 * SIN Q27 ;Coordonnée Z, pour X max
68 LBL 0
69 LBL 99 ;Fin de l'usinage
70 LBL 0
71 END PGM 3045_FR MM