0 BEGIN PGM 2150_FR MM 
1 ;Programme CN permettant d'usiner une poche circulaire
2 ;sur laquelle le fond et le pourtour sont arrondis
3 ;entre eux.
4 ;L'usinage est réalisé avec une fraise torique. Une fois
5 ;l'outil et les paramètres nécessaires définis, la CN
6 ;effectue quelques calculs. Elle pré-fraise ensuite le
7 ;contour avec des poches circulaires. Puis, un nouvel
8 ;appel d'outil a lieu, cette fois-ci avec une correction
9 ;de longueur de la valeur du rayon de la dent R2, de
10 ;manière à ce que la longueur calculée de l'outil soit
11 ;définie au centre de la dent. La CN calcule ensuite,
12 ;dans une boucle, la trajectoire de l'outil en lignes
13 ;de niveau pour permettre l'usinage du rayon, et exécute
14 ;l'usinage.
15 ;!Remarque! Le centre de la poche se trouve à X/Y 0 et
16 ;l'arête supérieure de la poche à Z0. Au besoin, vous devez
17 ;décaler le point zéro au centre et à la hauteur de la poche.
18 ;
19 ;Définition des paramètres
Q1600 = 100 ;DIAMETRE
Q1601 = 50 ;PROFONDEUR
Q1602 = 15 ;RAYON D'ARRONDI
Q1603 = 5 ;DISTANCE D'APPROCHE
Q1604 = 50 ;SAUT DE BRIDE
Q1605 = 1 ;INCREMENT ANGULAIRE DANS LE RAYON
Q1606 = 12.5 ;RAYON OUTIL
Q1607 = 5 ;RAYON DENT OUTIL R2
Q1608 = 3000 ;RAYON DENT OUTIL R2
Q1609 = 5 ;PROFONDEUR DE PASSE PRE-FRAISAGE
20 ;Fin de la programmation des paramètres
21 ;
22 BLK FORM 0.1 Z X-60 Y-60 Z-70
23 BLK FORM 0.2  X+60  Y+60  Z+0
24 ;
25 ;Appel d'outil pour le fraisage des poches
26 TOOL CALL "TORUS_MILL_D25_5" Z S14000
27 ;
28 ;Calculs
29 FN 2: Q1610 =+Q1601 - +Q1602 ;Profondeur de la 1ère poche
Q1611 = Q1600 - ( 2 * Q1602 ) ;Diamètre de la 2ème poche
Q1612 = Q1610 + Q1605 ;Saut de bride de la 2ème poche
30 ;Fin des calculs
31 ;
32 ;Dégagement
33 L  Z+100 R0 FMAX M3
34 ;
35 ;Fraisage de la 1ère poche
36 CYCL DEF 252 POCHE CIRCULAIRE ~
   Q215=+1    ;OPERATIONS D'USINAGE ~
    Q223=+Q1600 ;DIAMETRE DU CERCLE ~
    Q368=+0    ;SUREPAIS. LATERALE ~
    Q207=+Q1608 ;AVANCE FRAISAGE ~
    Q351=+1    ;MODE FRAISAGE ~
    Q201=-Q1610 ;PROFONDEUR ~
    Q202=+Q1609 ;PROFONDEUR DE PASSE ~
    Q369=+0    ;SUREP. DE PROFONDEUR ~
    Q206=+Q1608 ;AVANCE PLONGEE PROF. ~
    Q338=+0    ;PASSE DE FINITION ~
    Q200=+Q1603 ;DISTANCE D'APPROCHE ~
    Q203=+0    ;COORD. SURFACE PIECE ~
    Q204=+50   ;SAUT DE BRIDE ~
    Q370=+0.4  ;FACTEUR RECOUVREMENT ~
    Q366=+1    ;PLONGEE ~
    Q385=+Q1608 ;AVANCE DE FINITION
37 L  X+0  Y+0 R0 FMAX M99
38 ;
39 ;Fraisage de la 2ème poche
40 CYCL DEF 252 POCHE CIRCULAIRE ~
   Q215=+1    ;OPERATIONS D'USINAGE ~
    Q223=+Q1611 ;DIAMETRE DU CERCLE ~
    Q368=+0    ;SUREPAIS. LATERALE ~
    Q207=+Q1608 ;AVANCE FRAISAGE ~
    Q351=+1    ;MODE FRAISAGE ~
    Q201=-Q1602 ;PROFONDEUR ~
    Q202=+Q1609 ;PROFONDEUR DE PASSE ~
    Q369=+0    ;SUREP. DE PROFONDEUR ~
    Q206=+Q1608 ;AVANCE PLONGEE PROF. ~
    Q338=+0    ;PASSE DE FINITION ~
    Q200=+Q1603 ;DISTANCE D'APPROCHE ~
    Q203=-Q1610 ;COORD. SURFACE PIECE ~
    Q204=+Q1612 ;SAUT DE BRIDE ~
    Q370=+0.4  ;FACTEUR RECOUVREMENT ~
    Q366=+1    ;PLONGEE ~
    Q385=+Q1608 ;AVANCE DE FINITION
41 L  X+0  Y+0 R0 FMAX M99
42 ;
43 ;Appel de l'outil permettant de fraiser le rayon avec un DL
44 ;au centre du R2
45 TOOL CALL  Z DL-Q1607
46 ;
47 L  Z+100 R0 FMAX ;Déplacement à la hauteur de sécurité
48 L  X+0  Y+0 R0 FMAX ;Déplacement au centre du cercle
49 ;
50 ;
51 L  Z+Q1603 R0 FMAX ;Déplacement à la distance d'approche
Q1609 = Q1600 / 2 - Q1602 ;Rayon D2
Q1610 = Q1606 - Q1607 ;Outil R1
Q1611 = Q1601 - Q1602 ;Début du contour Z
52 L  Z-Q1611 R0 F3000 ;Pré-positionnement en Z
Q1612 = Q1600 / 2 - ( Q1606 - Q1607 ) - Q1607 * COS 0 ;Position d'approche X
53 L  X+Q1612  Y+0 R0 FQ1608 ;Approche du début du contour en X
54 CC  X+0  Y+0 ;Centre du cercle
55 C DR+ ;Parcours de la trajectoire circulaire
Q1613 = 90 ;Angle final
Q1614 = 0 ;Angle actuel
56 LBL 10 ;Boucle
Q1614 = Q1614 + Q1605 ;Ajout de l'incrément angulaire à l'angle actuel
Q1615 = Q1609 + Q1602 * COS Q1614 ;Calcul du point de contour en X
Q1616 = Q1611 + Q1602 * SIN Q1614 ;Calcul du point de contour en Z
57 ;
Q1617 = Q1615 - Q1610 - Q1607 * COS Q1614 ;Position de trajectoire X
Q1618 = Q1616 - Q1607 * SIN Q1614 ;Position de trajectoire Z
58 ;
59 L  X+Q1617  Z-Q1618 ;Approche de la valeur X/Z calculée
60 C DR+ ;Parcours de la trajectoire circulaire
61 ;
62 FN 12: IF +Q1614 LT +Q1613 GOTO LBL 10 ;Si l'angle actuel est inférieur à l'angle final, la boucle se répète
63 ;
64 L  Z+Q1604 R0 FMAX ;Approche du saut de bride
65 ;
66 ;Dégagement et fin de programme
67 L  Z+100 R0 FMAX M30
68 END PGM 2150_FR MM