HEIDENHAIN iTNC 530 (340 420) - Manual (Página 442)

416 10 Programación: Parámetros Q
1
0
.1
1 Ejemplos de pr
ogr
a
mación
20 LBL 10 Subprograma 10: Mecanizado
21 CYCL DEF 7.0 NULLPUNKT Desplazar el punto cero al centro de la elipse
22 CYCL DEF 7.1 X+Q1
23 CYCL DEF 7.2 Y+Q2
24 CYCL DEF 10.0 GIRO Calcular la posición angular en el plano
25 CYCL DEF 10.1 ROT+Q8
26 Q35 = (Q6 - Q5) / Q7 Calcular el paso angular
27 Q36 = Q5 Copiar el ángulo inicial
28 Q37 = 0 Fijar el contador de tramos
29 Q21 = Q3 * COS Q36 Calcular la coordenada X del punto inicial
30 Q22 = Q4 * SIN Q36 Calcular la coordenada Y del punto inicial
31 L X+Q21 Y+Q22 R0 FMAX M3 Llegada al punto inicial en el plano
32 L Z+Q12 R0 FMAX Posicionamiento previo a la distancia de seguridad en el eje de hta.
33 L Z-Q9 R0 FQ10 Desplazamiento a la profundidad de mecanizado
34 LBL 1
35 Q36 = Q36 + Q35 Actualización del ángulo
36 Q37 = Q37 + 1 Actualizar el contador de tramos
37 Q21 = Q3 * COS Q36 Calcular la coordenada X actual
38 Q22 = Q4 * SIN Q36 Calcular la coordenada Y actual
39 L X+Q21 Y+Q22 R0 FQ11 Llegada al siguiente punto
40 FN 12: IF +Q37 LT +Q7 GOTO LBL 1 Pregunta si no está terminado, en caso afirmativo salto al LBL 1
41 CYCL DEF 10.0 GIRO Anular el giro
42 CYCL DEF 10.1 ROT+0
43 CYCL DEF 7.0 NULLPUNKT Retroceder el desplazamiento del punto cero
44 CYCL DEF 7.1 X+0
45 CYCL DEF 7.2 Y+0
46 L Z+Q12 F0 FMAX Llegada a la distancia de seguridad
47 LBL 0 Final del subprograma
48 END PGM ELLIPS MM