HEIDENHAIN TNC 426 Manual De Empleo página 316

22 LBL 0
23 Q 6 = Q6 - Q 0 - Q 08
24 FN 0: Q20 = +
25 FN 0: Q24 = +Q4
26 Q25 = (Q5 - Q4) / Q 3
27 CYCL DEF 7.0 PUNTO CERO
28 CYCL DEF 7. X+Q
29 CYCL DEF 7.2 Y+Q2
30 CYCL DEF 7.3 Z-Q3
3 CYCL DEF 0.0 GIRO
32 CYCL DEF 0. ROT+Q8
33 L X+0 Y+0 R0 F MAX
34 L Z+5 R0 F 000 M3
35 CC Z+0 X+0
36 LP PR+Q 6 PA+Q24 FQ
37 LBL
38 L Y+Q7 R0 FQ
39 FN : Q20 = +Q20 + +
40 FN : Q24 = +Q24 + +Q25
4 FN : IF +Q20 GT +Q 3 GOTO LBL 99
42 LP PR+Q 6 PA+Q24 FQ 2
43 L Y+0 R0 FQ
44 FN : Q20 = +Q20 + +
45 FN : Q24 = +Q24 + +Q25
46 FN 2: IF +Q20 LT +Q 3 GOTO LBL
47 LBL 99
48 CYCL DEF 0.0 GIRO
49 CYCL DEF 0. ROT+0
50 CYCL DEF 7.0 PUNTO CERO
5 CYCL DEF 7. X+0
52 CYCL DEF 7.2 Y+0
53 CYCL DEF 7.3 Z+0
54 LBL 0
55 END PGM CILIN MM
300
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 esta 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 LBL 1
Anular el giro
Anular el desplazamiento del punto cero
Final del subprograma
10 Programación: Parámetros Q