0 BEGIN PGM 1015_FR MM 
1 ;Programme permettant de définir un motif de
2 ;points uniformément espacés, en forme de
3 ;spirale.
4 ;Pour l'usinage, un cycle d'usinage est appelé
5 ;aux différents points calculés. Dans ce
6 ;programme, il s'agit d'un cycle de perçage.
7 ;Une fois tous les paramètres utiles, l'outil
8 ;et le cycle d'usinage définis, un
9 ;sous-programme est appelé. Dans ce
10 ;sous-programme, les différentes positions sont
11 ;calculées et approchées, et le cycle exécuté.
12 ;
13 ;Définition des paramètres
14 FN 0: Q1 =+45 ;RAYON FINAL
15 FN 0: Q2 =+5 ;RAYON DE DEPART
16 FN 0: Q3 =+60 ;PAS ANGULAIRE DE DEPART
17 FN 0: Q4 =+2.5 ;PAS DU RAYON
18 FN 0: Q5 =+50 ;CENTRE AXE X
19 FN 0: Q6 =+50 ;CENTRE AXE Y
20 FN 0: Q7 =+2 ;DISTANCE D'APPROCHE
21 FN 0: Q8 =+20 ;ROTATION
22 ;Fin de la programmation des paramètres
23 ;
24 BLK FORM 0.1 Z X+0 Y+0 Z-12
25 BLK FORM 0.2  X+100  Y+95  Z+0
26 ;
27 ;Appel du foret
28 TOOL CALL 225 Z S2000
29 ;
30 ;Définition du cycle d'usinage
31 CYCL DEF 1.0 PERCAGE PROFOND
32 CYCL DEF 1.1 DIST2
33 CYCL DEF 1.2 PROF-10
34 CYCL DEF 1.3 PASSE10
35 CYCL DEF 1.4 TEMP0
36 CYCL DEF 1.5 F1000
37 ;
38 CC  X+Q5  Y+Q6 ;Définition du centre
39 LP  PR+0  PA+0 R0 FMAX M3 ;Pré-positionnement au centre
40 CYCL DEF 10.0 ROTATION
41 CYCL DEF 10.1  ROT+Q8
42 CALL LBL 2 ;Appel des calculs
43 ;Dégagement et fin de programme
44 L  Z+100 R0 F9999 M2
45 ;
46 LBL 2 ;Calculs
47 LP  PR+Q2  PA+0 R0 F9998
48 L  Z+Q7
49 FN 0: Q14 =+Q4
50 FN 0: Q13 =+Q3
51 FN 3: Q34 =+Q2 * +Q4
52 FN 3: Q33 =+Q2 * +Q3
53 FN 0: Q24 =+Q2
54 FN 0: Q23 =+0
55 LBL 1
56 FN 4: Q14 =+Q34 DIV +Q24
57 FN 4: Q13 =+Q33 DIV +Q24
58 FN 1: Q24 =+Q24 + +Q14
59 FN 1: Q23 =+Q23 + +Q13
60 LP  PR+Q24  PA+Q23 M99 ;Approche de la position et appel du cycle
61 FN 11: IF +Q1 GT +Q24 GOTO LBL 1 ;Comparaison pour savoir si le rayon final est atteint
62 LBL 0
63 END PGM 1015_FR MM