0  BEGIN PGM 5090-FR MM 
1  ;Dans ce programme, un tenon rectangulaire
2  ;et une poche rectangulaire sont usinés,
3  ;puis un chanfrein est fraisé sur leurs
4  ;contours périphériques, à l'aide d'un outil
5  ;incliné. Les contours se programment avec
6  ;des cycles. Pour les chanfreins, il vous faut
7  ;utiliser les paramètres qui ont servi à
8  ;la CN pour calculer les trajectoires de l'outil.
9  ;
10 BLK FORM 0.1 Z X-50 Y-50 Z-40
11 BLK FORM 0.2  X+50  Y+50  Z+10
12 TOOL CALL 8 Z S12000 F5000 ;Fraise D16
13 ;Réinitialisation
14 M129
15 CYCL DEF 7.0 POINT ZERO
16 CYCL DEF 7.1  X+0
17 CYCL DEF 7.2  Y+0
18 CYCL DEF 7.3  Z+0
19 PLANE RESET STAY
20 M3
21 ;Inclinaison du plan d'usinage
22 PLANE SPATIAL SPA+15 SPB+0 SPC+0 TURN MB100 FMAX
23 CYCL DEF 232 FRAISAGE TRANSVERSAL ~
    Q389=+2    ;STRATEGIE ~
    Q225=-50   ;PT INITIAL 1ER AXE ~
    Q226=-60   ;PT INITIAL 2EME AXE ~
    Q227=+20   ;PT INITIAL 3EME AXE ~
    Q386=+0    ;POINT FINAL 3EME AXE ~
    Q218=+100  ;1ER COTE ~
    Q219=+120  ;2EME COTE ~
    Q202=+20   ;PROF. PLONGEE MAX. ~
    Q369=+0    ;SUREP. DE PROFONDEUR ~
    Q370=+1    ;RECOUVREMENT MAX. ~
    Q207= AUTO ;AVANCE FRAISAGE ~
    Q385= AUTO ;AVANCE DE FINITION ~
    Q253= MAX ;AVANCE PRE-POSIT. ~
    Q200=+2    ;DISTANCE D'APPROCHE ~
    Q357=+2    ;DIST. APPR. LATERALE ~
    Q204=+50   ;SAUT DE BRIDE
24 L  X+0  Y+0  Z+100 R0 FMAX M3 M99
25 CYCL DEF 251 POCHE RECTANGULAIRE ~
    Q215=+0    ;OPERATIONS D'USINAGE ~
    Q218=+60   ;1ER COTE ~
    Q219=+50   ;2EME COTE ~
    Q220=+10   ;RAYON D'ANGLE ~
    Q368=+0    ;SUREPAIS. LATERALE ~
    Q224=+0    ;POSITION ANGULAIRE ~
    Q367=+0    ;POSITION POCHE ~
    Q207= AUTO ;AVANCE FRAISAGE ~
    Q351=+1    ;MODE FRAISAGE ~
    Q201=-10   ;PROFONDEUR ~
    Q202=+10   ;PROFONDEUR DE PASSE ~
    Q369=+0    ;SUREP. DE PROFONDEUR ~
    Q206= AUTO ;AVANCE PLONGEE PROF. ~
    Q338=+0    ;PASSE DE FINITION ~
    Q200=+2    ;DISTANCE D'APPROCHE ~
    Q203=+0    ;COORD. SURFACE PIECE ~
    Q204=+50   ;SAUT DE BRIDE ~
    Q370=+1    ;FACTEUR RECOUVREMENT ~
    Q366=+1    ;PLONGEE ~
    Q385=+500  ;AVANCE DE FINITION
26 L  X+0  Y+0 R0 FMAX M3 M99
27 CYCL DEF 256 TENON RECTANGULAIRE ~
    Q218=+80   ;1ER COTE ~
    Q424=+100  ;COTE PIECE BR. 1 ~
    Q219=+65   ;2EME COTE ~
    Q425=+120  ;COTE PIECE BR. 2 ~
    Q220=+10   ;RAYON / CHANFREIN ~
    Q368=+0    ;SUREPAIS. LATERALE ~
    Q224=+0    ;POSITION ANGULAIRE ~
    Q367=+0    ;POSITION DU TENON ~
    Q207= AUTO ;AVANCE FRAISAGE ~
    Q351=+1    ;MODE FRAISAGE ~
    Q201=-10   ;PROFONDEUR ~
    Q202=+10   ;PROFONDEUR DE PASSE ~
    Q206=+3000 ;AVANCE PLONGEE PROF. ~
    Q200=+2    ;DISTANCE D'APPROCHE ~
    Q203=+0    ;COORD. SURFACE PIECE ~
    Q204=+50   ;SAUT DE BRIDE ~
    Q370=+1    ;FACTEUR RECOUVREMENT ~
    Q437=+0    ;POSITION D'APPROCHE
