0  BEGIN PGM 5090_ES MM 
1  ;En este programa se mecanizan, en un plano inclinado,
2  ;una isla rectangular y una cajera rectangular y, a
3  ;continuación, se fresa un bisel en los contornos
4  ;circunferencialmente con una herramienta inclinada.
5  ;Los contornos se programan con ciclos. Para el
6  ;fresado, debe definir los parámetros que el control
7  ;numérico utilizará para calcular las trayectorias de
8  ;la herramienta.
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 ;Fresadora D16
13 ;Reset
14 M129
15 CYCL DEF 7.0 PUNTO CERO
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 ;Inclinar el plano de mecanizado
22 PLANE SPATIAL SPA+15 SPB+0 SPC+0 TURN MB100 FMAX
23 CYCL DEF 232 FRESADO PLANO ~
    Q389=+2    ;ESTRATEGIA ~
    Q225=-50   ;PTO. INICIAL 1ER EJE ~
    Q226=-60   ;PTO. INICIAL 2. EJE ~
    Q227=+20   ;PTO. INICIAL 3ER EJE ~
    Q386=+0    ;PUNTO FINAL 3ER EJE ~
    Q218=+100  ;1A LONGITUD LATERAL ~
    Q219=+120  ;2A LONGITUD LATERAL ~
    Q202=+20   ;MAX. PROF. PASADA ~
    Q369=+0    ;SOBREMEDIDA PROFUND. ~
    Q370=+1    ;MAX. SOLAPAMIENTO ~
    Q207= AUTO ;AVANCE DE FRESADO ~
    Q385= AUTO ;AVANCE ACABADO ~
    Q253= MAX ;AVANCE PREPOSICION. ~
    Q200=+2    ;DISTANCIA SEGURIDAD ~
    Q357=+2    ;DIST. SEGUR. LATERAL ~
    Q204=+50   ;2A DIST. SEGURIDAD
24 L  X+0  Y+0  Z+100 R0 FMAX M3 M99
25 CYCL DEF 251 CAJERA RECTANGULAR ~
    Q215=+0    ;TIPO MECANIZADO ~
    Q218=+60   ;1A LONGITUD LATERAL ~
    Q219=+50   ;2A LONGITUD LATERAL ~
    Q220=+10   ;RADIO ESQUINA ~
    Q368=+0    ;SOBREMEDIDA LATERAL ~
    Q224=+0    ;ANGULO GIRO ~
    Q367=+0    ;POSICION CAJERA ~
    Q207= AUTO ;AVANCE DE FRESADO ~
    Q351=+1    ;TIPO DE FRESADO ~
    Q201=-10   ;PROFUNDIDAD ~
    Q202=+10   ;PASO PROFUNDIZACION ~
    Q369=+0    ;SOBREMEDIDA PROFUND. ~
    Q206= AUTO ;AVANCE PROFUNDIDAD ~
    Q338=+0    ;PASADA PARA ACABADO ~
    Q200=+2    ;DISTANCIA SEGURIDAD ~
    Q203=+0    ;COORD. SUPERFICIE ~
    Q204=+50   ;2A DIST. SEGURIDAD ~
    Q370=+1    ;SOLAPAM. TRAYECTORIA ~
    Q366=+1    ;PUNZONAR ~
    Q385=+500  ;AVANCE ACABADO
26 L  X+0  Y+0 R0 FMAX M3 M99
27 CYCL DEF 256 ISLAS RECTANGULARES ~
    Q218=+80   ;1A LONGITUD LATERAL ~
    Q424=+100  ;COTA PIEZA BRUTO 1 ~
    Q219=+65   ;2A LONGITUD LATERAL ~
    Q425=+120  ;COTA PIEZA BRUTO 2 ~
    Q220=+10   ;RADIO / CHAFLAN ~
    Q368=+0    ;SOBREMEDIDA LATERAL ~
    Q224=+0    ;ANGULO GIRO ~
    Q367=+0    ;POSICION ISLA ~
    Q207= AUTO ;AVANCE DE FRESADO ~
    Q351=+1    ;TIPO DE FRESADO ~
    Q201=-10   ;PROFUNDIDAD ~
    Q202=+10   ;PASO PROFUNDIZACION ~
    Q206=+3000 ;AVANCE PROFUNDIDAD ~
    Q200=+2    ;DISTANCIA SEGURIDAD ~
    Q203=+0    ;COORD. SUPERFICIE ~
    Q204=+50   ;2A DIST. SEGURIDAD ~
    Q370=+1    ;SOLAPAM. TRAYECTORIA ~
    Q437=+0    ;POSICION APROXIMACION
