0 BEGIN PGM 7070-FR MM 
1 ;Programme pour l'usinage extérieur d'une
2 ;surface cylindrique avec une fraise torique.
3 ;L'axe du cylindre est parallèle à l'axe Y.
4 ;L'usinage se déroule dans une trajectoire
5 ;circulaire autour du centre sur les axes
6 ;X et Z et la passe latérale dans l'axe Y.
7 ;Le cylindre est usiné de bas en haut des
8 ;deux côtés. La division indique en combien
9 ;de trajectoires les deux côtés doivent
10 ;être séparés. La CN calcule ensuite la
11 ;taille de la passe latérale. Au début,
12 ;l'outil est positionné en fonction de son
13 ;rayon corrigé, et à la fin, il se déplace
14 ;au-delà de la position spécifiée.
15 ;
16 BLK FORM 0.1 Z X-55 Y+0 Z-55
17 BLK FORM 0.2  X+55  Y+100  Z+0
18 ;
19 ;Définition des paramètres
20 FN 0: Q1 =+0 ;CENTRE DU CYLINDRE SUR L'AXE X
21 FN 0: Q2 =-50.1 ;CENTRE DU CYLINDRE SUR L'AXE Z
22 FN 0: Q3 =+0 ;POINT DE DÉPART EN Y
23 ;            ; COORDONNÉE MAXIMALE
24 FN 0: Q4 =+100 ;POINT FINAL SUR L'AXE Y
25 ;            ; COORDONNÉE MAXIMALE
26 FN 0: Q5 =+50 ;DIVISION
27 ;            ; NOMBRE DE TRAJECTOIRES DE FRAISAGE PAR CÔTÉ
28 FN 0: Q6 =+50 ;RAYON DU CYLINDRE
29 FN 0: Q7 =+10 ;HAUTEUR DE SÉCURITÉ
30 FN 0: Q8 =+600 ;AVANCE FRAISAGE
31 FN 0: Q9 =+300 ;AVANCE DE LA PASSE EN PROFONDEUR
32 FN 0: Q30 =+5 ;RAYON DE LA DENT
33 ;Fin de la définition des paramètres
34 ;
35 ;Appel de la fraise torique
36 TOOL CALL 115 Z S8000
37 TOOL CALL  Z DL-Q30
38 ;
39 ;
40 ;Calculs
41 FN 2: Q31 =+Q108 - +Q30 ;Calcul du rayon de la dent
42 FN 1: Q26 =+Q6 + +Q30 ;Rayon effectif jusqu'au centre de la denture
43 FN 1: Q10 =+Q1 + +Q31 ;CC X premier côté
44 FN 2: Q11 =+Q1 - +Q31 ;CC X deuxième côté
45 FN 2: Q13 =+Q3 - +Q108 ;Point de départ
46 FN 1: Q14 =+Q4 + +Q108 ;Point final
47 FN 2: Q15 =+Q14 - +Q13 ;Déplacement linéaire
48 FN 4: Q16 =+Q15 DIV +Q5 ;Pas
49 FN 2: Q17 =+Q5 - +1 ;Nombre de répétitions
50 FN 1: Q18 =+Q6 + +Q108 ;Pré-positionnement
51 FN 1: Q19 =+Q1 + +Q18 ;Pré-positionnement premier côté
52 FN 2: Q20 =+Q1 - +Q18 ;Pré-positionnement deuxième côté
53 ;Fin des calculs
54 ;
55 L  Z+100 R0 FMAX ;Dégagement
56 ;
57 ;Premier côté
58 L  X+Q19  Y+Q13 R0 FMAX M3 ;Pré-positionnement premier côté
59 L  Z+Q7 R0 FMAX ;Déplacement à la hauteur de sécurité
60 CC  X+Q10  Z+Q2 ;Centre de la trajectoire circulaire
61 LBL 1
62 L  X+Q19 R0 FMAX
63 LP  PR+Q26  PA+90 FQ9 ;Plongée
64 L IY+Q16 R0 FQ8 ;Passe latérale
65 CP IPA-90 DR- FQ8 ;Trajectoire circulaire
66 L  Z+Q7 R0 FMAX ;Déplacement à la hauteur de sécurité
67 CALL LBL 1 REPQ17 ;Répétition
68 ;
69 ;Deuxième côté
70 L  X+Q20  Y+Q14 R0 FMAX ;Pré-positionnement deuxième côté
71 CC  X+Q11  Z+Q2 ;Centre de la trajectoire circulaire
72 LBL 2
73 L  X+Q20 R0 FMAX
74 LP  PR+Q26  PA-90 FQ9 ;Plongée
75 L IY-Q16 R0 FQ8 ;Passe latérale
76 CP IPA+90 DR+ FQ8 ;Trajectoire circulaire
77 L  Z+Q7 R0 FMAX ;Déplacement à la hauteur de sécurité
78 CALL LBL 2 REPQ17 ;Répétition
79 ;
80 ;Dégagement et fin de programme
81 L  Z+100 R0 FMAX M30
82 END PGM 7070-FR MM