HEIDENHAIN TNC 620 (81760x-01) - Manual (Página 345)

Ejemplos de programación 9.13
9
TNC 620 | Modo de empleo Diálogo en lenguaje conversacional HEIDENHAIN | 5/2014
345
32 CYCL DEF 10.0 GIRO Cálculo del ángulo inicial de la posición de giro en el plano
33 CYCL DEF 10.1 ROT+Q8
34 LBL 1
Posicionamiento previo en el eje del cabezal
35 CC X+0 Y+0 Fijar el polo en el plano X/Y para el posicionamiento previo
36 LP PR+Q26 PA+Q8 R0 FQ12
Posicionamiento previo en el plano
37 CC Z+0 X+Q108
Fijar el polo en el plano Z/X para desplazar el radio de la hta.
38 L Y+0 Z+0 FQ12 Desplazamiento a la profundidad deseada
39 LBL 2
40 LP PR+Q6 PA+Q24 FQ12
Desplazar hacia arriba el "arco" aproximado
41 FN 2: Q24 = +Q24 - +Q14 Actualización del ángulo en el espacio
42 FN 11: IF +Q24 GT +Q5 GOTO LBL 2
Pregunta si el arco está terminado, si no retroceso a LBL 2
43 LP PR+Q6 PA+Q5
Llegada al ángulo final en el espacio
44 L Z+Q23 R0 F1000
Retroceso según el eje de la hta.
45 L X+Q26 R0 FMAX Posicionamiento previo para el siguiente arco
46 FN 1: Q28 = +Q28 + +Q18 Actualización de la posición de giro en el plano
47 FN 0: Q24 = +Q4 Anular el ángulo en el espacio
48 CYCL DEF 10.0 GIRO Activar la nueva posición de giro
49 CYCL DEF 10.0 ROT+Q28
50 FN 12: IF +Q28 LT +Q9 GOTO LBL 1
51 FN 9: IF +Q28 EQU +Q9 GOTO LBL 1
Pregunta si no está terminado, en caso afirmativo salto al
LBL 1
52 CYCL DEF 10.0 GIRO Anular el giro
53 CYCL DEF 10.1 ROT+0
54 CYCL DEF 7.0 PUNTO CERO
Anular el desplazamiento del punto cero
55 CYCL DEF 7.1 X+0
56 CYCL DEF 7.2 Y+0
57 CYCL DEF 7.3 Z+0
58 LBL 0
Final del subprograma
59 END PGM ESFERA MM