HEIDENHAIN TNC 640 Manual Del Usuario página 379

32 CYCL DEF 10.0 GIRO
33 CYCL DEF 10.1 ROT+Q8
34 LBL 1
35 CC X+0 Y+0
36 LP PR+Q26 PA+Q8 R0 FQ12
37 CC Z+0 X+Q108
38 L Y+0 Z+0 FQ12
39 LBL 2
40 LP PR+Q6 PA+Q24 FQ12
41 FN 2: Q24 = +Q24 - +Q14
42 FN 11: IF +Q24 GT +Q5 GOTO LBL 2
43 LP PR+Q6 PA+Q5
44 L Z+Q23 R0 F1000
45 L X+Q26 R0 FMAX
46 FN 1: Q28 = +Q28 + +Q18
47 FN 0: Q24 = +Q4
48 CYCL DEF 10.0 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
52 CYCL DEF 10.0 GIRO
53 CYCL DEF 10.1 ROT+0
54 CYCL DEF 7.0 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
59 END PGM ESFERA MM
HEIDENHAIN | TNC 640 | Manual del usuario Programación en lenguaje conversacional | 11/2015
Ejemplos de programación 9.13
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, desplazado 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
9
379