0 BEGIN PGM 7065-FR MM 
1 ;Programme pour l'usinage intérieur d'une
2 ;surface de cylindre avec une fraise boule.
3 ;L'axe du cylindre est parallèle à l'axe Y.
4 ;L'usinage se déroule dans les lignes de
5 ;niveau, de sorte que la trajectoire de
6 ;fraisage est en Y et que la passe
7 ;s'effectue dans les axes X et Z.
8 ;
9 BLK FORM 0.1 Z X-35 Y+0 Z-50
10 BLK FORM 0.2  X+35  Y+100  Z+0
11 ;
12 ;Définition des paramètres
13 FN 0: Q1 =+0 ;CENTRE DU CYLINDRE SUR L'AXE X
14 FN 0: Q2 =+0 ;CENTRE DU CYLINDRE SUR L'AXE Z
15 FN 0: Q3 =+0 ;POINT DE DÉPART EN Y
16 ;            ; COORDONNÉE MINIMALE
17 FN 0: Q4 =+100 ;POINT FINAL SUR L'AXE Y
18 ;            ; COORDONNÉE MAXIMALE
19 FN 0: Q5 =+100 ;DIVISION
20 ;            ; NOMBRE DE LIGNES DE NIVEAU
21 FN 0: Q6 =+30 ;RAYON DU CYLINDRE
22 FN 0: Q7 =+90 ;ANGLE DE DÉPART DANS LE PLAN X/Z
23 FN 0: Q8 =+270 ;ANGLE FINAL DANS LE PLAN X/Z
24 FN 0: Q9 =+10 ;HAUTEUR DE SÉCURITÉ
25 FN 0: Q10 =+300 ;AVANCE FRAISAGE
26 ;Fin de la définition des paramètres
27 ;
28 ;Appel de la fraise boule
29 TOOL CALL 157 Z S8000
30 TOOL CALL  DL-Q108 ;Variation de longueur vers le centre de la boule
31 ;
32 ;
33 ;Calculs
34 FN 2: Q13 =+Q3 - +Q108 ;Position de départ en Y
35 FN 1: Q14 =+Q4 + +Q108 ;Position finale en Y
36 FN 1: Q26 =+Q6 + -Q108 ;Rayon effectif jusqu'au centre de l'outil
37 FN 2: Q27 =+Q8 - +Q7 ;Plage d'angle
38 FN 4: Q28 =+Q27 DIV +Q5 ;Pas angulaire
39 FN 1: Q29 =+Q9 + +Q108 ;Pré-positionnement en Z
40 FN 0: Q30 =+0 ;Compteur
41 ;Fin des calculs
42 ;
43 ;Contournages
44 L  Z+100 R0 FMAX ;Déplacement à la hauteur de sécurité
45 L  Y+Q13  X+Q1 R0 F9999 M3 ;Pré-positionnement en X/Y
46 L  Z+Q29 R0 FMAX ;Pré-positionnement en Z
47 CC  Z+Q2  X+Q1 ;Centre du cylindre
48 LP  PR+Q26  PA+Q7 FQ10 ;Approche de la hauteur initiale
49 LBL 1 ;Marque de saut
50 CP IPA+Q28 DR+ FQ10 ;Passe en profondeur
51 L  Y+Q14 FQ10 ;Trajectoire de fraisage
52 FN 1: Q30 =+Q30 + +1 ;Compteur
53 FN 9: IF +Q30 EQU +Q5 GOTO LBL 99 ;Comparaison pour savoir si la division est atteinte
54 CP IPA+Q28 DR+ FQ10 ;Passe en profondeur
55 L  Y+Q13 FQ10 ;Trajectoire de fraisage
56 FN 1: Q30 =+Q30 + +1 ;Compteur
57 FN 12: IF +Q30 LT +Q5 GOTO LBL 1 ;Comparaison pour savoir si le compteur est atteint
58 LBL 99
59 ;
60 ;Dégagement et fin de programme
61 L  Z+50 R0 FMAX M2
62 END PGM 7065-FR MM