0 BEGIN PGM 7040_FR MM 
1 ;Programme permettant d'usiner, par l'intérieur,
2 ;un corps en forme de tore vertical.
3 ;L'usinage est exécuté avec une fraise boule,
4 ;en parcourant la trajectoire de fraisage dans
5 ;le plan Y/Z tout en effectuant la passe
6 ;latéralement dans le plan X/Y.
7 ;
8 ;Définition des paramètres
9 FN 0: Q1 =+0 ;CENTRE PREMIER AXE
10 FN 0: Q2 =+0 ;CENTRE DEUXIÈME AXE
11 FN 0: Q3 =+25 ;RAYON DU TORE R
12 FN 0: Q4 =+0 ;COORDONNEE Z DU CENTRE DU TORE
13 FN 0: Q5 =+20 ;RAYON DU TORE R
14 FN 0: Q10 =+20 ;HAUTEUR DE SÉCURITÉ
15 FN 0: Q11 =+80 ;NOMBRE DE TRAJECTOIRES DE FRAISAGE
16 FN 0: Q14 =+600 ;AVANCE FRAISAGE
17 FN 0: Q15 =+9999 ;AVANCE DE PRÉ-POSITIONNEMENT
18 FN 0: Q16 =+300 ;AVANCE DE PLONGÉE
19 ;Fin de la définition des paramètres
20 ;
21 BLK FORM 0.1 Z X-21 Y-50 Z-51
22 BLK FORM 0.2  X+21  Y+50  Z+1
23 ;
24 ;Appel de la fraise boule
25 TOOL CALL 157 Z S8000
26 TOOL CALL  DL-Q108 ;Correction de la longueur de la valeur du rayon de la boule
27 ;
28 ;Calculs
29 FN 2: Q6 =+Q5 - +Q108 ;Rayon corrigé
30 FN 1: Q18 =+Q6 + +Q1 ;Point de départ X
31 FN 1: Q19 =+Q2 + +Q3 ;Coordonnée Y+ du centre du tore
32 FN 2: Q20 =+Q2 - +Q3 ;Coordonnée Y- du centre du tore
33 FN 4: Q12 =+180 DIV +Q11 ;Pas angulaire
34 FN 4: Q13 =+Q11 DIV +2 ;Nombre de répétitions
35 FN 2: Q13 =+Q13 - +1 ;Nombre de répétitions
36 ;Fin des calculs
37 ;
38 L  X+Q18  Y+Q20  Z+Q10 R0 FQ15 M3 ;Pré-positionnement
39 L  Z+Q4 FQ16 ;Plongée
40 ;
41 LBL 1
42 CC  Y+Q2  Z+Q4 ;CC pour la trajectoire de fraisage
43 CP IPA+180 DR+ FQ14 ;Trajectoire de fraisage
44 CC  X+Q1  Y+Q19 ;CC pour la passe latérale
45 CP IPA+Q12 DR+ FQ14 ;Passe
46 CC  Y+Q2  Z+Q4 ;CC pour la trajectoire de fraisage
47 CP IPA-180 DR- FQ14 ;Trajectoire de fraisage
48 CC  X+Q1  Y+Q20 ;CC pour la passe latérale
49 CP IPA-Q12 DR- FQ14 ;Passe
50 CALL LBL 1 REPQ13 ;Appel de la répétition
51 L  Z+100 R0 FQ15 M30 ;Dégagement et fin de programme
52 END PGM 7040_FR MM