28 L  X+0  Y+0 R0 FMAX M3 M99
29 ;
30 ;Paramètres du chanfrein
31 Q1 = 2 ;LONGUEUR DU CHANFREIN
32 Q2 = 30 ;ANGLE DU CHANFREIN
33 Q13 = 60 ;LONGUEUR X
34 Q3 = 50 ;LARGEUR Y
35 Q5 = 10 ;RAYON
36 Q4 = 1 ;USINAGE 1=INTERIEUR 2=EXTERIEUR
37 TOOL CALL  DL-0.5 ;Dépassement pour obtenir une arête de chanfrein inférieure nette
38 CALL LBL "fase"
39 ;
40 ;Paramètres du chanfrein
41 Q1 = 2 ;LONGUEUR DU CHANFREIN
42 Q2 = 30 ;ANGLE DU CHANFREIN
43 Q13 = 80 ;LONGUEUR X
44 Q3 = 65 ;LARGEUR Y
45 Q5 = 10 ;RAYON
46 Q4 = 2 ;USINAGE 1=INTERIEUR 2=EXTERIEUR
47 TOOL CALL  DL-0.5 ;Dépassement pour obtenir une arête de chanfreinage inférieure nette
48 CALL LBL "fase"
49 ;
50 FUNCTION RESET TCPM
51 ;Déplacement à la position d'approche
52 L  Z+500 R0 FMAX M91
53 L  X+800  Y+600 R0 FMAX M91
54 ;Réinitialisation de l'inclinaison du plan d'usinage
55 PLANE RESET TURN FMAX
56 ;Fin du programme
57 M30
58 ;Sous-programmes
59 LBL "fase"
60 ;Requête : extérieur ou intérieur
61 FN 9: IF +Q4 EQU +1 GOTO LBL "inside"
62 FN 9: IF +Q4 EQU +2 GOTO LBL "outside"
63 STOP
64 ;Veuillez sélectionner extérieur ou intérieur pour Q4.
65 ;
66 LBL "inside"
67 FUNCTION TCPM F TCP AXIS SPAT PATHCTRL VECTOR
68 FN 11: IF +Q5 GT +0 GOTO LBL "radius"
69 Q5 = Q108
70 LBL "radius"
71 Q10 = Q108 * ( COS Q2 ) ;Calcul de la correction du rayon de l'outil
72 Q11 = ( Q3 / 2 ) - Q10 ;Largeur Y - Correction du rayon de l'outil
73 QL11 = Q5 - Q10
74 Q21 = ( Q3 / 2 ) - Q5 ;Centre CC en Y
75 Q31 = ( Q13 / 2 ) - Q5 ;Centre CC en X
76 Q12 = ( Q1 / TAN Q2 ) - ( SIN Q2 * Q108 ) ;Correction de l'outil en Z
77 QL13 = Q11 - Q108 ;Position d'approche en Y
78 QL12 = Q12 - 2 ;Position d'approche en Z
79 L  X-Q108  Y-QL13  Z+50 R0 FMAX
80 L  A+Q2  B+0  C+0 R0 FMAX ;Les trois axes rotatifs sont importants à cause de TCPM ... AXIS SPAT
81 L  Z-QL12 R0 F AUTO
82 CC  X+0  Y-QL13
83 CP  PA-90  Z-Q12 DR+
84 L  X+Q31
85 ;
86 QL1 = 270
87 LBL 1
88 QL1 = QL1 + 1
89 QL2 = QL11 * COS QL1
90 QL3 = QL11 * SIN QL1
91 QL2 = Q31 + QL2
92 QL3 = Q21 - QL3
93 L  X+QL2  Y-QL3 IC+1
94 CALL LBL 1 REP89
95 L  Y+Q21
96 QL1 = 0
97 LBL 2
98 QL1 = QL1 + 1
99 QL2 = QL11 * COS QL1
100 QL3 = QL11 * SIN QL1
101 QL2 = Q31 + QL2
102 QL3 = Q21 + QL3
103 L  X+QL2  Y+QL3 IC+1
104 CALL LBL 2 REP89
105 L  X-Q31
106 QL1 = 90
107 LBL 3
108 QL1 = QL1 + 1
109 QL2 = QL11 * COS QL1
110 QL3 = QL11 * SIN QL1
111 QL2 = Q31 - QL2
112 QL3 = Q21 + QL3
113 L  X-QL2  Y+QL3 IC+1
114 CALL LBL 3 REP89
115 L  Y-Q21
116 QL1 = 180
117 LBL 4
118 QL1 = QL1 + 1
119 QL2 = QL11 * COS QL1
120 QL3 = QL11 * SIN QL1
121 QL2 = Q31 - QL2
122 QL3 = Q21 - QL3
123 L  X-QL2  Y-QL3 IC+1
124 CALL LBL 4 REP89
125 L  X+0
126 CC  X+0  Y-QL13
127 CP  PA+0  Z-QL12 DR+
128 L  Z+15 R0 FMAX
129 M140 MB+50
130 M129
131 ;
132 FN 9: IF +0 EQU +0 GOTO LBL "end"
133 ;
134 LBL "outside"
135 FUNCTION TCPM F TCP AXIS SPAT PATHCTRL VECTOR
136 Q10 = Q108 * ( COS Q2 ) ;Calcul de la correction du rayon de l'outil
137 Q11 = ( Q3 / 2 ) + Q10 ;Largeur Y + Correction du rayon de l'outil
138 QL11 = Q5 + Q10
139 Q12 = ( Q1 / TAN Q2 ) - ( SIN Q2 * Q108 ) ;Correction de l'outil en Z
140 Q21 = ( Q3 / 2 ) - Q5 ;Centre CC en Y
141 Q31 = ( Q13 / 2 ) - Q5 ;Centre CC en X
142 QL13 = Q11 + Q108 ;Position d'approche en Y
143 QL12 = Q12 - 2 ;Position d'approche en Z
144 L  X+Q108  Y-QL13  Z+50 R0 FMAX
145 L  A-Q2  B+0  C+0 R0 FMAX ;Les trois axes rotatifs sont importants à cause de TCPM ... AXIS SPAT
146 L  Z-QL12 R0 F AUTO
147 CC  X+0  Y-QL13
148 CP IPA+90  Z-Q12 DR+
149 L  X-Q31
150 ;
151 QL1 = 270
152 LBL 10
153 QL1 = QL1 - 1
154 QL2 = QL11 * COS QL1
155 QL3 = QL11 * SIN QL1
156 QL2 = Q31 - QL2
157 QL3 = Q21 - QL3
158 L  X-QL2  Y-QL3 IC-1
159 CALL LBL 10 REP89
160 L  Y+Q21
161 QL1 = 180
162 LBL 20
163 QL1 = QL1 - 1
164 QL2 = QL11 * COS QL1
165 QL3 = QL11 * SIN QL1
166 QL2 = Q31 - QL2
167 QL3 = Q21 + QL3
168 L  X-QL2  Y+QL3 IC-1
169 CALL LBL 20 REP89
170 L  X+Q31
171 QL1 = 90
172 LBL 30
173 QL1 = QL1 - 1
174 QL2 = QL11 * COS QL1
175 QL3 = QL11 * SIN QL1
176 QL2 = Q31 + QL2
177 QL3 = Q21 + QL3
178 L  X+QL2  Y+QL3 IC-1
179 CALL LBL 30 REP89
180 L  Y-Q21
181 QL1 = 0
182 LBL 40
183 QL1 = QL1 - 1
184 QL2 = QL11 * COS QL1
185 QL3 = QL11 * SIN QL1
186 QL2 = Q31 + QL2
187 QL3 = Q21 - QL3
188 L  X+QL2  Y-QL3 IC-1
189 CALL LBL 40 REP89
190 L  X+0
191 CC  X+0  Y-QL13
192 CP  PA+180  Z-QL12 DR+
193 L  Z+15 R0 FMAX
194 M140 MB+50
195 M129
196 ;
197 LBL "end"
198 LBL 0
199 END PGM 5090-FR MM