0 BEGIN PGM 1105_FR MM 
1 ;Programme permettant de définir un motif de points sous
2 ;forme de cadre.
3 ;Pour l'usinage, un cycle d'usinage est appelé aux positions
4 ;calculées. Dans ce programme, il s'agit d'un cycle de
5 ;perçage. Une fois tous les paramètres utiles, l'outil et le
6 ;cycle d'usinage définis, un sous-programme est appelé.
7 ;Dans ce sous-programme, les différentes positions sont
8 ;calculées et approchées, et le cycle exécuté.
9 ;
10 ;Définition des paramètres
11 FN 0: Q1 =+15 ;POSITION DE DEPART SUR L'AXE X
12 FN 0: Q2 =+15 ;POSITION DE DEPART SUR L'AXE Y
13 FN 0: Q30 =+8 ;NOMBRE D'USINAGES EN X
14 FN 0: Q31 =+8 ;NOMBRE D'USINAGES EN Y
15 FN 0: Q32 =+10 ;DISTANCE ENTRE LES USINAGES EN X
16 FN 0: Q33 =+10 ;DISTANCE ENTRE LES USINAGES EN Y
17 FN 0: Q7 =+0 ;ROTATION
18 FN 0: Q8 =+2 ;DISTANCE D'APPROCHE
19 ;Fin de la programmation des paramètres
20 ;
21 BLK FORM 0.1 Z X+0 Y+0 Z-25
22 BLK FORM 0.2  X+100  Y+100  Z+0
23 ;
24 ;Appel du foret
25 TOOL CALL 225 Z S5000
26 ;
27 ;Définition du cycle d'usinage
28 CYCL DEF 1.0 PERCAGE PROFOND
29 CYCL DEF 1.1 DISTQ8
30 CYCL DEF 1.2 PROF-20
31 CYCL DEF 1.3 PASSE10
32 CYCL DEF 1.4 TEMP0
33 CYCL DEF 1.5 F100
34 ;
35 CALL LBL 20 ;Appel du sous-programme "Positions"
36 ;
37 ;Dégagement et fin de programme
38 L  Z+100 R0 FMAX M2
39 ;
40 LBL 20 ;Définition des positions
41 FN 12: IF +Q30 LT +3 GOTO LBL 5
42 FN 12: IF +Q31 LT +3 GOTO LBL 5
43 ;Décalage du point zéro à la première position
44 CYCL DEF 7.0 POINT ZERO
45 CYCL DEF 7.1  X+Q1
46 CYCL DEF 7.2  Y+Q2
47 ;Définition de la rotation
48 CYCL DEF 10.0 ROTATION
49 CYCL DEF 10.1  ROT+Q7
50 ;
51 L  Z+100 R0 FMAX ;Déplacement à la hauteur de sécurité
52 L  X+0  Y+0 R0 FMAX M3 ;Déplacement à la hauteur de sécurité
53 L  Z+Q8 R0 FMAX M99 ;Déplacement à la distance d'approche et appel du cycle
54 FN 2: Q34 =+Q30 - +1 ;Compteur de colonnes
55 LBL 1
56 FN 2: Q34 =+Q34 - +1 ;Compteur de colonnes
57 L IX+Q32 FMAX M99 ;Déplacement à la position suivante et appel de cycle
58 FN 11: IF +Q34 GT +0 GOTO LBL 1 ;Comparaison pour savoir si d'autres colonnes sont nécessaires
59 FN 2: Q35 =+Q31 - +1 ;Compteur de lignes
60 LBL 2
61 FN 2: Q35 =+Q35 - +1 ;Compteur de lignes
62 L IY+Q33 FMAX M99 ;Déplacement à la position suivante et appel de cycle
63 FN 11: IF +Q35 GT +0 GOTO LBL 2 ;Comparaison pour savoir si d'autres lignes sont nécessaires
64 FN 2: Q34 =+Q30 - +1 ;Compteur de colonnes
65 LBL 3
66 FN 2: Q34 =+Q34 - +1 ;Compteur de colonnes
67 L IX-Q32 FMAX M99 ;Déplacement à la position suivante et appel de cycle
68 FN 11: IF +Q34 GT +0 GOTO LBL 3 ;Comparaison pour savoir si d'autres colonnes sont nécessaires
69 FN 2: Q36 =+Q31 - +2 ;Compteur de lignes
70 LBL 4
71 FN 2: Q36 =+Q36 - +1 ;Compteur de lignes
72 L IY-Q33 FMAX M99 ;Déplacement à la position suivante et appel de cycle
73 FN 11: IF +Q36 GT +0 GOTO LBL 4 ;Comparaison pour savoir si d'autres lignes sont nécessaires
74 FN 9: IF +0 EQU +0 GOTO LBL 6 ;Saut à la fin du sous-programme
75 LBL 5
76 FN 14: ERROR= 1011
77 LBL 6
78 ;Réinitialisation du point zéro et de la rotation
79 CYCL DEF 7.0 POINT ZERO
80 CYCL DEF 7.1  X+0
81 CYCL DEF 7.2  Y+0
82 CYCL DEF 7.3  Z+0
83 CYCL DEF 10.0 ROTATION
84 CYCL DEF 10.1  ROT+0
85 LBL 0
86 END PGM 1105_FR MM