28 L  X+0  Y+0 R0 FMAX M3 M99
29 ;
30 ;Parámetro bisel
31 Q1 = 2 ;LONGITUD DEL BISEL
32 Q2 = 30 ;ÁNGULO DEL BISEL
33 Q13 = 60 ;LONGITUD X
34 Q3 = 50 ;ANCHURA Y
35 Q5 = 10 ;RADIO DE
36 Q4 = 1 ;MECANIZADO 1=INTERIOR 2=EXTERIOR
37 TOOL CALL  DL-0.5 ;Obtener un sobrepaso alrededor del borde inferior del bisel
38 CALL LBL "fase"
39 ;
40 ;Parámetro bisel
41 Q1 = 2 ;LONGITUD DEL BISEL
42 Q2 = 30 ;ÁNGULO DEL BISEL
43 Q13 = 80 ;LONGITUD X
44 Q3 = 65 ;ANCHURA Y
45 Q5 = 10 ;RADIO DE
46 Q4 = 2 ;MECANIZADO 1=INTERIOR 2=EXTERIOR
47 TOOL CALL  DL-0.5 ;Obtener un sobrepaso alrededor del borde inferior del bisel
48 CALL LBL "fase"
49 ;
50 FUNCTION RESET TCPM
51 ;desplazarse a una posición segura
52 L  Z+500 R0 FMAX M91
53 L  X+800  Y+600 R0 FMAX M91
54 ;Deshacer la inclinación del espacio de trabajo
55 PLANE RESET TURN FMAX
56 ;Final del programa
57 M30
58 ;Subprogramas
59 LBL "fase"
60 ;Consulta exterior o interior
61 FN 9: IF +Q4 EQU +1 GOTO LBL "inside"
62 FN 9: IF +Q4 EQU +2 GOTO LBL "outside"
63 STOP
64 ;Seleccionar Q4 exterior o interior
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 ) ;Calcular radio de la corrección de herramienta
72 Q11 = ( Q3 / 2 ) - Q10 ;Anchura Y - Radio de la corrección de herramienta
73 QL11 = Q5 - Q10
74 Q21 = ( Q3 / 2 ) - Q5 ;Centro CC Y
75 Q31 = ( Q13 / 2 ) - Q5 ;Centro CC X
76 Q12 = ( Q1 / TAN Q2 ) - ( SIN Q2 * Q108 ) ;Corrección de herramienta Z
77 QL13 = Q11 - Q108 ;Posición de aproximación Y
78 QL12 = Q12 - 2 ;Posición aproximación Z
79 L  X-Q108  Y-QL13  Z+50 R0 FMAX
80 L  A+Q2  B+0  C+0 R0 FMAX ;Importante que los tres ejes rotativos debido a 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 ) ;Calcular radio de la corrección de herramienta
137 Q11 = ( Q3 / 2 ) + Q10 ;Anchura Y + Radio de la corrección de herramienta
138 QL11 = Q5 + Q10
139 Q12 = ( Q1 / TAN Q2 ) - ( SIN Q2 * Q108 ) ;Corrección de herramienta Z
140 Q21 = ( Q3 / 2 ) - Q5 ;Centro CC Y
141 Q31 = ( Q13 / 2 ) - Q5 ;Centro CC X
142 QL13 = Q11 + Q108 ;Posición de aproximación Y
143 QL12 = Q12 - 2 ;Posición aproximación Z
144 L  X+Q108  Y-QL13  Z+50 R0 FMAX
145 L  A-Q2  B+0  C+0 R0 FMAX ;Importante que los tres ejes rotativos debido a 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_ES MM