0 BEGIN PGM 31701_FR MM 
1 ;Programme permettant de fraiser un cône
2 ;
3 ;
4 ;Définition des paramètres
5 FN 0: Q1 =+50 ;CENTRE PREMIER AXE
6 FN 0: Q2 =+50 ;CENTRE DEUXIEME AXE
7 FN 0: Q3 =+0 ;COORDONNEE Z EN HAUT
8 FN 0: Q5 =+46.5 ;RAYON EN HAUT
9 FN 0: Q4 =-30 ;COORDONNEE Z EN BAS
10 FN 0: Q6 =+38.5 ;RAYON EN BAS
11 FN 0: Q7 =+2 ;DISTANCE D'APPROCHE
12 FN 0: Q8 =+600 ;AVANCE FRAISAGE
13 FN 0: Q9 =+9999 ;AVANCE RETRAIT
14 FN 0: Q10 =+180 ;DIVISION
15 ;Fin de la programmation des paramètres
16 ;
17 ;Appel de la fraise deux tailles
18 TOOL CALL 8 Z S5555
19 ;
20 ;Calculs
21 FN 1: Q11 =+Q3 + +Q7 ;Hauteur de sécurité
22 FN 2: Q12 =+Q5 - +Q108 ;Rayon compensé en haut
23 FN 2: Q13 =+Q6 - +Q108 ;Rayon compensé en bas
24 FN 4: Q14 =+360 DIV +Q10 ;Incrément angulaire
25 FN 2: Q15 =+Q10 - +1 ;Nombre de répétitions
26 ;Fin des calculs
27 ;
28 L  Z+100 R0 FMAX M3 ;Dégagement
29 ;
30 ;Décalage du point zéro au centre
31 CYCL DEF 7.0 POINT ZERO
32 CYCL DEF 7.1  X+Q1
33 CYCL DEF 7.2  Y+Q2
34 L  X+0  Y+0 R0 FMAX ;Pré-positionnement
35 L  Z+Q11 R0 FMAX ;Déplacement à la hauteur de sécurité
36 LBL 1
37 L  X+Q12  Y+0 R0 FQ9 ;Approche du rayon supérieur
38 L  Z+Q3 R0 FQ8 ;Approche de la surface en Z
39 L  X+Q13  Y+0  Z+Q4 ;Déplacement au rayon inférieur et à la profondeur
40 L  X+0  Y+0 R0 ;Déplacement au centre
41 L  Z+Q11 R0 FQ9 ;Déplacement à la hauteur de sécurité
42 ;Incrément angulaire
43 CYCL DEF 10.0 ROTATION
44 CYCL DEF 10.1 IROT+Q14
45 CALL LBL 1 REPQ15 ;Répétition
46 ;
47 ;Réinitialisation de la conversion des coordonnées
48 CYCL DEF 10.0 ROTATION
49 CYCL DEF 10.1  ROT+0
50 CYCL DEF 7.0 POINT ZERO
51 CYCL DEF 7.1  X+0
52 CYCL DEF 7.2  Y+0
53 CYCL DEF 7.3  Z+0
54 ;Dégagement et fin de programme
55 L  Z+100 R0 FQ9
56 END PGM 31701_FR MM