N210 L10.0 *
N220 G00 G40 Z+250 M2 *
N230 G98 L10 *
N240 D01 Q23 P01 +Q11 P02 +Q6 *
N250 D00 Q24 P01 +Q4 *
N260 D01 Q26 P01 +Q6 P02 +Q108 *
N270 D00 Q28 P01 +Q8 *
N280 D01 Q16 P01 +Q6 P02 -Q10 *
N290 G54 X+Q1 Y+Q2 Z-Q16 *
N300 G73 G90 H+Q8 *
N310 G98 L1 *
N320 I+0 J+0 *
N330 G11 G40 R+Q26 H+Q8 FQ12 *
N340 I+Q108 K+0 *
N350 G01 Y+0 Z+0 FQ12 *
N360 G98 L2 *
N370 G11 G40 R+Q6 H+Q24 FQ12 *
N380 D02 Q24 P01 +Q24 P02 +Q14 *
N390 D11 P01 +Q24 P02 +Q5 P03 2 *
N400 G11 R+Q6 H+Q5 FQ12 *
N410 G01 G40 Z+Q23 F1000 *
N420 G00 G40 X+Q26 *
N430 D01 Q28 P01 +Q28 P02 +Q18 *
N440 D00 Q24 P01 +Q4 *
N450 G73 G90 H+Q28 *
N460 D12 P01 +Q28 P02 +Q9 P03 1 *
N470 D09 P01 +Q28 P02 +Q9 P03 1 *
N480 G73 G90 H+0 *
N490 G54 X+0 Y+0 Z+0 *
N500 G98 L0 *
N999999 %ESFERA G71 *
HEIDENHAIN iTNC 530
Llamada al mecanizado
Liberar la herramienta, final del programa
Subprograma 10: Mecanizado
Cálculo de la coordenada Z para el posicionamiento previo
Copiar el ángulo inicial en el espacio (plano Z/X)
Corregir el radio de la esfera para el posicionamiento previo
Copiar la posición de giro en el plano
Tener en cuenta la sobremedida en el radio de la esfera
Desplazamiento del punto cero al centro de la esfera
Cálculo del ángulo inicial de la posición de giro en el plano
Posicionamiento previo en el eje de la hta.
Fijar el polo en el plano X/Y para el posicionamiento previo
Posicionamiento previo en el plano
Fijar el polo en el plano Z/X para desplazar el radio de la hta.
Desplazamiento a la profundidad deseada
Desplazar hacia arriba el "arco" aproximado
Actualización del ángulo en el espacio
Pregunta si el arco está terminado, si no retroceso a LBL 2
Llegada al ángulo final en el espacio
Retroceso según el eje de la hta.
Posicionamiento previo para el siguiente arco
Actualización de la posición de giro en el plano
Anular el ángulo en el espacio
Activar la nueva posición de giro
Pregunta si no está terminado, en caso afirmativo salto al LBL 1
Anular el giro
Retroceder el desplazamiento del punto cero
Final del subprograma
451