0 BEGIN PGM 3230_FR MM 
1 ;Programme permettant de fraiser un rayon au niveau
2 ;de la bordure d'un trou.
3 ;L'usinage est effectué avec une fraise deux tailles.
4 ;La trajectoire de fraisage est parcourue le long
5 ;d'une trajectoire circulaire linéarisée dans le
6 ;plan X/Z. Le nombre de pas linéaires par quart de
7 ;cercle se définit au paramètre Q6. De même, vous
8 ;définissez la fréquence à laquelle cette trajectoire
9 ;de fraisage doit être répétée pour fraiser le rayon
10 ;sur tout son périmètre (Q4).
11 ;
12 BLK FORM 0.1 Z X+0 Y+0 Z-30
13 BLK FORM 0.2  X+30  Y+30  Z+0
14 ;
15 ;Perçage
16 ;Appel d'outil : foret
17 TOOL CALL 237 Z S3000 F200
18 L  Z+100 R0 FMAX M3
19 L  X+15  Y+15 R0 FMAX
20 L  Z+2 R0 FMAX
21 L  Z-20 R0 F AUTO
22 L  Z+100 R0 FMAX
23 ;
24 ;Fraisage de rayons
25 ;Définition des paramètres
26 FN 0: Q1 =+15 ;CENTRE 1ER AXE
27 FN 0: Q2 =+15 ;CENTRE 2EME AXE
28 FN 0: Q3 =+10 ;RAYON DU TROU
29 FN 0: Q4 =+100 ;NOMBRE DE TRAJECTOIRES DE FRAISAGE
30 FN 0: Q5 =+5 ;RAYON A USINER
31 FN 0: Q6 =+30 ;DIVISION DES TRAJECTOIRES DE FRAISAGE
32 FN 0: Q7 =+2 ;DISTANCE D'APPROCHE
33 FN 0: Q8 =+300 ;AVANCE DE LA PASSE EN PROFONDEUR
34 FN 0: Q9 =+1200 ;AVANCE FRAISAGE
35 ;Fin de la programmation des paramètres
36 ;
37 ;Appel de la fraise deux tailles
38 TOOL CALL 6 Z S8000
39 ;
40 ;Calculs
41 FN 4: Q10 =+360 DIV +Q4 ;Pas angulaire dans le plan
42 FN 2: Q11 =+Q4 - +1 ;Nombre de répétitions dans le plan
43 FN 4: Q12 =+90 DIV +Q6 ;Pas angulaire de la trajectoire de fraisage
44 FN 2: Q13 =+Q6 - +1 ;Nombre de répétitions par trajectoire de fraisage
45 FN 1: Q14 =+Q3 + +Q5 ;Centre du rayon
46 FN 2: Q15 =+Q14 - +Q108 ;Compensation du rayon
47 ;Fin des calculs
48 ;
49 L  X+Q1  Y+Q2 R0 F9999 M3 ;Pré-positionnement
50 L  Z+Q7 ;Déplacement à la hauteur de sécurité
51 L  Z-Q5 FQ8 ;Plongée
52 ;Décalage du point zéro au centre
53 CYCL DEF 7.0 POINT ZERO
54 CYCL DEF 7.1  X+Q1
55 CYCL DEF 7.2  Y+Q2
56 LBL 1
57 CC  X-Q15  Z-Q5 ;Définition du CC du rayon
58 LP  PR+Q5  PA+90 R0 FQ9 ;Approche du contour
59 LBL 2
60 LP IPA-Q12 ;Parcours du segment de rayon linéaire
61 CALL LBL 2 REPQ13 ;Appel de répétition
62 L  Z+Q7 ;Déplacement à la hauteur de sécurité
63 L  X+0  Y+0 ;Nouveau pré-positionnement
64 ;Rotation dans le plan
65 CYCL DEF 10.0 ROTATION
66 CYCL DEF 10.1 IROT+Q10
67 CALL LBL 1 REPQ11 ;Répétition de la trajectoire de fraisage
68 ;
69 ;Réinitialisation de la rotation
70 CYCL DEF 10.0 ROTATION
71 CYCL DEF 10.1  ROT+0
72 ;Réinitialisation du point zéro
73 CYCL DEF 7.0 POINT ZERO
74 CYCL DEF 7.1  X+0
75 CYCL DEF 7.2  Y+0
76 CYCL DEF 7.3  Z+0
77 ;Dégagement et fin de programme
78 L  Z+20 R0 FMAX M2
79 END PGM 3230_FR MM