Manual Heidenhain Fresadora ITNC 530

10.11 Ejemplos de programación20 CALL LBL 10 Llamada al mecanizado21 L Z+100 R0 FMAX M2 Retirar la herramienta, final del programa22 LBL 10 Subprograma 10: Mecanizado23 Q16 = Q6 - Q10 - Q108 Calcular la sobremedida y la hta. en relación al radio del cílindro24 FN 0: Q20 = +1 Fijar el contador de tramos25 FN 0: Q24 = +Q4 Copiar el ángulo inicial en el espacio (plano Z/X)26 Q25 = (Q5 - Q4) / Q13 Calcular el paso angular27 CYCL DEF 7.0 NULLPUNKT Desplazar el punto cero al centro del cilindro (eje X)28 CYCL DEF 7.1 X+Q129 CYCL DEF 7.2 Y+Q230 CYCL DEF 7.3 Z+Q331 CYCL DEF 10.0 GIRO Calcular la posición angular en el plano32 CYCL DEF 10.1 ROT+Q833 L X+0 Y+0 R0 FMAX Posicionamiento previo en el plano en el centro del cilindro34 L Z+5 R0 F1000 M3 Posicionamiento previo en el eje de la hta.35 LBL 136 CC Z+0 X+0 Fijar el polo en el plano Z/X37 LP PR+Q16 PA+Q24 FQ11 Llegada a la pos. inicial sobre el cilindro, profundiz. inclinada en pieza38 L Y+Q7 R0 FQ12 Tramo longitudinal en la dirección Y+39 FN 1: Q20 = +Q20 + +1 Actualizar el contador de tramos40 FN 1: Q24 = +Q24 + +Q25 Actualización del ángulo en el espacio41 FN 11: IF +Q20 GT +Q13 GOTO LBL 99 Pregunta si está terminado, en caso afirmativo salto al final42 LP PR+Q16 PA+Q24 FQ11 Aproximación al "arco" para el siguiente tramo longitudinal43 L Q+0 F0 FQ12 Tramo longitudinal en la dirección Y-44 FN 1: Q20 = +Q20 + +1 Actualizar el contador de tramos45 FN 1: Q24 = +Q24 + +Q25 Actualización del ángulo en el espacio46 FN 12: IF +Q20 LT +Q13 GOTO LBL 1 Pregunta si no está terminado, en caso afirmativo salto al LBL 147 LBL 9948 CYCL DEF 10.0 GIRO Anular el giro49 CYCL DEF 10.1 ROT+050 CYCL DEF 7.0 NULLPUNKT Retroceder el desplazamiento del punto cero51 CYCL DEF 7.1 X+052 CYCL DEF 7.2 Y+053 CYCL DEF 7.3 Z+054 LBL 0 Final del subprograma55 END PGM ZYLIN418 10 Programación: Parámetros Q