HEIDENHAIN TNC 620 (340 56x-02) - Manual (Página 292)

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