0 BEGIN PGM 1020_FR MM 
1 ;Programme permettant de définir un motif de
2 ;points en forme de grille. Pour l'usinage,
3 ;un cycle d'usinage est appelé aux différents
4 ;points calculés. Dans ce programme, il s'agit
5 ;d'un cycle de perçage. Une fois tous les
6 ;paramètres utiles, l'outil et le cycle
7 ;d’usinage définis, un sous-programme est
8 ;appelé. Dans ce sous-programme, les différentes
9 ;positions sont calculées et approchées avant
10 ;d'y exécuter le cycle.
11 ;
12 ;Définition des paramètres
13 FN 0: Q1 =+10 ;POINT DE DEPART EN X
14 FN 0: Q2 =+10 ;POINT DE DEPART EN Y
15 FN 0: Q3 =+9 ;DISTANCE ENTRE LES USINAGES EN X
16 FN 0: Q4 =+12 ;DISTANCE ENTRE LES USINAGES EN Y
17 FN 0: Q5 =+10 ;NOMBRE D'USINAGES EN X
18 FN 0: Q6 =+7 ;NOMBRE D'USINAGES EN Y
19 FN 0: Q7 =+5 ;ROTATION
20 FN 0: Q8 =+2 ;DISTANCE D'APPROCHE
21 ;Fin de la programmation des paramètres
22 ;
23 BLK FORM 0.1 Z X+0 Y+0 Z-25
24 BLK FORM 0.2  X+100  Y+100  Z+0
25 ;
26 ;Appel du foret
27 TOOL CALL 227 Z S1000
28 ;
29 ;Définition du cycle d'usinage
30 CYCL DEF 1.0 PERCAGE PROFOND
31 CYCL DEF 1.1 DISTQ8
32 CYCL DEF 1.2 PROF-20
33 CYCL DEF 1.3 PASSE10
34 CYCL DEF 1.4 TEMP0
35 CYCL DEF 1.5 F100
36 ;
37 CALL LBL 1 ;Appel du sous-programme "Positions"
38 ;
39 ;Dégagement et fin de programme
40 L  Z+50 R0 FMAX M2
41 ;
42 LBL 1
43 FN 0: Q21 =+0 ;Position actuelle sur l'axe X
44 FN 0: Q22 =+0 ;Position actuelle sur l'axe Y
45 FN 0: Q25 =+0 ;Colonne actuelle
46 FN 0: Q26 =+0 ;Ligne actuelle
47 FN 0: Q23 =+Q3 ;Incrément X
48 ;Décalage du point zéro à la première position
49 CYCL DEF 7.0 POINT ZERO
50 CYCL DEF 7.1  X+Q1
51 CYCL DEF 7.2  Y+Q2
52 ;Définition de la rotation
53 CYCL DEF 10.0 ROTATION
54 CYCL DEF 10.1  ROT+Q7
55 LBL 2 ;Approche de la position
56 L  X+Q21  Y+Q22 R0 F9999 M3 ;Approche de la position
57 L  Z+Q8 R0 F9999 M99 ;Déplacement à la distance d'approche et appel du cycle
58 LBL 3 ;Calcul de la nouvelle position
59 FN 1: Q21 =+Q21 + +Q23 ;Pas en X
60 FN 1: Q25 =+Q25 + +1 ;Recalcul de la colonne
61 FN 12: IF +Q25 LT +Q5 GOTO LBL 2
62 FN 0: Q25 =+0 ;Réinitialisation du compteur de colonnes
63 FN 1: Q26 =+Q26 + +1 ;Recalcul de la ligne
64 FN 0: Q23 =-Q23 ;Inversion du pas en X
65 FN 1: Q21 =+Q21 + +Q23 ;Compensation du pas en X
66 FN 1: Q22 =+Q22 + +Q4 ;Pas en Y
67 FN 12: IF +Q26 LT +Q6 GOTO LBL 2
68 ;Réinitialisation du point zéro et de la rotation
69 CYCL DEF 7.0 POINT ZERO
70 CYCL DEF 7.1  X+0
71 CYCL DEF 7.2  Y+0
72 CYCL DEF 10.0 ROTATION
73 CYCL DEF 10.1  ROT+0
74 LBL 0
75 END PGM 1020_FR MM