N210 G00 G40 Z+250 M2 *
N220 G98 L10 *
N230 Q16 = Q6 - Q10 - Q108 *
N240 Q20 = +1 *
N250 Q24 = +Q4 *
N260 Q25 = ( Q5 - Q4 ) / Q13 *
N270 G54 X+Q1 Y+Q2 Z+Q3 *
N280 G73 G90 H+Q8 *
N290 G00 G40 X+0 Y+0 *
N300 G01 Z+5 F1000 M3 *
N310 G98 L1 *
N320 I+0 K+0 *
N330 G11 R+Q16 H+Q24 FQ11 *
N340 G01 G40 Y+Q7 FQ12 *
N350 Q20 = +Q20 + 1 *
N360 Q24 = +Q24 + +Q25 *
N370 D11 P01 +Q20 P02 +Q13 P03 99 *
N380 G11 R+Q16 H+Q24 FQ11 *
N390 G01 G40 Y+0 FQ12 *
N400 D01 Q20 P01 +Q20 P02 +1 *
N410 D01 Q24 P01 +Q24 P02 +Q25 *
N420 D12 P01 +Q20 P02 +Q13 P03 1 *
N430 G98 L99 *
N440 G73 G90 H+0 *
N450 G54 X+0 Y+0 Z+0 *
N460 G98 L0 *
N99999999 %ZYLIN G71 *
HEIDENHAIN iTNC 530
Retirar la herramienta, final del programa
Subprograma 10: Mecanizado
Calcular la sobremedida y la hta. en relación al radio del cílindro
Iniciar el contador de tramos de fresado (cortes)
Copiar el ángulo en el espacio (plano Z/X)
Calcular el paso angular
Desplazar el punto cero al centro del cilindro (eje X)
Calcular la posición angular en el plano
Posicionamiento previo en el plano en el centro del cilindro
Posicionamiento previo en el eje del cabezal
Fijar el polo en el plano Z/X
Llegada a la pos. inicial sobre el cilindro, profundización inclinada en
la pieza
Tramo longitudinal en la dirección Y+
Actualización del contador de tramos de fresado (cortes)
Actualización del ángulo en el espacio
Pregunta si esta terminado, en caso afirmativo salto al final
Aproximación al "arco" para el siguiente tramo longitudinal
Tramo longitudinal en la dirección Y-
Actualización del contador de tramos de fresado (cortes)
Actualización del ángulo en el espacio
Pregunta si no esta terminado, si es sí salto a LBL 1
Anular el giro
Anular el desplazamiento del punto cero
Final del subprograma
303