0 BEGIN PGM 5015_FR MM 
1 ;Programme permettant d'ébavurer un trou dans
2 ;un cylindre horizontal, sur la surface
3 ;intérieure, à l'aide d'une fraise boule.
4 ;L'axe du cylindre est parallèle à l'axe Y.
5 ;Points de référence X et Z dans le centre
6 ;du cylindre.
7 ;
8 BLK FORM 0.1 Z X+0 Y+0 Z-15
9 BLK FORM 0.2  X+18  Y+10  Z+0
10 ;
11 ;Définition des paramètres
12 FN 0: Q1 =+7 ;CENTRE DU TROU DANS L'AXE X
13 FN 0: Q2 =+5 ;CENTRE DU TROU DANS L'AXE Y
14 FN 0: Q3 =+0.5 ;OUTIL DE DÉCALAGE DE PROFONDEUR
15 FN 0: Q4 =+0.5 ;OUTIL DE DÉCALAGE LATÉRAL
16 FN 0: Q5 =+100 ;DIVISION DE LA TRAJECTOIRE CIRCULAIRE
17 FN 0: Q6 =+13 ;RAYON DU CYLINDRE
18 FN 0: Q7 =+180 ;ANGLE DE DÉPART DANS LE PLAN
19 FN 0: Q8 =+20 ;LONGUEUR DU CYLINDRE
20 FN 0: Q9 =+3 ;RAYON DU TROU
21 FN 0: Q10 =+2 ;HAUTEUR Z POUR LE PRÉ-POSITIONNEMENT
22 FN 0: Q11 =+200 ;AVANCE DE LA PASSE EN PROFONDEUR
23 FN 0: Q12 =+500 ;AVANCE FRAISAGE
24 ;
25 ;Pré-fraisage du cylindre
26 ;Appel de la fraise boule
27 TOOL CALL 154 Z S5000
28 TOOL CALL  DL-Q108 ;Correction de la longueur de la valeur du rayon de la boule
29 ;Appel du programme 50151_fr.h
30 CALL PGM 50151_fr.h
31 L  Z+50 R0 FMAX
32 ;Pré-fraisage du cylindre terminé
33 ;
34 ;Perçage
35 ;Appel d'outil foret
36 TOOL CALL 228 Z S1000
37 L  Z+100 R0 FMAX M3
38 CYCL DEF 1.0 TIEFBOHREN
39 CYCL DEF 1.1 ABST2
40 CYCL DEF 1.2 TIEFE-20
41 CYCL DEF 1.3 ZUSTLG5
42 CYCL DEF 1.4 V.ZEIT0
43 CYCL DEF 1.5 F300
44 L  X+Q1  Y+Q2 R0 FMAX
45 L  Z+Q15 R0 FMAX
46 CYCL CALL
47 L  Z+50 R0 FMAX
48 ;Perçage terminé
49 ;
50 ;Appel de l'outil fraise boule pour ébavurage
51 TOOL CALL 152 Z S10000
52 TOOL CALL  DL-Q108 ;Correction de la longueur de la valeur du rayon de la boule
53 ;Appel du sous-programme
54 CALL LBL 1
55 ;
56 ;Fin du programme
57 L  Z+50 R0 F5000 M30
58 ;
59 ;Sous-programme
60 LBL 1
61 FN 0: Q25 =+0 ;Compteur
62 FN 1: Q26 =+Q6 + +Q3 ;Rayon effectif du tube
63 FN 0: Q27 =+Q7 ;Angle du plan actuel
64 FN 4: Q37 =+360 DIV +Q5 ;Pas angulaire dans le plan
65 FN 1: Q29 =+Q9 + +Q4 ;Rayon effectif de perçage
66 CC  X+Q1  Y+Q2 ;Centre de cercle
67 L  Z+100 R0 FMAX M3 ;Pré-positionnement
68 LP  PR+Q29  PA+Q27 RL F9999
69 L  Z+Q10 F9999
70 CALL LBL 11 ;Appel du calcul de la nouvelle valeur Z
71 L  Z-Q23 FQ11 ;Plongée en Z
72 LBL 10
73 FN 1: Q27 =+Q27 + +Q37 ;Calcul d'un nouvel angle
Q25 = Q25 + 1 ;Synchroniser le compteur
74 CALL LBL 11 ;Appel du calcul de la nouvelle valeur Z
75 CP  PA+Q27  Z-Q23 DR+ ;Approche du nouvel angle et de la nouvelle valeur Z
76 FN 12: IF +Q25 LT +Q5 GOTO LBL 10
77 LBL 11 ;Calcul de la nouvelle valeur Z
Q21 = Q1 + Q29 * COS Q27
Q23 = SQRT ( SQ Q26 - SQ Q21 )
78 LBL 0
79 END PGM 5015_FR MM