0 BEGIN PGM 7085_FR MM 
1 ;Programme pour usiner un cône de
2 ;l'intérieur à l'aide d'une fraise deux
3 ;tailles.
4 ;L'usinage se déroule avec un mouvement
5 ;en X et Z. Dans un paramètre, vous
6 ;définissez la fréquence à laquelle
7 ;cette trajectoire de fraisage doit
8 ;être répétée pour fraiser le cône en
9 ;continu (Q10)
10 ;
11 BLK FORM 0.1 Z X+0 Y+0 Z-30
12 BLK FORM 0.2  X+50  Y+50  Z+0
13 ;
14 ;Définition des paramètres
15 FN 0: Q1 =+25 ;CENTRE PREMIER AXE
16 FN 0: Q2 =+25 ;CENTRE DEUXIÈME AXE
17 FN 0: Q3 =+0 ;COORDONNÉE Z EN HAUT
18 FN 0: Q5 =+25 ;RAYON EN HAUT
19 FN 0: Q4 =-20 ;COORDONNÉE Z EN BAS
20 FN 0: Q6 =+15 ;RAYON EN BAS
21 FN 0: Q7 =+2 ;DISTANCE DE SÉCURITÉ
22 FN 0: Q8 =+600 ;AVANCE FRAISAGE
23 FN 0: Q9 =+9999 ;AVANCE RETRAIT
24 FN 0: Q10 =+180 ;DIVISION
25 ;Fin de la définition des paramètres
26 ;
27 ;Appel de la fraise deux tailles
28 TOOL CALL 8 Z S5555
29 ;
30 ;Calculs
31 FN 1: Q11 =+Q3 + +Q7 ;Hauteur de sécurité
32 FN 2: Q12 =+Q5 - +Q108 ;Rayon compensé en haut
33 FN 2: Q13 =+Q6 - +Q108 ;Rayon compensé en bas
34 FN 4: Q14 =+360 DIV +Q10 ;Pas angulaire
35 FN 2: Q15 =+Q10 - +1 ;Nombre de répétitions
36 ;Fin des calculs
37 ;
38 L  Z+100 R0 FMAX M3 ;Dégagement
39 ;
40 ;Décalage du point zéro au centre
41 CYCL DEF 7.0 NULLPUNKT
42 CYCL DEF 7.1  X+Q1
43 CYCL DEF 7.2  Y+Q2
44 L  X+0  Y+0 R0 FMAX ;Pré-positionnement
45 L  Z+Q11 R0 FMAX ;Déplacement à la hauteur de sécurité
46 LBL 1
47 L  X+Q12  Y+0 R0 FQ9 ;Approche du rayon supérieur
48 L  Z+Q3 R0 FQ8 ;Approche de la surface en Z
49 L  X+Q13  Y+0  Z+Q4 ;Déplacement au rayon inférieur et à la profondeur
50 L  X+0  Y+0 R0 ;Déplacement au centre
51 L  Z+Q11 R0 FQ9 ;Déplacement à la hauteur de sécurité
52 ;Pas angulaire
53 CYCL DEF 10.0 DREHUNG
54 CYCL DEF 10.1 IROT+Q14
55 CALL LBL 1 REPQ15 ;Répétition
56 ;
57 ;Réinitialisation de la conversion des coordonnées
58 CYCL DEF 10.0 DREHUNG
59 CYCL DEF 10.1  ROT+0
60 CYCL DEF 7.0 NULLPUNKT
61 CYCL DEF 7.1  X+0
62 CYCL DEF 7.2  Y+0
63 CYCL DEF 7.3  Z+0
64 ;Dégagement et fin de programme
65 L  Z+100 R0 FQ9 M30
66 END PGM 7085_FR MM