0 BEGIN PGM 3200_FR MM 
1 ;Programme CN permettant de réaliser un passage
2 ;de câbles. Celui-ci se compose d'un perçage et
3 ;d'une rainure, arrondis par un rayon pour servir
4 ;de protection anti-courbure L'usinage est réalisé
5 ;avec un seul et même outil.
6 ;Au début du programme, vous définissez l'outil,
7 ;ainsi que tous les paramètres d'usinage utiles.
8 ;Vous devez veiller à ce que l'outil puisse plonger
9 ;à la verticale et à ce que la longueur du tranchant
10 ;dans l'axe d'outil soit plus grande que celle du
11 ;rayon d'arrondi à réaliser.
12 ;La CN commence ensuite par amener l'outil à la
13 ;position de perçage, puis à la distance d'approche.
14 ;Puis la CN déplace l'outil jusqu'à la profondeur de
15 ;perçage, avec l'avance de perçage définie. Une fois
16 ;cette profondeur atteinte, elle ramène l'outil à la
17 ;profondeur de la rainure, puis lui fait parcourir la
18 ;longueur de la rainure avec l'avance de fraisage.
19 ;Veuillez noter que ce mouvement s'effectue toujours
20 ;dans le sens X+. Vous définissez le sens de la
21 ;rainure avec le paramètre "Rotation". Une fois le
22 ;point final de la rainure atteint, la CN amène
23 ;l'outil à la distance d'approche, avant de le ramener
24 ;au centre de perçage. Là, elle amène l'outil au point
25 ;de départ du rayon, sur l'axe Z.
26 ;La CN décompose le rayon en plusieurs sections
27 ;linéaires individuelles et parcourt chacune d'entre
28 ;elles à chaque répétition de partie de programme.
29 ;Le nombre de trajectoires se définit au paramètre Q12.
30 ;
31 ;
32 ;
33 BLK FORM 0.1 Z X-10 Y-10 Z-30
34 BLK FORM 0.2  X+30  Y+10  Z+0
35 ;
36 ;PROGRAMMATION
37 FN 0: Q1 =+0 ;POSITION X PERCAGE
38 FN 0: Q2 =+0 ;POSITION Y PERCAGE
39 FN 0: Q3 =+10 ;POSITION ANGULAIRE
40 FN 0: Q4 =+2 ;DISTANCE D'APPROCHE
41 FN 0: Q5 =-30 ;PROFONDEUR PERCAGE
42 FN 0: Q6 =+300 ;AVANCE DE LA PASSE EN PROFONDEUR
43 FN 0: Q7 =-5 ;PROFONDEUR RAINURE
44 FN 0: Q8 =+6000 ;AVANCE RETRAIT
45 FN 0: Q9 =+20 ;LONGUEUR RAINURE
46 FN 0: Q10 =+1000 ;AVANCE FRAISAGE
47 FN 0: Q11 =+10 ;RAYON D'ARRONDI
48 FN 0: Q12 =+45 ;NOMBRE DE PAS DANS LE RAYON
49 ;FIN DE LA PROGRAMMATION
50 ;
51 ;Appel de l'outil de fraisage
52 TOOL CALL 5 Z S9000
53 L  Z+100 R0 FMAX M3 ;Dégagement
54 ;
55 ;Calculs
56 FN 2: Q21 =+Q7 - +Q11 ;Centre de cercle en Z
57 FN 4: Q22 =+90 DIV +Q12 ;Incrément angulaire
58 FN 2: Q23 =+Q12 - +1 ;Nombre de répétitions
59 ;Fin des calculs
60 ;
61 ;Décalage du point zéro au centre du trou
62 CYCL DEF 7.0 POINT ZERO
63 CYCL DEF 7.1  X+Q1
64 CYCL DEF 7.2  Y+Q2
65 ;Rotation
66 CYCL DEF 10.0 ROTATION
67 CYCL DEF 10.1  ROT+Q3
68 ;
69 L  X+0  Y+0 R0 FMAX ;Pré-positionnement au centre du trou
70 L  Z+Q4 F9999 ;Déplacement à la distance d'approche
71 L  Z+Q5 FQ6 ;Perçage
72 L  Z+Q7 FQ8 ;Retrait à la profondeur de la rainure
73 L  X+Q9 FQ10 ;Fraisage de la rainure
74 L  Z+Q4 FQ8 ;Retrait à la distance d'approche
75 L  X+0  Y+0 R0 FMAX ;Pré-positionnement au centre du trou
76 CC  Z+Q21  X+Q11 ;Centre du rayon
77 LP  PR+Q11  PA-90 R0 FQ6 ;Approche du point de départ du rayon
78 LBL 2 ;Boucle
79 LP IPA+Q22 FQ10 ;Parcours d'un pas angulaire
80 CALL LBL 2 REPQ23 ;Répétition de la boucle
81 L  Z+Q4 R0 FMAX ;Déplacement à la distance d'approche
82 L  Z+100 R0 FMAX M5 ;Dégagement
83 ;
84 ;Réinitialisation du décalage du point zéro et de la rotation
85 CYCL DEF 10.0 ROTATION
86 CYCL DEF 10.1  ROT+0
87 CYCL DEF 7.0 POINT ZERO
88 CYCL DEF 7.1  X+0
89 CYCL DEF 7.2  Y+0
90 CYCL DEF 7.3  Z+0
91 M30 ;Fin du programme
92 END PGM 3200_FR MM