0  BEGIN PGM 7035_FR MM 
1  ;Programme permettant d'usiner, par l'extérieur, un
2  ;corps en forme de tore vertical.
3  ;L'usinage est exécuté avec une fraise boule, en
4  ;parcourant la trajectoire de fraisage dans le
5  ;plan Y/Z tout en effectuant la passe latéralement
6  ;dans le plan X/Y.
7  ;
8  ;Introduction des paramètres
9  FN 0: Q1 =+0 ;CENTRE PREMIER AXE
10 FN 0: Q2 =+0 ;CENTRE DEUXIEME AXE
11 FN 0: Q3 =+30 ;RAYON DU TORE R
12 FN 0: Q4 =-51 ;COORDONNEE Z DU CENTRE DU TORE
13 FN 0: Q5 =+20 ;RAYON DU TORE r
14 FN 0: Q10 =+20 ;HAUTEUR DE SECURITE
15 FN 0: Q11 =+80 ;NOMBRE DE TRAJECTOIRES DE FRAISAGE
16 FN 0: Q14 =+600 ;AVANCE FRAISAGE
17 FN 0: Q15 =+9999 ;AVANCE DE PRE-POSITIONNEMENT
18 FN 0: Q16 =+300 ;AVANCE DE PLONGEE
19 ;Fin de la programmation des paramètres
20 ;
21 BLK FORM 0.1 Z X-20 Y-50 Z-51
22 BLK FORM 0.2  X+20  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 1: 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 ;de la 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 ;de la 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 7035_FR MM