0 BEGIN PGM 3175_FR MM 
1 ;Programme permettant de fraiser un corps sous forme
2 ;de clavette conique.
3 ;L'usinage est effectué à l'aide d'une fraise deux
4 ;tailles, avec des lignes de niveau. Vous devez pour
5 ;cela commencer à définir tous les paramètres
6 ;nécessaires. La CN calcule ensuite la modification de
7 ;la profondeur et du côté. Elle usine ensuite le corps
8 ;du bas vers le haut. Pour ce faire, on a recours au
9 ;cycle 25 dans lequel les modifications du contour,
10 ;via la surépaisseur latérale, sont programmées.
11 ;Après chaque appel de cycle, la nouvelle profondeur et
12 ;la nouvelle surépaisseur latérale sont calculées. La
13 ;procédure se répète ensuite tant que le corps n'est pas
14 ;complètement usiné.
15 ;Avec la "Division", vous définissez le nombre de lignes
16 ;de niveau à usiner. Vous influencez alors indirectement
17 ;la qualité de l'état de surface et la précision.
18 ;
19 BLK FORM 0.1 Z X-15 Y-7 Z-12
20 BLK FORM 0.2  X+15  Y+7  Z+0
21 ;
22 ;Appel de la fraise deux tailles
23 TOOL CALL 8 Z S3000
24 ;
25 ;Définition des paramètres
26 FN 0: Q10 =+8 ;DIAMETRE D'ARRONDI EN HAUT
27 FN 0: Q20 =+14 ;DIAMETRE D'ARRONDI EN BAS
28 FN 0: Q40 =+10 ;PROFONDEUR
29 FN 0: Q50 =+16 ;LONGUEUR DE LA LIGNE DROITE
30 FN 0: Q30 =+50 ;DIVISION
31 FN 0: Q70 =+300 ;AVANCE DE LA PASSE EN PROFONDEUR
32 FN 0: Q71 =+600 ;AVANCE FRAISAGE
33 FN 0: Q72 =+10 ;PROFONDEUR DE PASSE MAXIMALE
34 ;Paramétrages terminés
35 ;
36 ;Calculs
37 FN 4: Q61 =+Q10 DIV +2 ;Rayon de cercle haut
38 FN 4: Q51 =+Q50 DIV +2 ;Longueur de la ligne droite depuis le centre
39 FN 2: Q21 =+Q20 - +Q10 ;Différence de diamètre
40 FN 4: Q22 =+Q21 DIV +2 ;Différence de rayon
41 FN 2: Q31 =+Q30 - +1 ;Nombre de répétitions de parties de programme
42 FN 4: Q23 =+Q22 DIV +Q30 ;Modification latérale à chaque passe
43 FN 4: Q41 =+Q40 DIV +Q30 ;Modification de la profondeur à chaque passe
44 ;Fin des calculs
45 ;
46 LBL 10
47 CYCL DEF 14.0 CONTOUR
48 CYCL DEF 14.1 LABEL CONTOUR1
49 CYCL DEF 25 TRACE DE CONTOUR ~
   Q1=-Q40  ;PROFONDEUR FRAISAGE ~
    Q3=+Q22  ;SUREPAIS. LATERALE ~
    Q5=+0    ;COORD. SURFACE PIECE ~
    Q7=+50   ;HAUTEUR DE SECURITE ~
    Q10=-Q72  ;PROFONDEUR DE PASSE ~
    Q11=+Q70  ;AVANCE PLONGEE PROF. ~
    Q12=+Q71  ;AVANCE EVIDEMENT ~
    Q15=+1    ;MODE FRAISAGE
50 CYCL CALL M13
51 ;Calcul de la nouvelle profondeur et de la nouvelle surépaisseur
52 FN 2: Q40 =+Q40 - +Q41
53 FN 2: Q22 =+Q22 - +Q23
54 CALL LBL 10 REPQ31 ;Répétition de l'usinage
55 ;Dégagement et fin de programme
56 L  Z+100 R0 FMAX M30
57 ;
58 ;Sous-programme de description du contour
59 LBL 1
60 L  X+0  Y+Q61 RL
61 L  X+Q51
62 CR  X+Q51  Y-Q61 R+Q61 DR-
63 L  X-Q51
64 CR  X-Q51  Y+Q61 R+Q61 DR-
65 L  X+0
66 LBL 0
67 END PGM 3175_FR MM