HEIDENHAIN TNC 426 Manual De Empleo página 318

23 LBL 0
24 FN : Q23 = +Q + +Q6
25 FN 0: Q24 = +Q4
26 FN : Q26 = +Q6 + +Q 08
27 FN 0: Q28 = +Q8
28 FN : Q 6 = +Q6 + -Q 0
29 CYCL DEF 7.0 PUNTO CERO
30 CYCL DEF 7. X+Q
3 CYCL DEF 7.2 Y+Q2
32 CYCL DEF 7.3 Z-Q 6
33 CYCL DEF 0.0 GIRO
34 CYCL DEF 0. ROT+Q8
35 CC X+0 Y+0
36 LP PR+Q26 PA+Q8 R0 FQ 2
37 LBL
38 CC Z+0 X+Q 08
39 L Y+0 Z+0 FQ 2
40 LBL 2
4 LP PR+Q6 PA+Q24 R0 FQ 2
42 FN 2: Q24 = +Q24 - +Q 4
43 FN : IF +Q24 GT +Q5 GOTO LBL 2
44 LP PR+Q6 PA+Q5
45 L Z+Q23 R0 F 000
46 L X+Q26 R0 F MAX
47 FN : Q28 = +Q28 + +Q 8
48 FN 0: Q24 = +Q4
49 CYCL DEF 0.0 GIRO
50 CYCL DEF 0. ROT+Q28
5 FN 2: IF +Q28 LT +Q9 GOTO LBL
52 FN 9: IF +Q28 EQU +Q9 GOTO LBL
53 CYCL DEF 0.0 GIRO
54 CYCL DEF 0. ROT+0
55 CYCL DEF 7.0 PUNTO CERO
56 CYCL DEF 7. X+0
57 CYCL DEF 7.2 Y+0
58 CYCL DEF 7.3 Z+0
59 LBL 0
60 END PGM ESFERA MM
302
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
Fijar el polo en el plano X/Y para el posicionamiento previo
Posicionamiento previo en el plano
Posicionamiento previo en el eje de la hta.
Fijar el polo en el plano Z/X para desplazar el radio de la hta.
Desplazamiento a la profundidad deseada
Desplazar el "arco" hacia arriba
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
10 Programación: Parámetros Q