0  BEGIN PGM 51001_FR MM 
1  ;Programme CN permettant percer un trou oblique
2  ;dans une pièce.
3  ;
4  ;Appel d'outil
5  TOOL CALL 7 Z S4000 F300
6  ;
7  L  Z+100 R0 FMAX M3 ;Déplacement à la hauteur de sécurité
8  L  X+Q7  Y+Q8 R0 FMAX ;Prépositionnement
9  ;Décalage du point zéro au centre du trou.
10 ;Décalage en Z, jusqu'à la position à
11 ;laquelle le plan d'usinage est incliné.
12 CYCL DEF 7.0 POINT ZERO
13 CYCL DEF 7.1  Z+Q9
14 CYCL DEF 7.2  X+Q7
15 CYCL DEF 7.3  Y+Q8
16 ;Inclinaison du plan d'usinage
17 CYCL DEF 19.0 PLAN D'USINAGE
18 CYCL DEF 19.1  A+Q11  B+0  C+0
19 ;Déplacement des axes rotatifs jusqu'à la position
20 L  A+Q120  B+Q121  C+Q122 R0 FMAX
21 CYCL DEF 252 POCHE CIRCULAIRE ~
    Q215=+0    ;OPERATIONS D'USINAGE ~
    Q223=+42   ;DIAMETRE DU CERCLE ~
    Q368=+0    ;SUREPAIS. LATERALE ~
    Q207=+600  ;AVANCE FRAISAGE ~
    Q351=+1    ;MODE FRAISAGE ~
    Q201=-80   ;PROFONDEUR ~
    Q202=+5    ;PROFONDEUR DE PASSE ~
    Q369=+0    ;SUREP. DE PROFONDEUR ~
    Q206=+300  ;AVANCE PLONGEE PROF. ~
    Q338=+0    ;PASSE DE FINITION ~
    Q200=+2    ;DISTANCE D'APPROCHE ~
    Q203=+25   ;COORD. SURFACE PIECE ~
    Q204=+50   ;SAUT DE BRIDE ~
    Q370=+1    ;FACTEUR RECOUVREMENT ~
    Q366=+1    ;PLONGEE ~
    Q385=+500  ;AVANCE DE FINITION
22 L  X+0  Y+0 R0 FMAX
23 M99
24 M140 MB MAX F9999 ;Dégagement de l'outil
25 ;Annulation de l'inclinaison du plan d'usinage
26 CYCL DEF 19.0 PLAN D'USINAGE
27 CYCL DEF 19.1  A+0  B+0  C+0
28 CYCL DEF 19.0 PLAN D'USINAGE
29 CYCL DEF 19.1
30 ;Remise à zéro des axes rotatifs
31 L  A+Q120  B+Q121  C+Q122 R0 FMAX
32 ;Annuler le décalage du point-zéro
33 CYCL DEF 7.0 POINT ZERO
34 CYCL DEF 7.1  X+0
35 CYCL DEF 7.2  Y+0
36 CYCL DEF 7.3  Z+0
37 END PGM 51001_FR MM