0 BEGIN PGM 4235_ES MM 1 ;Programa NC para crear un contorno inclinado. 2 ;Para evitar movimientos innecesarios en el 3 ;aire y poder realizar el mecanizado con la 4 ;herramienta más corta posible, el mecanizado 5 ;se realiza en los siguientes pasos. 6 ;En primer lugar, defina todos los parámetros 7 ;necesarios para el mecanizado y la herramienta. 8 ;A continuación, el control numérico ejecuta 9 ;algunos cálculos. Después, el control numérico 10 ;posiciona la herramienta, perpendicular a la 11 ;superficie, en el centro del mecanizado y 12 ;ejecuta un ciclo de cajera circular. Con este 13 ;ciclo, el control numérico elabora el taladro 14 ;interior (núcleo) más grande posible. 15 ;Tras ello, el control numérico aproxima la 16 ;herramienta, la desplaza a una profundidad 17 ;calculada previamente, compuesta por la 18 ;profundidad de fresado y un offset, para que 19 ;el borde inferior del taladro coincida con 20 ;la profundidad de fresado. Después, desplaza 21 ;la herramienta a una trayectoria elíptica y 22 ;crea el contorno del taladro. Al final 23 ;del programa, el control numérico vuelve a 24 ;desplazar la herramienta al centro, desplaza 25 ;de nuevo los ejes rotativos a cero, desactiva 26 ;TCPM y finaliza el programa. 27 ; 28 ; 29 BLK FORM 0.1 Z X+0 Y+0 Z-15 30 BLK FORM 0.2 X+100 Y+100 Z+0 31 ; 32 ;Introducción de parámetros 33 FN 0: Q1 =+25 ;RADIO DEL TALADRO 34 FN 0: Q3 =+0 ;ANGULO INICIAL 35 FN 0: Q4 =+360 ;ANGULO FINAL 36 FN 0: Q7 =+50 ;CENTRO DEL TALADRO X 37 FN 0: Q8 =+50 ;CENTRO DEL TALADRO Y 38 FN 0: Q9 =+0 ;PLANO DE COORDENADAS 39 FN 0: Q11 =-10 ;ÁNGULO DE INCLINACIÓN A 40 FN 0: Q12 =-20 ;PROF. DE FRESADO 41 FN 0: Q20 =+1500 ;AVANCE AL PROFUNDIZAR 42 FN 0: Q21 =+2000 ;AVANCE DE FRESADO 43 FN 0: Q25 =+5 ;POSICIÓN SEGURA Z 44 FN 0: Q26 =+360 ;DIVISIÓN 45 ;Fin de la introducción de parámetros 46 ; 47 ;Llamada de herramienta de fresado 48 TOOL CALL 8 Z S3000 49 ; 50 ;variablesvariables 51 Q38 = COS Q11 ;Convertir el ángulo de inclinación 52 FN 4: Q60 =+Q1 DIV +Q38 ;Semieje Y para taladro interior (núcleo) 53 Q61 = Q12 ;Profundidad del taladro interior 54 Q62 = SIN Q11 * Q108 ;Offset Z para la trayectoria inclinada 55 FN 12: IF +Q62 LT +0 GOTO LBL 22 ;Comprobar si el valor del offset en Z es negativo 56 LBL 23 57 Q12 = Q12 - Q62 ;Profundidad Z para la trayectoria inclinada 58 Q1 = Q1 - Q108 ;Radio corregido para la trayectoria de herramienta inclinada 59 Q27 = Q12 * TAN Q11 ;Offset del punto central desde el contorno superior al inferior 60 Q29 = Q27 ;Escribir offset para la comparación en el parámetro 61 FN 4: Q2 =+Q1 DIV +Q38 ;Semieje Y con corrección del radio 62 FN 12: IF +Q29 LT +0 GOTO LBL 20 ;Comprobar si el valor del offset es positivo 63 LBL 21 64 Q28 = ( Q60 * 2 ) - ( Q29 * 2 ) ;Diámetro taladro interior (núcleo) 65 ;Fin de los cálculos 66 ; 67 ;Fresar taladro interior (núcleo) 68 L Z+100 R0 F9998 M3 ;Desplazarse a altura de seguridad 69 L X+Q7 Y+Q8 R0 FMAX ;Posicionar la herramienta en el centro 70 CYCL DEF 252 CAJERA CIRCULAR ~ Q215=+1 ;TIPO MECANIZADO ~ Q223=+Q28 ;DIAMETRO CIRCULO ~ Q368=+0.1 ;SOBREMEDIDA LATERAL ~ Q207=+Q21 ;AVANCE DE FRESADO ~ Q351=+1 ;TIPO DE FRESADO ~ Q201=+Q61 ;PROFUNDIDAD ~ Q202=+5 ;PASO PROFUNDIZACION ~ Q369=+0 ;SOBREMEDIDA PROFUND. ~ Q206=+Q20 ;AVANCE PROFUNDIDAD ~ Q338=+0 ;PASADA PARA ACABADO ~ Q200=+Q25 ;DISTANCIA SEGURIDAD ~ Q203=+Q9 ;COORD. SUPERFICIE ~ Q204=+Q25 ;2A DIST. SEGURIDAD ~ Q370=+1 ;SOLAPAM. TRAYECTORIA ~ Q366=+1 ;PUNZONAR ~ Q385=+500 ;AVANCE ACABADO 71 M99 ;Llamar al ciclo para su ejecución 72 ;Taladro interior (núcleo) terminado 73 ; 74 ;Fresar superficie inclinada 75 ;Desplazar el punto cero al centro del mecanizado 76 CYCL DEF 7.0 PUNTO CERO 77 CYCL DEF 7.1 X+Q7 78 CYCL DEF 7.2 Y+Q8 79 CYCL DEF 7.3 Z+Q9 80 ;Seguir desplazando el punto cero incrementalmente según 81 ;el offset 82 CYCL DEF 7.0 PUNTO CERO 83 CYCL DEF 7.1 IY-Q27 84 ; 85 CC X+0 Y+0 ;Definir el centro del círculo 86 L X+0 Y+0 R0 F9998 ;Posicionamiento previo en X e Y 87 L Z+Q25 ;Posicionamiento previo en Z 88 FUNCTION TCPM F TCP AXIS SPAT PATHCTRL AXIS ;Activar TCPM 89 L A+Q11 B+0 C+0 R0 F9998 ;Inclinar ángulo de inclinación 90 ; 91 CALL LBL 10 ;Llamada del mecanizado 92 ; 93 L Z+100 R0 F9998 M2 ;Retirar la herramienta y final del programa 94 ; 95 ; 96 ;Subprogramas para el mecanizado 97 LBL 10 98 FN 0: Q36 =+Q3 ;Ángulo actual es igual al ángulo inicial 99 FN 2: Q35 =+Q4 - +Q3 ;Ángulo de abertura 100 FN 4: Q35 =+Q35 DIV +Q26 ;Paso angular 101 FN 0: Q46 =+0 ;Contador 102 CALL LBL 2 ;Llamar cálculo 103 L Z+Q43 R0 FQ20 ;Aproximar primer punto en Z 104 L X+Q41 Y+Q42 R0 FQ20 M3 ;Aproximar primer punto en X e Y 105 LBL 1 ;parciales de un programa 106 FN 1: Q36 =+Q36 + +Q35 ;Calcular nuevo ángulo 107 FN 1: Q46 =+Q46 + +1 ;Sincronizar temporizador 108 CALL LBL 2 ;Llamar cálculos 109 L X+Q41 Y+Q42 Z+Q43 FQ21 ;Aproximar el nuevo punto 110 FN 12: IF +Q46 LT +Q26 GOTO LBL 1 ;Comparar el contador 111 L X+0 Y+0 R0 F9998 ;Posicionar en el centro 112 L Z+Q25 ;Desplazar a la altura segura en el eje Z 113 L A+0 B+0 C+0 R0 F9998 ;Reiniciar la inclinación de los ejes rotativos 114 FUNCTION RESET TCPM ;Desactivar TCPM 115 ;Reponer el desplazamiento del punto cero a su valor original 116 CYCL DEF 7.0 PUNTO CERO 117 CYCL DEF 7.1 X+0 118 CYCL DEF 7.2 Y+0 119 CYCL DEF 7.3 Z+0 120 LBL 0 ;Retorno 121 ; 122 LBL 2 ;Cálculos de nueva posición 123 FN 7: Q31 = COS +Q36 ;Calcular nueva coordenada X 124 FN 3: Q31 =+Q31 * +Q1 ;Calcular nueva coordenada X 125 FN 3: Q41 =+Q31 * +1 ;Calcular nueva coordenada X 126 FN 6: Q32 = SIN +Q36 ;Calcular nueva coordenada Y 127 FN 3: Q32 =+Q32 * +Q2 ;Calcular nueva coordenada Y 128 FN 3: Q42 =+Q32 * +1 ;Calcular nueva coordenada Y 129 FN 0: Q43 =+Q12 ;Coordenada Z 130 LBL 0 131 ; 132 ;Subprograma para fijar el offset en Y positivo 133 LBL 20 134 Q29 = Q29 * - 1 ;Multiplicar el offset negativo por -1 135 FN 9: IF +0 EQU +0 GOTO LBL 21 ;Retroceso al programa principal 136 LBL 0 137 ; 138 ;Subprograma para fijar el offset en Z positivo 139 LBL 22 140 Q62 = Q62 * - 1 ;Multiplicar el offset negativo por -1 141 FN 9: IF +0 EQU +0 GOTO LBL 23 ;Retroceso al programa principal 142 LBL 0 143 END PGM 4235_ES MM