HEIDENHAIN iTNC 530 Manual De Uso Y Operación página 363

18 L Z+100 R0 FMAX M2
19 LBL 10
20 CYCL DEF 7.0 PUNTO CERO
21 CYCL DEF 7.1 X+Q1
22 CYCL DEF 7.2 Y+Q2
23 CYCL DEF 10.0 GIRO
24 CYCL DEF 10.1 ROT+Q8
25 Q35 = (Q6 - Q5) / Q7
26 Q36 = Q5
27 Q37 = 0
28 Q21 = Q3 * COS Q36
29 Q22 = Q4 * SIN Q36
30 L X+Q21 Y+Q22 R0 FMAX M3
31 L Z+Q12 R0 FMAX
32 L Z-Q9 R0 FQ10
33 LBL 1
34 Q36 = Q36 + Q35
35 Q37 = Q37 + 1
36 Q21 = Q3 * COS Q36
37 Q22 = Q4 * SIN Q36
38 L X+Q21 Y+Q22 R0 FQ11
39 FN 12: IF +Q37 LT +Q7 GOTO LBL 1
40 CYCL DEF 10.0 GIRO
41 CYCL DEF 10.1 ROT+0
42 CYCL DEF 7.0 PUNTO CERO
43 CYCL DEF 7.1 X+0
44 CYCL DEF 7.2 Y+0
45 L Z+Q12 R0 FMAX
46 LBL 0
47 END PGM ELLIPSE MM
HEIDENHAIN iTNC 530
Retirar la herramienta, final del programa
Subprograma 10: Mecanizado
Desplazar el punto cero al centro de la elipse
Calcular la posición angular en el plano
Calcular el paso angular
Copiar el ángulo inicial
Iniciar el contador de tramos de fresado (cortes)
Calcular la coordenada X del punto inicial
Calcular la coordenada Y del punto inicial
Llegada al punto inicial en el plano
Posicionamiento previo a la distancia de seguridad en el eje de hta.
Desplazamiento a la profundidad de mecanizado
Actualización del ángulo
Actualización del contador de tramos de fresado (cortes)
Calcular la coordenada X actual
Calcular la coordenada Y actual
Llegada al siguiente punto
Pregunta si no esta terminado, si es sí salto a LBL 1
Anular el giro
Anular el desplazamiento del punto cero
Llegada a la distancia de seguridad
Final del subprograma
363