0 BEGIN PGM 5025_FR MM 
1 ;Programme permettant d'ébavurer un trou
2 ;percé perpendiculairement à l'axe du
3 ;cylindre sur la surface de la gaine du
4 ;cylindre avec une fraise de forme.
5 ;L'usinage est effectué sur trois axes
6 ;linéaires, sans inclinaison du plan
7 ;d'usinage.
8 ;Il vous faut commencer par définir tous
9 ;les paramètres nécessaires. Ensuite,
10 ;une partie de programme avec appel
11 ;d'outil, positionnement et cycle
12 ;d'usinage est alors créée dans ce
13 ;programme pour créer le perçage.
14 ;Vous devez également définir tous les
15 ;paramètres dans cette section du
16 ;programme, car les paramètres décrits
17 ;ci-dessus ne sont efficaces que pour
18 ;l'ébavurage.
19 ;Après l'usinage du perçage, vous
20 ;définissez l'outil avec lequel
21 ;l'ébavurage doit être réalisé.
22 ;Ensuite, la CN calcule les coordonnées
23 ;des différents axes, avant de les
24 ;approcher.
25 ;Ensuite, la CN calcule à chaque fois le
26 ;point suivant, avec ses coordonnées
27 ;X, Y et Z, et l'approche. Cette étape
28 ;est répétée jusqu'à ce que le point de
29 ;départ soit de nouveau atteint.
30 ;Le nombre de points qui composent
31 ;l'usinage est à définir au paramètre
32 ;DIVISION.
33 ;!Important! La CN calcule le mouvement
34 ;de trajectoire pour le centre de l'outil.
35 ;Utilisez le paramètre DÉCALAGE DU CENTRE
36 ;DE L'OUTIL PAR RAPPORT AU RAYON (Q7)
37 ;pour définir la distance à laquelle le
38 ;centre de l'outil est éloigné du bord du
39 ;trou. Ici, vous devez prendre en compte
40 ;le signe ; si la valeur est positive, la
41 ;trajectoire du point central est
42 ;supérieure au rayon, si la valeur est
43 ;négative, elle est inférieure.
44 ;
45 ;Définition des paramètres
46 FN 0: Q3 =+100 ;RAYON DU CYLINDRE
47 FN 0: Q4 =+100 ;DIVISION
48 FN 0: Q5 =+3 ;INDIQUER LA PROFONDEUR DE MANIÈRE POSITIVE
49 FN 0: Q1 =+0 ;CENTRE DU TROU EN X
50 FN 0: Q6 =+60 ;RAYON DU TROU
51 FN 0: Q7 =-0.5 ;DÉCALAGE DU CENTRE DE L'OUTIL PAR RAPPORT AU RAYON
52 FN 0: Q10 =+20 ;DISTANCE DE SÉCURITÉ
53 FN 0: Q11 =+1000 ;AVANCE DE LA PASSE EN PROFONDEUR
54 FN 0: Q12 =+2000 ;AVANCE FRAISAGE
55 ;Fin de la définition des paramètres
56 ;
57 BLK FORM CYLINDER X RQ3 L200 DIST+100
58 ;
59 ;Déplacer le point zéro vers le centre du
60 ;trou et la surface du cylindre
61 CYCL DEF 7.0 NULLPUNKT
62 CYCL DEF 7.1  X+Q1
63 CYCL DEF 7.2  Z+Q3
64 ;
65 ;Appel de l'outil pour le perçage
66 TOOL CALL 8 Z S3000 F800
67 ;
68 L  Z+100 R0 FMAX M3 ;Déplacement à la hauteur de sécurité
69 L  X+0  Y+0 R0 FMAX ;Approche du centre du trou
70 L  Z+Q10 R0 FMAX ;Déplacement à la distance de sécurité
71 FN 3: Q80 =+Q6 * +2 ;Calcul du diamètre de perçage
72 ;Cycle pour le perçage
73 CYCL DEF 252 KREISTASCHE ~
   Q215=+0    ;BEARBEITUNGS-UMFANG ~
    Q223=+Q80  ;KREISDURCHMESSER ~
    Q368=+0    ;AUFMASS SEITE ~
    Q207= AUTO ;VORSCHUB FRAESEN ~
    Q351=+1    ;FRAESART ~
    Q201=-100  ;TIEFE ~
    Q202=+10   ;ZUSTELL-TIEFE ~
    Q369=+0    ;AUFMASS TIEFE ~
    Q206=+300  ;VORSCHUB TIEFENZ. ~
    Q338=+0    ;ZUST. SCHLICHTEN ~
    Q200=+2    ;SICHERHEITS-ABST. ~
    Q203=+0    ;KOOR. OBERFLAECHE ~
    Q204=+50   ;2. SICHERHEITS-ABST. ~
    Q370=+1    ;BAHN-UEBERLAPPUNG ~
    Q366=+1    ;EINTAUCHEN ~
    Q385=+500  ;VORSCHUB SCHLICHTEN
74 M99
75 L  Z+100 R0 FMAX ;Dégagement
76 ;
77 ;Appel de l'outil pour l'ébavurage
78 TOOL CALL 170 Z S12000
79 ;
80 L  Z+100 R0 FMAX M3 ;Déplacement à la hauteur de sécurité
81 CALL LBL 1 ;Appel d'usinage
82 ;
83 ;Dégagement et fin de programme
84 L  Z+100 R0 FMAX M30
85 ;
86 ;Appel du sous-programme pour l'usinage
87 LBL 1
88 FN 0: Q23 =+Q5 ;La première profondeur est égale à la profondeur définie
89 FN 0: Q24 =+0 ;Compteur
90 FN 1: Q26 =+Q6 + +Q7 ;Calcul du décalage de la fraise
91 FN 0: Q27 =+0 ;Angle de départ
92 FN 4: Q37 =+360 DIV +Q4 ;Pas angulaire
93 CALL LBL 10 ;Appel des calculs
94 L  X+Q21  Y+Q22 FMAX ;Approche de la première position
95 L  Z+Q10 R0 FMAX ;Déplacement à la distance de sécurité
96 L  Z-Q23 FQ11 ;Se déplacer à la profondeur
97 LBL 2 ;Répétitions
98 FN 1: Q24 =+Q24 + +1 ;Actualisation du compteur
99 FN 1: Q27 =+Q27 + +Q37 ;Actualisation de l'angle
100 CALL LBL 10 ;Appel des calculs
101 L  X+Q21  Y+Q22  Z-Q23 FQ12 ;Approche de la nouvelle position
102 FN 12: IF +Q24 LT +Q4 GOTO LBL 2 ;Comparaison pour savoir si le nombre de répétitions est atteint
103 LBL 0
104 LBL 10 ;Calculs
Q21 = Q26 * COS Q27 ;Nouvelle position X
Q22 = Q26 * SIN Q27 ;Nouvelle position Y
Q23 = Q3 - ( SQRT ( Q3 * Q3 - Q22 * Q22 ) ) + Q5 ;Nouvelle position Z
105 LBL 0
106 END PGM 5025_FR MM