N170 L10,0 *
N180 D00 Q10 P01 +0 *
N190 D00 Q18 P01 +5 *
N200 L10,0 *
N210 G00 G40 Z+250 M2 *
N220 G98 L10 *
N230 D01 Q23 P01 +Q11 P02 +Q6 *
N240 D00 Q24 P01 +Q4 *
N250 D01 Q26 P01 +Q6 P02 +Q108 *
N260 D00 Q28 P01 +Q8 *
N270 D01 Q16 P01 +Q6 P02 -Q10 *
N280 G54 X+Q1 Y+Q2 Z-Q16 *
N290 G73 G90 H+Q8 *
N300 G98 L1 *
N310 I+0 J+0 *
N320 G11 G40 R+Q26 H+Q8 FQ12 *
N330 I+Q108 K+0 *
N340 G01 Y+0 Z+0 FQ12 *
N350 G98 L2 *
N360 G11 G40 R+Q6 H+Q24 FQ12 *
N370 D02 Q24 P01 +Q24 P02 +Q14 *
N380 D11 P01 +Q24 P02 +Q5 P03 2 *
N390 G11 R+Q6 H+Q5 FQ12 *
N400 G01 G40 Z+Q23 F1000 *
N410 G00 G40 X+Q26 *
N420 D01 Q28 P01 +Q28 P02 +Q18 *
N430 D00 Q24 P01 +Q4 *
N440 G73 G90 H+Q28 *
N450 D12 P01 +Q28 P02 +Q9 P03 1 *
N460 D09 P01 +Q28 P02 +Q9 P03 1 *
N470 G73 G90 H+0 *
N480 G54 X+0 Y+0 Z+0 *
N490 G98 L0 *
N99999999 %ESFERA G71 *
HEIDENHAIN TNC 320
Llamada al mecanizado
Anular la sobremedida
Paso angular en el plano X/Y para el acabado
Llamada al mecanizado
Retirar la herramienta, final del programa
Subprograma 10: Mecanizado
Cálculo de la coordenada Z para el posicionamiento previo
Copiar el ángulo en el espacio (plano Z/X)
Corregir el radio de la espera 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 del cabezal
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
Anular el desplazamiento del punto cero
Final del subprograma
271