0 BEGIN PGM 7100_fr MM 
1 ;Programme pour l'usinage extérieur d'un
2 ;hémisphère avec une fraise boule. Cet
3 ;usinage est effectué selon des lignes
4 ;de niveau, de manière à ce que soient
5 ;parcourues à la fois la trajectoire de
6 ;fraisage dans le plan X/Y et la passe
7 ;dans le plan X/Z.
8 ;
9 BLK FORM 0.1 Z X-50 Y-50 Z-55
10 BLK FORM 0.2  X+50  Y+50  Z+0
11 ;
12 ;Définition des paramètres
13 FN 0: Q1 =+0 ;CENTRE DE LA BOULE SUR L'AXE X
14 FN 0: Q2 =+0 ;CENTRE DE LA BOULE SUR L'AXE Y
15 FN 0: Q3 =-50 ;CENTRE DE LA BOULE SUR L'AXE Z
16 FN 0: Q4 =+50 ;RAYON DE LA BOULE
17 FN 0: Q5 =+45 ;NOMBRE DE LIGNES DE NIVEAU
18 FN 0: Q6 =+3 ;DISTANCE DE SÉCURITÉ
19 FN 0: Q7 =+500 ;AVANCE DE LA PASSE EN PROFONDEUR
20 FN 0: Q8 =+800 ;AVANCE FRAISAGE
21 FN 0: Q9 =+5 ;OUTIL RAYON DE LA BOULE
22 ;Fin de la définition des paramètres
23 ;
24 ;Appel de la fraise boule
25 TOOL CALL 157 Z S8000 DL-Q9
26 ;
27 ;
28 ;Calculs
29 FN 1: Q10 =+Q4 + +Q9 ;Rayon effectif au centre de l'outil
30 FN 1: Q11 =+Q10 + +Q6 ;Rayon de pré-positionnement
31 FN 4: Q12 =+90 DIV +Q5 ;Pas angulaire
32 FN 2: Q13 =+Q5 - +1 ;Nombre de répétitions
33 ;Fin des calculs
34 ;
35 ;Pré-positionnement
36 L  Z+200 R0 FMAX
37 L  X+Q1  Y+Q2 R0 F9999 M3
38 CC  X+Q1  Z+Q3
39 LP  PR+Q11  PA+0 R0 FMAX
40 LP  PR+Q10 R0 FQ7
41 LBL 1 ;Répétitions
42 CC  Z+Q3  X+Q1
43 CP IPA+Q12 DR+ FQ7
44 CC  X+Q1  Y+Q2
45 CP IPA+360 DR+ FQ8
46 CALL LBL 1 REPQ13
47 ;
48 ;Fin du programme
49 L  Z+100 R0 FMAX M30
50 END PGM 7100_fr MM