0  BEGIN PGM 7025_FR MM 
1  ;Programme permettant d'usiner, par l'extérieur,
2  ;un corps en forme de tore horizontal.
3  ;Cet usinage est réalisé à l'aide d'une fraise
4  ;boule, selon des lignes de niveau, de manière
5  ;à ce que soient parcourues à la fois la
6  ;trajectoire de fraisage dans le plan X/Y et la
7  ;passe dans le plan X/Z.
8  ;
9  ;Définition des paramètres
10 FN 0: Q1 =+50 ;CENTRE PREMIER AXE
11 FN 0: Q2 =+50 ;CENTRE DEUXIEME AXE
12 FN 0: Q3 =+25 ;RAYON DU TORE R
13 FN 0: Q4 =+0 ;COORDONNEE Z DU CENTRE DU TORE
14 FN 0: Q5 =+20 ;RAYON DU TORE r
15 FN 0: Q10 =+20 ;HAUTEUR DE SECURITE
16 FN 0: Q11 =+90 ;NOMBRE DE LIGNES DE NIVEAU
17 FN 0: Q14 =+600 ;AVANCE DE FRAISAGE
18 FN 0: Q15 =+9999 ;AVANCE DE PRE-POSITIONNEMENT
19 FN 0: Q16 =+300 ;AVANCE DE PLONGEE
20 ;Fin de la programmation des paramètres
21 ;
22 BLK FORM 0.1 Z X+0 Y+0 Z-5
23 BLK FORM 0.2  X+100  Y+100  Z+21
24 ;
25 ;Appel de la fraise boule
26 TOOL CALL 155 Z S8000
27 TOOL CALL  DL-Q108 ;Correction de la longueur de la valeur du rayon de la boule
28 ;
29 ;Calculs
30 FN 1: Q6 =+Q5 + +Q108 ;RAYON CORRIGE
31 FN 1: Q7 =+Q1 + +Q3 ;Coordonnée X du centre du tore
32 FN 4: Q12 =+180 DIV +Q11 ;Incrément angulaire
33 FN 2: Q13 =+Q11 - +1 ;Nombre de répétitions
34 ;Fin des calculs
35 ;
36 L  X+Q1  Y+Q2 R0 FQ15 M3 ;Prépositionnement au centre
37 L  Z+Q10 FQ15 ;Déplacement à la hauteur de sécurité
38 CC  Z+Q4  X+Q7 ;Définition du centre du plan X/Z
39 LP  PR+Q6  PA-90 R0 FQ16 ;Approche du premier rayon, en profondeur
40 CC  X+Q1  Y+Q2 ;Définition du centre du plan X/Y
41 CP IPA-360 DR- FQ14 ;Parcours de la trajectoire circulaire
42 LBL 1 ;Répétition
43 CC  Z+Q4  X+Q7 ;Définition du centre du plan X/Z
44 CP IPA+Q12 DR+ FQ14 ;Parcours d'un pas angulaire
45 CC  X+Q1  Y+Q2 ;Définition du centre du plan X/Y
46 CP IPA-360 DR- FQ14 ;Parcours de la trajectoire circulaire
47 CALL LBL 1 REPQ13 ;Appel de répétition
48 L  Z+100 R0 FQ15 M2 ;Dégagement et fin de programme
49 END PGM 7025_FR MM