0 BEGIN PGM 7005-FR MM 
1 ;Programme d'usinage extérieur d'un cône
2 ;tronqué avec une fraise boule.
3 ;L'axe du cône 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 ;La division indique en combien de
8 ;mouvements l'usinage doit être séparé,
9 ;avec deux trajectoires circulaires à chaque
10 ;fois. La CN calcule ensuite la taille de
11 ;la passe latérale et la variation de rayon
12 ;correspondante.
13 ;
14 BLK FORM 0.1 Z X-50 Y+0 Z-50
15 BLK FORM 0.2  X+50  Y+100  Z+1
16 ;
17 ;Définition des paramètres
18 FN 0: Q1 =+0 ;CENTRE CÔNE EN X
19 FN 0: Q2 =-50 ;CENTRE CÔNE EN Z
20 FN 0: Q3 =+0 ;COORDONNÉE DE DÉPART EN Y
21 FN 0: Q4 =+50 ;RAYON DE DÉPART
22 FN 0: Q5 =+100 ;COORDONNÉE FINALE EN Y
23 FN 0: Q6 =+35 ;RAYON FINAL
24 FN 0: Q7 =+25 ;DIVISION
25 FN 0: Q8 =+300 ;AVANCE DE FRAISAGE
26 FN 0: Q9 =+200 ;AVANCE DE PLONGÉE
27 FN 0: Q10 =+10 ;HAUTEUR DE SÉCURITÉ
28 ;Fin de la définition des paramètres
29 ;
30 ;Appel de la fraise boule
31 TOOL CALL 160 Z S8000
32 TOOL CALL  DL-Q108
33 ;
34 ;Calculs
35 FN 1: Q24 =+Q108 + +Q4 ;Rayon effectif jusqu'au centre de l'outil
36 FN 2: Q25 =+Q5 - +Q3 ;Déplacement linéaire
37 FN 4: Q26 =+Q25 DIV +Q7 ;Incrément de déplacement
38 FN 4: Q26 =+Q26 DIV +2 ;Incrément de déplacement par trajectoire circulaire
39 FN 2: Q27 =+Q6 - +Q4 ;Différence de rayon
40 FN 4: Q28 =+Q27 DIV +Q7 ;Incrément de rayon
41 FN 4: Q28 =+Q28 DIV +2 ;Incrément du rayon par trajectoire circulaire
42 FN 2: Q29 =+Q7 - +1 ;Nombre de répétitions
43 FN 1: Q30 =+Q24 + +Q1 ;Pré-positionnement en X
44 FN 1: Q31 =+Q10 + +Q108 ;Hauteur de sécurité avec rayon d'outil
45 ;Fin des calculs
46 ;
47 L  Z+100 R0 FMAX M3 ;Dégagement
48 L  X+Q30  Y+Q3 FMAX ;Pré-positionnement
49 CC  X+Q1  Z+Q2 ;Centre du cône
50 L  Z+Q31 R0 FMAX ;Déplacement à la hauteur de sécurité
51 LP  PR+Q24  PA+90 R0 FQ9 ;Plongée
52 CP IPA-180 DR- FQ8 ;Fraisage sur trajectoire circulaire
53 LBL 1
54 L IY+Q26 R0 FQ8 ;Pas en Y
55 LP IPR+Q28 FQ8 ;Pas du rayon
56 CP IPA+180 DR+ FQ8 ;Fraisage sur trajectoire circulaire
57 L IY+Q26 R0 FQ8 ;Pas en Y
58 LP IPR+Q28 FQ8 ;Pas du rayon
59 CP IPA-180 DR- FQ8 ;Fraisage sur trajectoire circulaire
60 CALL LBL 1 REPQ29 ;Répétitions
61 ;
62 ;Dégagement et fin de programme
63 L  Z+100 R0 FMAX M2
64 END PGM 7005-FR MM