0  BEGIN PGM 5100_FR MM 
1  ;Programme CN permettant d'ébavurer un trou
2  ;incliné sur une surface plane, à l'aide
3  ;d'une fraise de formage.
4  ;L'usinage est effectué sur trois axes
5  ;linéaires, sans inclinaison du plan d'usinage.
6  ;Il vous faut commencer par définir tous les
7  ;paramètres nécessaires. Puis un appel de
8  ;programme a lieu dans ce programme pour
9  ;préfraiser la pièce. Le cas échéant, il
10 ;vous faudra également apporter des
11 ;modifications dans le programme appelé.
12 ;Après l'appel de programme, vous définissez
13 ;l'outil avec lequel l'ébavurage doit être
14 ;réalisé. La CN le positionne alors à la
15 ;position de départ. Puis elle calcule les
16 ;coordonnées des différents axes, avant de
17 ;les approcher. Ensuite, la CN calcule chaque
18 ;fois le point suivant, avec ses coordonnées X,
19 ;Y et Z, et l'approche. Cette étape est répétée
20 ;jusqu'à ce que l'angle final soit atteint.
21 ;Le nombre de points qui composent l'usinage est
22 ;à définir au paramètre DIVISION.
23 ;!Important! La CN calcule la trajectoire de
24 ;l'outil de manière à ce que le centre de l'outil
25 ;parcourt le rayon défini.
26 ;
27 ;
28 BLK FORM 0.1 Z X+0 Y+0 Z-60
29 BLK FORM 0.2  X+100  Y+100  Z+0
30 ;
31 ;Définition des paramètres
32 FN 0: Q1 =+20 ;RAYON DU TROU
33 FN 0: Q3 =+0 ;ANGLE INITIAL
34 FN 0: Q4 =+360 ;ANGLE FINAL
35 FN 0: Q7 =+50 ;CENTRE DU TROU EN X
36 FN 0: Q8 =+50 ;CENTRE DU TROU EN Y
37 FN 0: Q9 =+0 ;COORDONNEES DE SURFACE
38 FN 0: Q11 =+35 ;ANGLE D'INCLINAISON A
39 FN 0: Q12 =-2 ;PROFONDEUR FRAISAGE
40 FN 0: Q13 =+0 ;ROTATION
41 FN 0: Q20 =+50 ;AVANCE DE LA PASSE EN PROFONDEUR
42 FN 0: Q21 =+500 ;AVANCE DE FRAISAGE
43 FN 0: Q25 =+5 ;POSITION DE SECURITE EN Z
44 FN 0: Q26 =+360 ;DIVISION
45 ;Fin de la programmation des paramètres
46 ;
47 ;Fraisage de la pièce brute
48 CALL PGM 51001_fr.h
49 ;
50 ;Appel de l'outil d'ébavurage
51 TOOL CALL 170 Z S3000
52 ;
53 L  Z+100 R0 F9998 M3 ;Déplacement à la hauteur de sécurité
54 CC  X+Q7  Y+Q8 ;Définition du centre du cercle
55 LP  PR+Q1  PA+Q3 ;Approche du point de départ
56 L  Z+Q25 ;Prépositionnement en Z
57 CALL LBL 10 ;Appel de l'usinage
58 ;
59 L  Z+100 R0 F9998 M2 ;Dégagement et fin de programme
60 ;
61 ;Sous-programmes d'usinage
62 LBL 10
63 ;Décalage du point zéro au centre la zone d'usinage
64 CYCL DEF 7.0 POINT ZERO
65 CYCL DEF 7.1  X+Q7
66 CYCL DEF 7.2  Y+Q8
67 CYCL DEF 7.3  Z+Q9
68 ;Activation de la rotation définie
69 CYCL DEF 10.0 ROTATION
70 CYCL DEF 10.1  ROT+Q13
71 FN 0: Q36 =+Q3 ;Angle actuel égal à l'angle de départ
72 FN 2: Q35 =+Q4 - +Q3 ;Angle d'ouverture
73 FN 4: Q35 =+Q35 DIV +Q26 ;Incrément angulaire
74 Q38 = COS Q11 ;Conversion de l'angle d'inclinaison
75 FN 4: Q2 =+Q1 DIV +Q38 ;Demi-axe Y
76 FN 0: Q46 =+0 ;Compteur
77 CALL LBL 2 ;Appel du calcul
78 L  X+Q41  Y+Q42 R0 FQ20 M3 ;Approche du premier point en X et en Y
79 L  Z+Q43 R0 FQ20 ;Approche du premier point en Z
80 LBL 1 ;Répétitions
81 FN 1: Q36 =+Q36 + +Q35 ;Calcul du nouvel angle
82 FN 1: Q46 =+Q46 + +1 ;Synchronisation du compteur
83 CALL LBL 2 ;Appel des calculs
84 L  X+Q41  Y+Q42  Z+Q43 FQ21 ;Approche du nouveau point
85 FN 12: IF +Q46 LT +Q26 GOTO LBL 1 ;Comparaison du compteur
86 ;Réinitialisation de la rotation
87 CYCL DEF 10.0 ROTATION
88 CYCL DEF 10.1  ROT+0
89 ;Réinitialisation du décalage du point zéro
90 CYCL DEF 7.0 POINT ZERO
91 CYCL DEF 7.1  X+0
92 CYCL DEF 7.2  Y+0
93 CYCL DEF 7.3  Z+0
94 LBL 0 ;Retour en arrière
95 ;
96 LBL 2 ;Calculs
97 FN 7: Q31 = COS +Q36 ;Calcul de la nouvelle coordonnée X
98 FN 3: Q31 =+Q31 * +Q1 ;Calcul de la nouvelle coordonnée X
99 FN 3: Q41 =+Q31 * +1 ;Calcul de la nouvelle coordonnée X
100 FN 6: Q32 = SIN +Q36 ;Calcul de la nouvelle coordonnée Y
101 FN 3: Q32 =+Q32 * +Q2 ;Calcul de la nouvelle coordonnée Y
102 FN 3: Q42 =+Q32 * +1 ;Calcul de la nouvelle coordonnée Y
103 FN 0: Q43 =+Q12 ;Coordonnée Z
104 LBL 0
105 END PGM 5100_FR MM