0 BEGIN PGM 4220_ES MM 1 ;Programa para mecanizar las superficies laterales 2 ;y la superficie superior de un paralelepípedo. 3 ;El punto de referencia debe encontrarse en 4 ;X e Y en el centro y en el eje Z en la parte 5 ;inferior. 6 ;En los parámetros, deben definirse las 7 ;dimensiones en bruto y acabadas en los ejes 8 ;individuales. Además, deben definirse la 9 ;herramienta, los datos de corte, las dimensiones 10 ;y las distancias de seguridad. 11 ;Después, el control numérico calcula las cotas 12 ;para la forma BLK y las dimensiones para las 13 ;superficies individuales. 14 ;A continuación, se realiza la definición de la 15 ;forma BLK y la llamada de herramienta con los 16 ;parámetros introducidos o calculados 17 ;previamente. Tras ello, el control numérico 18 ;decide qué superficies se van a mecanizar mediante 19 ;una comparación de la pieza en bruto y la pieza 20 ;acabada. 21 ;Seguidamente, el control numérico mecaniza las 22 ;superficies necesarias. 23 ;¡¡IMPORTANTE!! 24 ;En las superficies que se van a mecanizar no puede 25 ;haber elementos tensores. 26 ;Antes de desplazar los ejes rotativos, debe 27 ;aproximarse una posición segura que depende de la 28 ;máquina y debe ser ajustada por el usuario. 29 ; 30 ;Introducción de parámetros 31 Q1 = 550 ;DIMENSIÓN FINAL X 32 Q2 = 200 ;DIMENSIÓN FINAL Y 33 Q3 = 200 ;DIMENSIÓN FINAL Z 34 Q4 = 650 ;DIMENSIÓN DE LA PIEZA EN BRUTO X 35 Q5 = 210 ;DIMENSIÓN DE LA PIEZA EN BRUTO Y 36 Q6 = 210 ;DIMENSIÓN DE LA PIEZA EN BRUTO Z 37 Q9 = 51 ;NÚMERO DE HERRAMIENTA 38 Q10 = 5200 ;VELOCIDAD 39 Q11 = 1200 ;AVANCE DE FRESADO 40 Q15 = 3 ;PROFUNDIDAD DE APROXIMACIÓN 41 Q16 = 0.3 ;SOBREMEDIDA PROFUND. 42 Q17 = 800 ;AVANCE ACABADO 43 Q18 = 3 ;DISTANCIA DE SEGURIDAD 44 Q19 = 50 ;ALTURA SEGURA PARA EL POSICIONAMIENTO PREVIO 45 ;Fin de la introducción de parámetros 46 ; 47 ;variables 48 Q7 = Q4 / 2 ;1/2 de la dimensión en bruto X para BLK 49 Q8 = Q5 / 2 ;1/2 de la dimensión en bruto Y para BLK 50 Q12 = ( Q4 - Q1 ) / 2 ;Sobremedida en X según el lado 51 Q13 = Q1 / 2 ;Cota de acabado X desde el centro de la herramienta 52 Q22 = ( Q5 - Q2 ) / 2 ;Sobremedida en Y según el lado 53 Q23 = Q2 / 2 ;Cota de acabado Y desde el centro de la herramienta 54 Q30 = Q19 + Q12 ;Posicionamiento previo en el mecanizado en X 55 Q31 = Q19 + Q22 ;Posicionamiento previo en el mecanizado en Y 56 Q32 = Q19 + Q6 ;Posicionamiento previo en el mecanizado en Z 57 ;Fin de los cálculos 58 ; 59 BLK FORM 0.1 Z X-Q7 Y-Q8 Z+0 60 BLK FORM 0.2 X+Q7 Y+Q8 Z+Q6 61 ; 62 ;Llamada a la herramienta 63 TOOL CALL Q9 Z SQ10 FQ11 64 ; 65 M3 66 ; 67 ;Comparación de la cota en bruto y la cota acabada en 68 ;el eje X. Si es preciso mecanizar, salto LBL1 69 FN 11: IF +Q4 GT +Q1 GOTO LBL 1 70 ; 71 LBL 3 ;LBL para el retorno 72 ;Comparación de la cota en bruto y la cota acabada en 73 ;el eje Y. Si es preciso mecanizar, salto a LBL2 74 FN 11: IF +Q5 GT +Q2 GOTO LBL 2 75 ; 76 LBL 4 ;LBL para el retorno 77 ;Comparación de la cota en bruto y la cota acabada en 78 ;el eje Z. Si es preciso mecanizar, salto a LBL5 79 FN 11: IF +Q6 GT +Q3 GOTO LBL 5 80 ; 81 LBL 6 ;LBL para el retorno 82 ; 83 M140 MB MAX F9999 ;Retirar la hta. 84 M30 ;Final del programa 85 ; 86 ;Subprogramas 87 ;Mecanizado X 88 LBL 1 89 ;Decalaje del punto cero en la arista de la pieza acabada 90 CYCL DEF 7.0 PUNTO CERO 91 CYCL DEF 7.1 X+Q13 92 L Z+Q32 R0 FMAX ;Desplazar a posición segura Z 93 L X+0 Y+0 R0 FMAX ;Aproximar posición de basculación 94 ;Inclinación del plano de mecanizado 95 PLANE SPATIAL SPA+90 SPB+0 SPC+90 MOVE DIST200 FMAX 96 ;Posicionamiento previo en Z a una altura segura 97 L Z+Q30 R0 FMAX 98 ;Posicionamiento previo en X e Y 99 L X+0 Y+0 R0 FMAX 100 ;Definición del ciclo 101 CYCL DEF 232 FRESADO PLANO ~ Q389=+2 ;ESTRATEGIA ~ Q225=-Q8 ;PTO. INICIAL 1ER EJE ~ Q226=+0 ;PTO. INICIAL 2. EJE ~ Q227=+Q12 ;PTO. INICIAL 3ER EJE ~ Q386=+0 ;PUNTO FINAL 3ER EJE ~ Q218=+Q5 ;1A LONGITUD LATERAL ~ Q219=+Q6 ;2A LONGITUD LATERAL ~ Q202=+Q15 ;MAX. PROF. PASADA ~ Q369=+Q16 ;SOBREMEDIDA PROFUND. ~ Q370=+1 ;MAX. SOLAPAMIENTO ~ Q207=+Q11 ;AVANCE DE FRESADO ~ Q385=+Q17 ;AVANCE ACABADO ~ Q253= MAX ;AVANCE PREPOSICION. ~ Q200=+5 ;DISTANCIA SEGURIDAD ~ Q357=+5 ;DIST. SEGUR. LATERAL ~ Q204=+50 ;2A DIST. SEGURIDAD 102 CYCL CALL 103 M140 MB+200 ;Retirar la hta. 104 L X+0 Y+Q6 R0 FMAX ;Aproximar posición de basculación 105 PLANE RESET MOVE DIST200 FMAX ;Deshacer la inclinación del espacio de trabajo 106 ;Decalaje del punto cero en la segunda arista de la 107 ;pieza acabada 108 CYCL DEF 7.0 PUNTO CERO 109 CYCL DEF 7.1 X-Q13 110 L X+0 R0 FMAX ;Aproximar posición de basculación 111 ;Inclinación del plano de mecanizado 112 PLANE SPATIAL SPA+90 SPB+0 SPC+270 MOVE DIST200 FMAX 113 ;Posicionamiento previo en Z a una altura segura 114 L Z+Q30 R0 FMAX 115 ;Posicionamiento previo en X e Y 116 L X+0 Y+0 R0 FMAX 117 ;Definición del ciclo 118 CYCL DEF 232 FRESADO PLANO ~ Q389=+2 ;ESTRATEGIA ~ Q225=-Q8 ;PTO. INICIAL 1ER EJE ~ Q226=+0 ;PTO. INICIAL 2. EJE ~ Q227=+Q12 ;PTO. INICIAL 3ER EJE ~ Q386=+0 ;PUNTO FINAL 3ER EJE ~ Q218=+Q5 ;1A LONGITUD LATERAL ~ Q219=+Q6 ;2A LONGITUD LATERAL ~ Q202=+Q15 ;MAX. PROF. PASADA ~ Q369=+Q16 ;SOBREMEDIDA PROFUND. ~ Q370=+1 ;MAX. SOLAPAMIENTO ~ Q207=+Q11 ;AVANCE DE FRESADO ~ Q385=+Q17 ;AVANCE ACABADO ~ Q253= MAX ;AVANCE PREPOSICION. ~ Q200=+5 ;DISTANCIA SEGURIDAD ~ Q357=+5 ;DIST. SEGUR. LATERAL ~ Q204=+50 ;2A DIST. SEGURIDAD 119 CYCL CALL 120 M140 MB+200 ;Retirar la hta. 121 L X+0 Y+Q6 R0 FMAX ;Aproximar posición de basculación 122 ;Deshacer la inclinación del espacio de trabajo 123 PLANE RESET MOVE DIST200 FMAX 124 ;Reponer el punto cero 125 CYCL DEF 7.0 PUNTO CERO 126 CYCL DEF 7.1 X+0 127 CYCL DEF 7.2 Y+0 128 CYCL DEF 7.3 Z+0 129 FN 9: IF +0 EQU +0 GOTO LBL 3 ;Retorno 130 ;*************************************** 131 ;Mecanizado Y 132 LBL 2 133 ;Decalaje del punto cero en la arista de la pieza acabada 134 CYCL DEF 7.0 PUNTO CERO 135 CYCL DEF 7.1 Y+Q23 136 L X+0 Y+0 R0 FMAX ;Aproximar posición de basculación 137 ;Inclinación del plano de mecanizado 138 PLANE SPATIAL SPA+90 SPB+0 SPC+180 MOVE DIST200 FMAX 139 ;Posicionamiento previo en Z a una altura segura 140 L Z+Q31 R0 FMAX 141 ;Posicionamiento previo en X e Y 142 L X+0 Y+0 R0 FMAX 143 ;Definición del ciclo 144 CYCL DEF 232 FRESADO PLANO ~ Q389=+2 ;ESTRATEGIA ~ Q225=-Q13 ;PTO. INICIAL 1ER EJE ~ Q226=+0 ;PTO. INICIAL 2. EJE ~ Q227=+Q22 ;PTO. INICIAL 3ER EJE ~ Q386=+0 ;PUNTO FINAL 3ER EJE ~ Q218=+Q1 ;1A LONGITUD LATERAL ~ Q219=+Q6 ;2A LONGITUD LATERAL ~ Q202=+Q15 ;MAX. PROF. PASADA ~ Q369=+Q16 ;SOBREMEDIDA PROFUND. ~ Q370=+1 ;MAX. SOLAPAMIENTO ~ Q207=+Q11 ;AVANCE DE FRESADO ~ Q385=+Q17 ;AVANCE ACABADO ~ Q253= MAX ;AVANCE PREPOSICION. ~ Q200=+5 ;DISTANCIA SEGURIDAD ~ Q357=+5 ;DIST. SEGUR. LATERAL ~ Q204=+50 ;2A DIST. SEGURIDAD 145 CYCL CALL 146 M140 MB+200 ;Retirar la hta. 147 L X+0 Y+Q6 R0 FMAX ;Aproximar posición de basculación 148 ;Deshacer la inclinación del espacio de trabajo 149 PLANE RESET MOVE DIST200 FMAX 150 ;Decalaje del punto cero en la segunda arista de la pieza 151 ;acabada 152 CYCL DEF 7.0 PUNTO CERO 153 CYCL DEF 7.1 Y-Q23 154 L Y+0 R0 FMAX ;Desplazar a posición de basculación 155 PLANE SPATIAL SPA+90 SPB+0 SPC+0 TURN MB100 FMAX 156 ;Posicionamiento previo en Z a una altura segura 157 L Z+Q31 R0 FMAX 158 ;Posicionamiento previo en X e Y 159 L X+0 Y+0 R0 FMAX 160 ;Definición del ciclo 161 CYCL DEF 232 FRESADO PLANO ~ Q389=+2 ;ESTRATEGIA ~ Q225=-Q13 ;PTO. INICIAL 1ER EJE ~ Q226=+0 ;PTO. INICIAL 2. EJE ~ Q227=+Q22 ;PTO. INICIAL 3ER EJE ~ Q386=+0 ;PUNTO FINAL 3ER EJE ~ Q218=+Q1 ;1A LONGITUD LATERAL ~ Q219=+Q6 ;2A LONGITUD LATERAL ~ Q202=+Q15 ;MAX. PROF. PASADA ~ Q369=+Q16 ;SOBREMEDIDA PROFUND. ~ Q370=+1 ;MAX. SOLAPAMIENTO ~ Q207=+Q11 ;AVANCE DE FRESADO ~ Q385=+Q17 ;AVANCE ACABADO ~ Q253= MAX ;AVANCE PREPOSICION. ~ Q200=+5 ;DISTANCIA SEGURIDAD ~ Q357=+5 ;DIST. SEGUR. LATERAL ~ Q204=+50 ;2A DIST. SEGURIDAD 162 CYCL CALL 163 M140 MB+200 ;Retirar la hta. 164 L X+0 Y+Q6 R0 FMAX ;Aproximar posición de basculación 165 ;Deshacer la inclinación del espacio de trabajo 166 PLANE RESET MOVE DIST200 FMAX 167 ;Reponer el punto cero 168 CYCL DEF 7.0 PUNTO CERO 169 CYCL DEF 7.1 X+0 170 CYCL DEF 7.2 Y+0 171 CYCL DEF 7.3 Z+0 172 FN 9: IF +0 EQU +0 GOTO LBL 4 ;Retorno 173 ;******************************************* 174 ;Mecanizado Z 175 LBL 5 176 ;Definición del ciclo 177 CYCL DEF 232 FRESADO PLANO ~ Q389=+2 ;ESTRATEGIA ~ Q225=-Q7 ;PTO. INICIAL 1ER EJE ~ Q226=-Q8 ;PTO. INICIAL 2. EJE ~ Q227=+Q6 ;PTO. INICIAL 3ER EJE ~ Q386=+Q3 ;PUNTO FINAL 3ER EJE ~ Q218=+Q4 ;1A LONGITUD LATERAL ~ Q219=+Q5 ;2A LONGITUD LATERAL ~ Q202=+Q15 ;MAX. PROF. PASADA ~ Q369=+Q16 ;SOBREMEDIDA PROFUND. ~ Q370=+1 ;MAX. SOLAPAMIENTO ~ Q207=+Q11 ;AVANCE DE FRESADO ~ Q385=+Q17 ;AVANCE ACABADO ~ Q253= MAX ;AVANCE PREPOSICION. ~ Q200=+5 ;DISTANCIA SEGURIDAD ~ Q357=+5 ;DIST. SEGUR. LATERAL ~ Q204=+50 ;2A DIST. SEGURIDAD 178 CYCL CALL 179 M140 MB+300 F5000 ;Retirar la hta. 180 FN 9: IF +0 EQU +0 GOTO LBL 6 ;Retorno 181 END PGM 4220_ES MM