0 BEGIN PGM 1010_FR MM 
1 ;Programme permettant de définir un motif
2 ;de points en forme d'ellipse. Pour
3 ;l'usinage, un cycle d'usinage est appelé
4 ;aux différents points calculés. Dans ce
5 ;programme, il s'agit d'un cycle de
6 ;perçage (avec pointage et perçage). Une
7 ;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 ;sousprogramme, dans un premier temps, la
11 ;trajectoire elliptique globale est calculée.
12 ;Celle-ci se compose de plusieurs
13 ;coordonnées X et Y. La distance entre les
14 ;points, et donc la précision de la trajectoire,
15 ;doit être déterminée par le paramètre Q5=Pas
16 ;angulaire, qui définit l'angle entre deux
17 ;points. Une fois le contour complètement
18 ;calculé, les différentes positions d'usinage
19 ;sont déterminées, approchées, et le cycle est
20 ;appelé.
21 ;
22 ;Définition des paramètres
23 FN 0: Q1 =+46 ;DEMI-AXE ELLIPTIQUE EN X
24 FN 0: Q2 =+20 ;DEMI-AXE ELLIPTIQUE EN Y
25 FN 0: Q5 =+0.5 ;INCREMENT ANGULAIRE
26 FN 0: Q6 =+15 ;ROTATION DE L'ELLIPSE
27 FN 0: Q8 =+50 ;CENTRE ELLIPSE AXE X
28 FN 0: Q9 =+40 ;CENTRE ELLIPSE AXE Y
29 FN 0: Q12 =+2 ;DISTANCE D'APPROCHE
30 FN 0: Q13 =+30 ;NOMBRE D'USINAGES
31 ;Fin de la programmation des paramètres
32 ;
33 BLK FORM 0.1 Z X+0 Y+0 Z-20
34 BLK FORM 0.2  X+100  Y+80  Z+0
35 ;
36 ;Appel du foret à pointer CN
37 TOOL CALL 201 Z S1000
38 ;
39 ;Définition du cycle d'usinage
40 CYCL DEF 1.0 PERCAGE PROFOND
41 CYCL DEF 1.1 DISTQ12
42 CYCL DEF 1.2 PROF-2.5
43 CYCL DEF 1.3 PASSE10
44 CYCL DEF 1.4 TEMP0
45 CYCL DEF 1.5 F100
46 ;
47 CALL LBL 20 ;Appel du sous-programme "Positions"
48 ;
49 ;Appel du foret
50 TOOL CALL 225 Z S1000
51 ;
52 ;Définition du cycle d'usinage
53 CYCL DEF 1.0 PERCAGE PROFOND
54 CYCL DEF 1.1 DISTQ12
55 CYCL DEF 1.2 PROF-20
56 CYCL DEF 1.3 PASSE10
57 CYCL DEF 1.4 TEMP0
58 CYCL DEF 1.5 F100
59 ;
60 CALL LBL 20 ;Appel du sous-programme "Positions"
61 ;
62 ;Dégagement et fin de programme
63 L  Z+100 R0 F9998 M30
64 ;
65 ;Sous-programme permettant de déterminer des positions
66 LBL 20
67 ;Définition du point zéro au centre de l'ellipse et de la rotation
68 CYCL DEF 7.0 POINT ZERO
69 CYCL DEF 7.1  X+Q8
70 CYCL DEF 7.2  Y+Q9
71 CYCL DEF 10.0 ROTATION
72 CYCL DEF 10.1  ROT+Q6
73 CALL LBL 10 ;Appel du calcul de l'ellipse totale
74 FN 4: Q48 =+Q40 DIV +Q13
75 FN 0: Q50 =+Q40
76 FN 0: Q36 =+0 ;Réinitialisation des paramètres
77 FN 0: Q40 =+0 ;Réinitialisation des paramètres
78 FN 0: Q46 =+0 ;Réinitialisation des paramètres
79 FN 0: Q47 =+0 ;Réinitialisation des paramètres
80 FN 0: Q50 =+1 ;Compteur
81 CALL LBL 2
82 L  X+Q21  Y+Q22 R0 F9999 M3 ;Approche de la première position
83 L  Z+Q12 M99 ;Approche de la hauteur de sécurité et appel de cycle
84 LBL 21
85 FN 1: Q46 =+Q46 + +Q48
86 LBL 22
87 FN 1: Q36 =+Q36 + +Q5
88 CALL LBL 2
89 CALL LBL 3
90 FN 12: IF +Q47 LT +Q46 GOTO LBL 22
91 L  X+Q21  Y+Q22 M99 ;Approche de la position et appel de cycle
92 FN 1: Q50 =+Q50 + +1 ;Nouveau calcul du compteur
93 FN 12: IF +Q50 LT +Q13 GOTO LBL 21 ;Comparaison du compteur
94 ;Réinitialisation de la rotation et du point zéro
95 CYCL DEF 10.0 ROTATION
96 CYCL DEF 10.1  ROT+0
97 CYCL DEF 7.0 POINT ZERO
98 CYCL DEF 7.1  X+0
99 CYCL DEF 7.2  Y+0
100 LBL 0
101 ;
102 ;Calcul de l'ellipse
103 LBL 10
104 FN 0: Q40 =+0
105 FN 0: Q36 =+0 ;Angle de départ
106 FN 0: Q4 =+360 ;Angle final
107 CALL LBL 2
108 LBL 1
109 FN 1: Q36 =+Q36 + +Q5 ;Nouveau calcul de l'angle
110 CALL LBL 2
111 CALL LBL 3
112 FN 12: IF +Q36 LT +Q4 GOTO LBL 1 ;Comparaison de l'angle actuel par rapport à l'angle final
113 FN 0: Q36 =+Q4
114 CALL LBL 2
115 LBL 0
116 LBL 2 ;Calcul des coordonnées
117 FN 7: Q21 = COS +Q36
118 FN 3: Q21 =+Q21 * +Q1
119 FN 6: Q22 = SIN +Q36
120 FN 3: Q22 =+Q22 * +Q2
121 LBL 0
122 LBL 3 ;Calcul de l'angle et des coordonnées
123 FN 1: Q37 =+Q36 + +Q5
124 FN 7: Q31 = COS +Q37
125 FN 3: Q31 =+Q31 * +Q1
126 FN 6: Q32 = SIN +Q37
127 FN 3: Q32 =+Q32 * +Q2
128 FN 2: Q34 =+Q31 - +Q21
129 FN 2: Q35 =+Q32 - +Q22
130 FN 8: Q39 =+Q35 LEN +Q34
131 FN 1: Q40 =+Q40 + +Q39
132 FN 1: Q47 =+Q40 + +0
133 LBL 0
134 END PGM 1010_FR MM