0 BEGIN PGM 5005_FR MM 
1 ;Programme permettant d'ébavurer un tenon ou un
2 ;perçage sur une surface inclinée à l'aide
3 ;d'une fraise de forme.
4 ;L'usinage est effectué sur trois axes linéaires,
5 ;sans inclinaison du plan d'usinage. Il vous
6 ;faut commencer par définir tous les paramètres
7 ;nécessaires. Puis un appel de programme a lieu
8 ;dans ce programme pour préfraiser la pièce. Le
9 ;cas échéant, vous devrez également apporter
10 ;des modifications dans le programme appelé.
11 ;Après l'appel de programme, vous définissez
12 ;l'outil avec lequel l'ébavurage doit être
13 ;réalisé. La CN le positionne alors à la
14 ;position de départ. Puis elle calcule les
15 ;coordonnées des différents axes, avant de les
16 ;approcher.
17 ;Ensuite, la CN calcule à chaque fois le point
18 ;suivant, avec ses coordonnées X, Y et Z, et
19 ;l'approche. Cette étape est répétée jusqu'à ce
20 ;que l'angle final soit atteint.
21 ;Le nombre de points qui composent l'usinage est
22 ;à définir au paramètre DIVISION.
23 ;
24 ;!Important! La CN calcule la trajectoire de
25 ;l'outil de manière à ce que le centre de l'outil
26 ;parcoure le rayon défini.
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 =+50 ;RAYON
33 FN 0: Q3 =+0 ;ANGLE DE DÉPART
34 FN 0: Q4 =+360 ;ANGLE FINAL
35 FN 0: Q7 =+50 ;CENTRE DU CERCLE X
36 FN 0: Q8 =+50 ;CENTRE DU CERCLE Y
37 FN 0: Q9 =-20 ;CENTRE DU CERCLE Z
38 FN 0: Q11 =+10 ;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 FRAISAGE
43 FN 0: Q25 =+5 ;POSITION DE SÉCURITE EN Z
44 FN 0: Q26 =+360 ;DIVISION
45 ;Fin de la définition des paramètres
46 ;
47 ;Fraisage de la pièce brute
48 CALL PGM 50051_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 ;Activation de la rotation définie
64 CYCL DEF 7.0 NULLPUNKT
65 CYCL DEF 7.1  X+Q7
66 CYCL DEF 7.2  Y+Q8
67 CYCL DEF 7.3  Z+Q9
68 ;Angle actuel égal à l'angle de départ
69 CYCL DEF 10.0 DREHUNG
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 ;Pas angulaire
Q38 = TAN Q11 ;Recalculer l'angle d'inclinaison
74 FN 0: Q46 =+0 ;Compteur
75 CALL LBL 2 ;Appel du calcul
76 L  X+Q41  Y+Q42 R0 FQ20 M3 ;Approche du premier point en X et en Y
77 L  Z+Q43 R0 FQ20 ;Approche du premier point en Z
78 LBL 1 ;Répétitions
79 FN 1: Q36 =+Q36 + +Q35 ;Calcul du nouvel angle
80 FN 1: Q46 =+Q46 + +1 ;Synchroniser le compteur
81 CALL LBL 2 ;Appel des calculs
82 L  X+Q41  Y+Q42  Z+Q43 FQ21 ;Approche du nouveau point
83 FN 12: IF +Q46 LT +Q26 GOTO LBL 1 ;Comparaison du compteur
84 ;Réinitialisation de la rotation
85 CYCL DEF 10.0 DREHUNG
86 CYCL DEF 10.1  ROT+0
87 ;Réinitialisation du décalage du point zéro
88 CYCL DEF 7.0 NULLPUNKT
89 CYCL DEF 7.1  X+0
90 CYCL DEF 7.2  Y+0
91 CYCL DEF 7.3  Z+0
92 LBL 0 ;Retour en arrière
93 ;
94 LBL 2 ;Calculs
95 FN 7: Q31 = COS +Q36 ;Calcul de la nouvelle coordonnée X
96 FN 3: Q31 =+Q31 * +Q1 ;Calcul de la nouvelle coordonnée X
97 FN 3: Q41 =+Q31 * +1 ;Calcul de la nouvelle coordonnée X
98 FN 6: Q32 = SIN +Q36 ;Calcul de la nouvelle coordonnée Y
99 FN 3: Q32 =+Q32 * +Q1 ;Calcul de la nouvelle coordonnée Y
100 FN 3: Q42 =+Q32 * +1 ;Calcul de la nouvelle coordonnée Y
101 FN 3: Q43 =+Q42 * +Q38 ;Calcul de la nouvelle coordonnée Z
102 FN 1: Q43 =+Q43 + +Q12 ;Calcul de la nouvelle coordonnée Z
103 LBL 0
104 END PGM 5005_FR MM