HEIDENHAIN TNC 640 (34059x-04) - Manual (Página 355)

Ejemplos de programación 9.13
9
TNC 640 | Modo de empleo Diálogo en lenguaje conversacional HEIDENHAIN | 5/2014
355
21 LBL 10 Subprograma 10: Mecanizado
22 Q16 = Q6 -Q10 - Q108 Calcular la sobremedida y la hta. en relación al radio del
cílindro
23 FN 0: Q20 = +1
Iniciar el contador de tramos de fresado (cortes)
24 FN 0: Q24 = +Q4
Copiar el ángulo en el espacio (plano Z/X)
25 Q25 = (Q5 -Q4) / Q13 Calcular el paso angular
26 CYCL DEF 7.0 PUNTO CERO Desplazar el punto cero al centro del cilindro (eje X)
27 CYCL DEF 7.1 X+Q1
28 CYCL DEF 7.2 Y+Q2
29 CYCL DEF 7.3 Z+Q3
30 CYCL DEF 10.0 GIRO
Calcular la posición angular en el plano
31 CYCL DEF 10.1 ROT+Q8
32 L X+0 Y+0 R0 FMAX
Posicionamiento previo en el plano en el centro del cilindro
33 L Z+5 R0 F1000 M3 Posicionamiento previo en el eje del cabezal
34 LBL 1
35 CC Z+0 X+0
Fijar el polo en el plano Z/X
36 LP PR+Q16 PA+Q24 FQ11
Llegada a la pos. inicial sobre el cilindro, profundización
inclinada en la pieza
37 L Y+Q7 R0 FQ12 Tramo longitudinal en la dirección Y+
38 FN 1: Q20 = +Q20 + +1 Actualización del contador de tramos de fresado (cortes)
39 FN 1: Q24 = +Q24 + +Q25
Actualización del ángulo en el espacio
40 FN 11: IF +Q20 GT +Q13 GOTO LBL 99
Pregunta si esta terminado, en caso afirmativo salto al final
41 LP PR+Q16 PA+Q24 FQ11
Aproximación al "arco" para el siguiente tramo longitudinal
42 L Y+0 R0 FQ12 Tramo longitudinal en la dirección Y-
43 FN 1: Q20 = +Q20 + +1 Actualización del contador de tramos de fresado (cortes)
44 FN 1: Q24 = +Q24 + +Q25 Actualización del ángulo en el espacio
45 FN 12: IF +Q20 LT +Q13 GOTO LBL 1 Pregunta si no está terminado, en caso afirmativo salto al
LBL 1
46 LBL 99
47 CYCL DEF 10.0 GIRO
Anular el giro
48 CYCL DEF 10.1 ROT+0
49 CYCL DEF 7.0 PUNTO CERO
Anular el desplazamiento del punto cero
50 CYCL DEF 7.1 X+0
51 CYCL DEF 7.2 Y+0
52 CYCL DEF 7.3 Z+0
53 LBL 0
Final del subprograma
54 END PGM ZYLIN