0 BEGIN PGM 10005_ES MM 1 ;Pieza de fresado-torneado 2 ; 3 ;Definición de la pieza en bruto como cilindro 4 BLK FORM CYLINDER Z R60 L100 DIST+1 5 ; 6 ;Activar punto de referencia 7 CYCL DEF 247 BEZUGSPUNKT SETZEN ~ Q339=+2 ;BEZUGSPUNKT-NUMMER 8 ; 9 ;Mecanizado de torneado exterior Desbaste 10 ;Llamada a la herramienta Herramienta de torneado Desbaste 11 TOOL CALL "TURN_ROUGH" 12 ; 13 ;Llamada Subprograma Modo de torneado 14 CALL LBL "TURN" 15 ;Llamada Subprograma Desplazarse a posición segura 16 CALL LBL "SAFE" 17 ; 18 ;Adaptar sistema rotativo 19 CYCL DEF 800 KOORD.-SYST.ANPASSEN ~ Q497=+0 ;PRAEZESSIONSWINKEL ~ Q498=+0 ;WERKZEUG UMKEHREN ~ Q530=+0 ;ANGESTELLTE BEARB. ~ Q531=+0 ;ANSTELLWINKEL ~ Q532=+750 ;VORSCHUB ~ Q533=+0 ;VORZUGSRICHTUNG ~ Q535=+3 ;EXZENTERDREHEN ~ Q536=+0 ;EXZENTR. OHNE STOPP 20 ; 21 ;Definir la velocidad de corte constante 22 ;y la velocidad de giro máxima 23 FUNCTION TURNDATA SPIN VCONST:ON VC:400 SMAX800 24 ; 25 ;Desplazar eje basculante a cero y 26 ;conectar husillo de torneado 27 L A+0 R0 FMAX M303 28 ; 29 ;Refrentado 30 CYCL DEF 821 ABSATZ PLAN ~ Q215=+0 ;BEARBEITUNGS-UMFANG ~ Q460=+2 ;SICHERHEITS-ABSTAND ~ Q493=+0 ;KONTURENDE DURCHMESSER ~ Q494=+0 ;KONTURENDE Z ~ Q463=+3 ;MAX. SCHNITTTIEFE ~ Q478=+0.3 ;VORSCHUB SCHRUPPEN ~ Q483=+0 ;AUFMASS DURCHMESSER ~ Q484=+0.2 ;AUFMASS Z ~ Q505=+0.2 ;VORSCHUB SCHLICHTEN ~ Q506=+0 ;KONTURGLAETTUNG 31 L X+122 Y+0 R0 FMAX ;Posicionamiento previo 32 L Z+10 R0 FMAX ;Posicionamiento previo 33 L Z+2 R0 F0.5 M99 ;Desplazarse a la altura de inicio y llamada del ciclo 34 ; 35 ;Cilindrado 36 CYCL DEF 811 ABSATZ LAENGS ~ Q215=+0 ;BEARBEITUNGS-UMFANG ~ Q460=+2 ;SICHERHEITS-ABSTAND ~ Q493=+117 ;KONTURENDE DURCHMESSER ~ Q494=-80 ;KONTURENDE Z ~ Q463=+3 ;MAX. SCHNITTTIEFE ~ Q478=+0.3 ;VORSCHUB SCHRUPPEN ~ Q483=+0.2 ;AUFMASS DURCHMESSER ~ Q484=+0 ;AUFMASS Z ~ Q505=+0.2 ;VORSCHUB SCHLICHTEN ~ Q506=+0 ;KONTURGLAETTUNG 37 L X+122 Y+0 R0 FMAX ;Posicionamiento previo 38 L Z+10 R0 FMAX ;Posicionamiento previo 39 L Z+2 R0 F0.5 M99 ;Desplazarse a la altura de inicio y llamada del ciclo 40 ; 41 ;Torneado de salida 42 CYCL DEF 811 ABSATZ LAENGS ~ Q215=+0 ;BEARBEITUNGS-UMFANG ~ Q460=+2 ;SICHERHEITS-ABSTAND ~ Q493=+100 ;KONTURENDE DURCHMESSER ~ Q494=-20 ;KONTURENDE Z ~ Q463=+3 ;MAX. SCHNITTTIEFE ~ Q478=+0.3 ;VORSCHUB SCHRUPPEN ~ Q483=+0.2 ;AUFMASS DURCHMESSER ~ Q484=+0 ;AUFMASS Z ~ Q505=+0.2 ;VORSCHUB SCHLICHTEN ~ Q506=+0 ;KONTURGLAETTUNG 43 L X+119 Y+0 R0 FMAX ;Posicionamiento previo 44 L Z+10 R0 FMAX ;Posicionamiento previo 45 L Z+2 R0 F0.5 M99 ;Desplazarse a la altura de inicio y llamada del ciclo 46 ; 47 ;Llamada a la herramienta Herramienta de torneado de profundización axial 48 TOOL CALL "TURN_REC_AX_100-150" 49 ; 50 ;Llamada Subprograma Modo de torneado 51 CALL LBL "TURN" 52 ;Llamada Subprograma Desplazarse a posición segura 53 CALL LBL "SAFE" 54 ; 55 ;Adaptar sistema rotativo 56 CYCL DEF 800 KOORD.-SYST.ANPASSEN ~ Q497=+0 ;PRAEZESSIONSWINKEL ~ Q498=+0 ;WERKZEUG UMKEHREN ~ Q530=+0 ;ANGESTELLTE BEARB. ~ Q531=+0 ;ANSTELLWINKEL ~ Q532=+750 ;VORSCHUB ~ Q533=+0 ;VORZUGSRICHTUNG ~ Q535=+3 ;EXZENTERDREHEN ~ Q536=+0 ;EXZENTR. OHNE STOPP 57 ; 58 ;Definir la velocidad de corte constante 59 ;y la velocidad de giro máxima 60 FUNCTION TURNDATA SPIN VCONST:ON VC:400 SMAX800 61 ; 62 ;Desplazar eje basculante a cero y 63 ;conectar husillo de torneado 64 L A+0 R0 FMAX M303 65 ; 66 ;Profundización axial 67 CYCL DEF 852 STECHDR. ERW. AXIAL ~ Q215=+0 ;BEARBEITUNGS-UMFANG ~ Q460=+2 ;SICHERHEITS-ABSTAND ~ Q491=+85 ;KONTURSTART DURCHMESSER ~ Q492=+0 ;KONTURSTART Z ~ Q493=+50 ;KONTURENDE DURCHMESSER ~ Q494=-5 ;KONTURENDE Z ~ Q495=+0 ;WINKEL FLANKE ~ Q501=+1 ;TYP ANFANGSELEMENT ~ Q502=+0.5 ;GROESSE ANFANGSELEMENT ~ Q500=+0.5 ;RADIUS KONTURECKE ~ Q496=+0 ;WINKEL ZWEITE FLANKE ~ Q503=+1 ;TYP ENDELEMENT ~ Q504=+0.5 ;GROESSE ENDELEMENT ~ Q478=+0.3 ;VORSCHUB SCHRUPPEN ~ Q483=+0.4 ;AUFMASS DURCHMESSER ~ Q484=+0.2 ;AUFMASS Z ~ Q505=+0.2 ;VORSCHUB SCHLICHTEN ~ Q463=+3 ;MAX. SCHNITTTIEFE ~ Q507=+0 ;BEARBEITUNGSRICHTUNG ~ Q508=+0 ;VERSATZBREITE ~ Q509=+0 ;TIEFENKORREKTUR 68 L X+85 Y+0 R0 FMAX ;Posicionamiento previo 69 L Z+10 R0 FMAX ;Posicionamiento previo 70 L Z+2 R0 F0.5 M99 ;Desplazarse a la altura de inicio y llamada del ciclo 71 ; 72 ;Torneado Punción radial 73 ;Llamada a la herramienta Herramienta de torneado de profundización radial 74 TOOL CALL "TURN_REC_RAD" 75 ; 76 ;Llamada Subprograma Modo de torneado 77 CALL LBL "TURN" 78 ;Llamada Subprograma Desplazarse a posición segura 79 CALL LBL "SAFE" 80 ; 81 ;Adaptar sistema rotativo 82 CYCL DEF 800 KOORD.-SYST.ANPASSEN ~ Q497=+0 ;PRAEZESSIONSWINKEL ~ Q498=+0 ;WERKZEUG UMKEHREN ~ Q530=+0 ;ANGESTELLTE BEARB. ~ Q531=+0 ;ANSTELLWINKEL ~ Q532=+750 ;VORSCHUB ~ Q533=+0 ;VORZUGSRICHTUNG ~ Q535=+3 ;EXZENTERDREHEN ~ Q536=+0 ;EXZENTR. OHNE STOPP 83 ; 84 ;Definir la velocidad de corte constante 85 ;y la velocidad de giro máxima 86 FUNCTION TURNDATA SPIN VCONST:ON VC:400 SMAX800 87 ; 88 ;Desplazar eje basculante a cero 89 ;y conectar husillo de torneado 90 L A+0 R0 FMAX M303 91 ; 92 ;Girar contorno 93 CYCL DEF 14.0 KONTUR 94 CYCL DEF 14.1 KONTURLABEL1 95 CYCL DEF 840 STECHDR. KONT. RAD. ~ Q215=+0 ;BEARBEITUNGS-UMFANG ~ Q460=+2 ;SICHERHEITS-ABSTAND ~ Q478=+0.3 ;VORSCHUB SCHRUPPEN ~ Q488=+0.1 ;VORSCHUB EINTAUCHEN ~ Q483=+0.4 ;AUFMASS DURCHMESSER ~ Q484=+0.2 ;AUFMASS Z ~ Q505=+0.2 ;VORSCHUB SCHLICHTEN ~ Q479=+0 ;SCHNITTBEGRENZUNG ~ Q480=+0 ;GRENZWERT DURCHMESSER ~ Q482=+0 ;GRENZWERT Z ~ Q463=+3 ;MAX. SCHNITTTIEFE ~ Q507=+0 ;BEARBEITUNGSRICHTUNG ~ Q508=+0 ;VERSATZBREITE ~ Q509=+0 ;TIEFENKORREKTUR ~ Q499=+0 ;KONTUR UMKEHREN 96 L X+119 Y+0 R0 FMAX ;Posicionamiento previo 97 L Z+10 R0 FMAX ;Posicionamiento previo 98 L Z+2 R0 F0.5 M99 ;Desplazarse a la altura de inicio y llamada del ciclo 99 ; 100 ;Profundización radial 101 CYCL DEF 841 STECHDR. EINFACH R. ~ Q215=+0 ;BEARBEITUNGS-UMFANG ~ Q460=+2 ;SICHERHEITS-ABSTAND ~ Q493=+105 ;KONTURENDE DURCHMESSER ~ Q494=-40 ;KONTURENDE Z ~ Q478=+0.3 ;VORSCHUB SCHRUPPEN ~ Q483=+0.4 ;AUFMASS DURCHMESSER ~ Q484=+0.2 ;AUFMASS Z ~ Q505=+0.2 ;VORSCHUB SCHLICHTEN ~ Q463=+3 ;MAX. SCHNITTTIEFE ~ Q507=+0 ;BEARBEITUNGSRICHTUNG ~ Q508=+0 ;VERSATZBREITE ~ Q509=+0 ;TIEFENKORREKTUR 102 L X+119 Y+0 R0 FMAX ;Posicionamiento previo 103 L Z+10 R0 FMAX ;Posicionamiento previo 104 L Z-23 R0 F0.5 M99 ;Desplazarse a la altura de inicio y llamada del ciclo 105 ; 106 ;Fresado Taladrado 107 ;Llamada Subprograma Modo de fresado 108 CALL LBL "MILL" 109 ; 110 ;Llamada de herramienta fresa cilíndrica 111 TOOL CALL "MILL_D20_ROUGH" Z S3000 F700 112 ; 113 L X+0 Y+0 Z+100 R0 FMAX M3 ;Posicionamiento previo 114 ; 115 ;Fresar taladro 116 CYCL DEF 208 BOHRFRAESEN ~ Q200=+2 ;SICHERHEITS-ABST. ~ Q201=-60 ;TIEFE ~ Q206=+500 ;VORSCHUB TIEFENZ. ~ Q334=+2.5 ;ZUSTELL-TIEFE ~ Q203=+0 ;KOOR. OBERFLAECHE ~ Q204=+50 ;2. SICHERHEITS-ABST. ~ Q335=+32 ;SOLL-DURCHMESSER ~ Q342=+0 ;VORGEB. DURCHMESSER ~ Q351=+1 ;FRAESART 117 M99 ;Llamada al ciclo 118 ; 119 ;Llamada Subprograma Desplazarse a posición segura 120 CALL LBL "SAFE" 121 ; 122 ;Torneado interior desbaste 123 ;Llamada a la herramienta Herramienta de torneado Desbaste 124 TOOL CALL "TURN_ROUGH" 125 ; 126 ;Llamada Subprograma Modo de torneado 127 CALL LBL "TURN" 128 ;Llamada Subprograma Desplazarse a posición segura 129 CALL LBL "SAFE" 130 ; 131 ;Adaptar sistema rotativo 132 CYCL DEF 800 KOORD.-SYST.ANPASSEN ~ Q497=+0 ;PRAEZESSIONSWINKEL ~ Q498=+1 ;WERKZEUG UMKEHREN ~ Q530=+0 ;ANGESTELLTE BEARB. ~ Q531=+0 ;ANSTELLWINKEL ~ Q532=+750 ;VORSCHUB ~ Q533=+0 ;VORZUGSRICHTUNG ~ Q535=+3 ;EXZENTERDREHEN ~ Q536=+0 ;EXZENTR. OHNE STOPP 133 ; 134 ;Definir la velocidad de corte constante 135 ;y la velocidad de giro máxima 136 FUNCTION TURNDATA SPIN VCONST:ON VC:400 SMAX800 137 ; 138 ;Desplazar eje basculante a cero y conectar 139 ;husillo de torneado 140 ;(M304 dado que la herramienta está invertida) 141 L A+0 R0 FMAX M304 142 ; 143 ;Movimiento de entrada del torneado interior 144 CYCL DEF 821 ABSATZ PLAN ~ Q215=+0 ;BEARBEITUNGS-UMFANG ~ Q460=+2 ;SICHERHEITS-ABSTAND ~ Q493=+84 ;KONTURENDE DURCHMESSER ~ Q494=-5 ;KONTURENDE Z ~ Q463=+3 ;MAX. SCHNITTTIEFE ~ Q478=+0.3 ;VORSCHUB SCHRUPPEN ~ Q483=+0.4 ;AUFMASS DURCHMESSER ~ Q484=+0.2 ;AUFMASS Z ~ Q505=+0.2 ;VORSCHUB SCHLICHTEN ~ Q506=+0 ;KONTURGLAETTUNG 145 L X+30 Y+0 R0 FMAX ;Posicionamiento previo 146 L Z+2 R0 FMAX M99 ;Desplazarse a posición de inicio y llamada del ciclo 147 ; 148 ;Movimiento de salida del torneado interior 149 CYCL DEF 822 ABSATZ PLAN ERW. ~ Q215=+0 ;BEARBEITUNGS-UMFANG ~ Q460=+2 ;SICHERHEITS-ABSTAND ~ Q491=+32 ;KONTURSTART DURCHMESSER ~ Q492=-5 ;KONTURSTART Z ~ Q493=+75 ;KONTURENDE DURCHMESSER ~ Q494=-40 ;KONTURENDE Z ~ Q495=+0 ;WINKEL PLANFLAECHE ~ Q501=+0 ;TYP ANFANGSELEMENT ~ Q502=+1 ;GROESSE ANFANGSELEMENT ~ Q500=+1 ;RADIUS KONTURECKE ~ Q496=+0 ;WINKEL UMFANGSFLAECHE ~ Q503=+2 ;TYP ENDELEMENT ~ Q504=+1 ;GROESSE ENDELEMENT ~ Q463=+3 ;MAX. SCHNITTTIEFE ~ Q478=+0.3 ;VORSCHUB SCHRUPPEN ~ Q483=+0.4 ;AUFMASS DURCHMESSER ~ Q484=+0.2 ;AUFMASS Z ~ Q505=+0.2 ;VORSCHUB SCHLICHTEN ~ Q506=+0 ;KONTURGLAETTUNG 150 L X+30 Y+0 R0 FMAX ;Posicionamiento previo 151 L Z-3 R0 FMAX M99 ;Desplazarse a posición de inicio y llamada del ciclo 152 L Z+10 R0 FMAX ;Retirar la hta. 153 ; 154 ;Llamada Subprograma Desplazarse a posición segura 155 CALL LBL "SAFE" 156 ; 157 ;Mecanizado de torneado exterior acabado 158 ;Llamada de herramienta Herramienta de torneado acabado 159 TOOL CALL "TURN_FINISH" 160 ; 161 ;Llamada Subprograma Modo de torneado 162 CALL LBL "TURN" 163 ; 164 ;Activar el seguimiento de la pieza en bruto 165 ;Pieza en bruto definida en el subprograma Blank 166 FUNCTION TURNDATA BLANK LBL "Blank" 167 ; 168 ;Adaptar sistema rotativo 169 ;La herramienta se ajusta, ya que se 170 ;hace punzonado 171 CYCL DEF 800 KOORD.-SYST.ANPASSEN ~ Q497=+90 ;PRAEZESSIONSWINKEL ~ Q498=+0 ;WERKZEUG UMKEHREN ~ Q530=+2 ;ANGESTELLTE BEARB. ~ Q531=+30 ;ANSTELLWINKEL ~ Q532=+750 ;VORSCHUB ~ Q533=-1 ;VORZUGSRICHTUNG ~ Q535=+3 ;EXZENTERDREHEN ~ Q536=+0 ;EXZENTR. OHNE STOPP 172 ; 173 ;Definir la velocidad de corte 174 ;constante y la velocidad de giro máxima 175 FUNCTION TURNDATA SPIN VCONST:ON VC:500 S800 176 ; 177 M303 178 ;Acabado del contorno 179 CYCL DEF 14.0 KONTUR 180 CYCL DEF 14.1 KONTURLABEL3 181 CYCL DEF 810 DREHEN KONTUR LAENGS ~ Q215=+0 ;BEARBEITUNGS-UMFANG ~ Q460=+2 ;SICHERHEITS-ABSTAND ~ Q499=+0 ;KONTUR UMKEHREN ~ Q463=+3 ;MAX. SCHNITTTIEFE ~ Q478=+0.3 ;VORSCHUB SCHRUPPEN ~ Q483=+0.1 ;AUFMASS DURCHMESSER ~ Q484=+0.1 ;AUFMASS Z ~ Q505=+0.2 ;VORSCHUB SCHLICHTEN ~ Q487=+1 ;EINTAUCHEN ~ Q488=+0 ;VORSCHUB EINTAUCHEN ~ Q479=+0 ;SCHNITTBEGRENZUNG ~ Q480=+0 ;GRENZWERT DURCHMESSER ~ Q482=+0 ;GRENZWERT Z ~ Q506=+0 ;KONTURGLAETTUNG 182 M99 ;Llamada al ciclo 183 ; 184 ;Mecanizado de torneado Roscado 185 ;Llamada a la herramienta Herramienta de roscado 186 TOOL CALL "TURN_THREAD" 187 ; 188 ;Llamada Subprograma Modo de torneado 189 CALL LBL "TURN" 190 ; 191 ;Llamada Subprograma Desplazarse a posición segura 192 CALL LBL "SAFE" 193 ; 194 ;Adaptar sistema rotativo 195 CYCL DEF 800 KOORD.-SYST.ANPASSEN ~ Q497=+0 ;PRAEZESSIONSWINKEL ~ Q498=+0 ;WERKZEUG UMKEHREN ~ Q530=+0 ;ANGESTELLTE BEARB. ~ Q531=+0 ;ANSTELLWINKEL ~ Q532=+750 ;VORSCHUB ~ Q533=+0 ;VORZUGSRICHTUNG ~ Q535=+3 ;EXZENTERDREHEN ~ Q536=+0 ;EXZENTR. OHNE STOPP 196 ; 197 ;Definir la velocidad de corte constante 198 ;y la velocidad de giro máxima 199 FUNCTION TURNDATA SPIN VCONST:ON VC:300 SMAX800 200 ; 201 ;Desplazar eje basculante a cero y conectar 202 ;husillo de torneado 203 L A+0 R0 FMAX M304 204 ; 205 ;Roscado a punta de cuchilla 206 CYCL DEF 831 GEWINDE LAENGS ~ Q471=+0 ;GEWINDELAGE ~ Q460=+2 ;SICHERHEITS-ABSTAND ~ Q491=+95 ;GEWINDEDURCHMESSER ~ Q472=+1.5 ;GEWINDESTEIGUNG ~ Q473=+0 ;GEWINDETIEFE ~ Q492=+0 ;KONTURSTART Z ~ Q494=-20 ;KONTURENDE Z ~ Q474=+0 ;GEWINDEAUSLAUF ~ Q463=+0.3 ;MAX. SCHNITTTIEFE ~ Q467=+0 ;ZUSTELLWINKEL ~ Q468=+1 ;ZUSTELLART ~ Q470=+0 ;STARTWINKEL ~ Q475=+1 ;GANGANZAHL ~ Q476=+2 ;ANZAHL LEERSCHNITTE 207 L X+98 Y+0 R0 FMAX ;Posicionamiento previo 208 L Z+2 R0 FMAX ;Aproximarse a la posición de inicio 209 M99 ;Llamada al ciclo 210 ; 211 ;Torneado Punción radial 212 ;Llamada a la herramienta Herramienta de torneado de profundización radial 213 TOOL CALL "TURN_REC_RAD" 214 ; 215 ;Llamada Subprograma Modo de torneado 216 CALL LBL "TURN" 217 ;Llamada Subprograma Desplazarse a posición segura 218 CALL LBL "SAFE" 219 ; 220 ;Adaptar sistema rotativo 221 CYCL DEF 800 KOORD.-SYST.ANPASSEN ~ Q497=+0 ;PRAEZESSIONSWINKEL ~ Q498=+0 ;WERKZEUG UMKEHREN ~ Q530=+0 ;ANGESTELLTE BEARB. ~ Q531=+0 ;ANSTELLWINKEL ~ Q532=+750 ;VORSCHUB ~ Q533=+0 ;VORZUGSRICHTUNG ~ Q535=+3 ;EXZENTERDREHEN ~ Q536=+0 ;EXZENTR. OHNE STOPP 222 ; 223 ;Definir la velocidad de corte constante 224 ;y la velocidad de giro máxima 225 FUNCTION TURNDATA SPIN VCONST:ON VC:400 SMAX800 226 ; 227 ;Desplazar eje basculante a cero 228 ;y conectar husillo de torneado 229 L A+0 R0 FMAX M303 230 ; 231 ;Torneado Punción radial 232 ;Tornear perfil 233 CYCL DEF 14.0 KONTUR 234 CYCL DEF 14.1 KONTURLABEL4 235 CYCL DEF 840 STECHDR. KONT. RAD. ~ Q215=+0 ;BEARBEITUNGS-UMFANG ~ Q460=+2 ;SICHERHEITS-ABSTAND ~ Q478=+0.3 ;VORSCHUB SCHRUPPEN ~ Q488=+0.1 ;VORSCHUB EINTAUCHEN ~ Q483=+0.4 ;AUFMASS DURCHMESSER ~ Q484=+0.2 ;AUFMASS Z ~ Q505=+0.2 ;VORSCHUB SCHLICHTEN ~ Q479=+0 ;SCHNITTBEGRENZUNG ~ Q480=+0 ;GRENZWERT DURCHMESSER ~ Q482=+0 ;GRENZWERT Z ~ Q463=+3 ;MAX. SCHNITTTIEFE ~ Q507=+0 ;BEARBEITUNGSRICHTUNG ~ Q508=+0 ;VERSATZBREITE ~ Q509=+0 ;TIEFENKORREKTUR ~ Q499=+0 ;KONTUR UMKEHREN 236 L X+119 Y+0 R0 FMAX ;Posicionamiento previo 237 L Z+10 R0 FMAX ;Posicionamiento previo 238 L Z+2 R0 F0.5 M99 ;Desplazarse a la posición de inicio y llamar ciclo 239 ; 240 ;Llamada Subprograma Modo de fresado 241 CALL LBL "MILL" 242 ;Llamada Subprograma Desplazarse a posición segura 243 CALL LBL "SAFE" 244 ;Final del programa 245 M30 246 ; 247 ;Subprograma Modo de torneado 248 LBL "TURN" 249 M140 MB MAX ;Retirar la hta. 250 M145 ;Cancelar cálculo de cinemática 251 FUNCTION MODE TURN ;Activar el modo de torneado 252 M144 ;Activar cálculo de cinemática 253 M136 ;Cambiar a avance en mm por revolución 254 LBL 0 255 ; 256 ;Subprograma Modo de fresado 257 LBL "MILL" 258 M140 MB MAX ;Retirar la hta. 259 M145 ;Cancelar conversión de cinemática 260 FUNCTION MODE MILL ;Activar el modo de fresado 261 M137 ;Cambiar a avance en mm por revolución 262 ;Llamada del subprograma Desplazarse a posición segura 263 CALL LBL "SAFE" 264 L C+0 A+0 R0 FMAX ;Desplazar eje basculante a cero 265 LBL 0 266 ; 267 ;Subprograma Desplazarse a posición segura 268 LBL "SAFE" 269 L X+400 Y+400 R0 FMAX M91 ;Posición segura ¡Depende de la máquina! 270 LBL 0 271 ; 272 ;Contorno para seguimiento de la pieza en bruto 273 LBL "Blank" 274 L Z+0 X+0 275 L Z+0 X+100 276 L Z-20 X+100 277 L Z-20 X+116.9997 278 L Z-23 X+117 279 L Z-23 X+105 280 L Z-40 X+105 281 L Z-40 X+116.9997 282 L Z-43 X+117 283 L Z-43 X+100 284 L Z-56.9063 X+100 285 L Z-56.9063 X+0 286 L Z-60 X+117 287 L Z-60 X+0 288 L Z-80 X+117 289 L Z-80 X+119.9997 290 L Z-100 X+120 291 L Z-100 X+0 292 L Z+0 293 LBL 0 294 ; 295 ;Contorno1 296 LBL 1 297 L X+117 Z-43 RL 298 L X+100 299 L Z-56.9063 300 L X+117 Z-60 301 LBL 0 302 ; 303 ;Contorno3 304 LBL 3 305 L X+90 Z+0 306 L X+95 307 RND R2 308 L Z-20 309 UDC THREAD PITCH1.5 R0.8 DEPTH0.8 BREADTH5 ;Entalladura 310 L X+110 311 LBL 0 312 ; 313 ;Contorno4 314 LBL 4 315 L X+105 Z-23 316 L Z-27 317 GRV RADIAL CENTER-31.5 R1 DIAM89 BREADTH9 ANG_WIDTH28.072 RND1 FAR_RND1 ;Entrada 318 L Z-40 319 LBL 0 320 END PGM 10005_ES MM