HEIDENHAIN TNC 410 Modo De Empleo página 285

220 G98 L10 *
230 Q16 = Q6 - Q10 - Q108
240 D00 Q20 P01 +1 *
250 D00 Q24 P01 +Q4 *
260 Q25 = (Q5 - Q4) / Q13
270 G54 X+Q1 Y+Q2 Z+0 *
280 G73 G90 H+Q8 *
290 G00 G40 X+0 Y+0 *
300 G01 Z+5 F1000 M3 *
310 I+0 K+0 *
320 G11 R+Q16 H+Q24 FQ11 *
330 G98 L1 *
340 G01 G40 Y+Q7 FQ11 *
350 D01 Q20 P01 +Q20 P02 +1 *
360 D01 Q24 P01 +Q24 P02 +Q25 *
370 D11 P01 +Q20 P02 +Q13 P03 99 *
380 G11 R+Q16 H+Q24 FQ12 *
390 G01 G40 Y+0 FQ11 *
400 D01 Q20 P01 +Q20 P02 +1 *
410 D01 Q24 P01 +Q24 P02 +Q25 *
420 D12 P01 +Q20 P02 +Q13 P03 1 *
430 G98 L99 *
440 G73 G90 H+0 *
450 G54 X+0 Y+0 Z+0 *
460 G98 L0 *
999999 %CILI G71 *
270
Subprograma 10: Mecanizado
Calcular la sobremedida y la hta. en relación al radio del cílindro
Fijar el contador de tramos
Copiar el ángulo inicial 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 de la hta.
Fijar el polo en el plano Z/X
Llegada a la pos. inicial sobre el cilindro, profundiz. inclinada en pieza
Corte longitudinal en la dirección Y+
Actualizar el contador de tramos
Actualización del ángulo en el espacio
Pregunta si está terminado, en caso afirmativo salto al final
Aproximación al "arco" para el siguiente corte longitudinal
Corte longitudinal en la dirección Y–
Actualizar el contador de tramos
Actualización del ángulo en el espacio
Pregunta si no está terminado, en caso afirmativo salto al Label 1
Anular el giro
Anular el desplazamiento del punto cero
Final del subprograma
10 Programación: Parámetros Q