Ejemplos de programación 11.11 – HEIDENHAIN TNC 640 (34059x-05) Cycle programming Manual del usuario
Página 323

Ejemplos de programación 11.11
11
TNC 640 | Modo de Empleoprogramación de ciclos | 4/2015
323
17 CYCL DEF 291 IPO.-ACOPLAMIENTO TORNEADO
Finalizar torneado por interpolación
Q560=+0
;ACOPLAR CABEZAL
Q336=+0
;ÁNGULO DEL CABEZAL
Q216=+0
;CENTRO 1ER EJE
Q217=+0
;CENTRO 2O EJE
18 CYCL CALL
Llamar al ciclo para su ejecución
19 TOOL CALL 11 Z
Llamada de herramienta: Herramienta de ranurado para
ranurado radial
20 CC X+0 Y+0
21 LP PR+25 PA+0 R0 FMAX
Retirar la herramienta
22 CYCL DEF 291 IPO.-ACOPLAMIENTO TORNEADO
Activar torneado por interpolación
Q560=+1
;ACOPLAR CABEZAL
Q336=+0
;ÁNGULO DEL CABEZAL
Q216=+0
;CENTRO 1ER EJE
Q217=+0
;CENTRO 2O EJE
23 CYCL CALL
Llamar al ciclo para su ejecución
24 LP PR+15.2 PA+0 RR FMAX
Posicionar la herramienta en el plano de mecanizado
25 L Z+10 FMAX
26 L Z-11 F7000
Posicionar la herramienta en el eje del cabezal
27 LBL 3
Ranurar sobre superficie de la cubierta, aproximación 0,2
mm, profundidad: 6 mm
28 CC X+0.1 Y+0
29 CP IPA+180 DR+ F10000
30 CC X-0.1 Y+0
31 CP IPA+180 DR+
32 CALL LBL 3 REP15
33 LBL 4
Salir de la ranura, paso: 0,4 mm
34 CC X-0.2 Y+0
35 CP IPA+180 DR+
36 CC X+0.2 Y+0
37 CP IPA+180 DR+
38 CALL LBL 4 REP8
39 L LP PR+25 FMAX
40 Z+200 R0 FMAX
Elevar hasta una altura segura, desconectar la corrección del
radio
41 CYCL DEF 291 IPO.-ACOPLAMIENTO TORNEADO
Finalizar torneado por interpolación
Q560=+0
;ACOPLAR CABEZAL
Q336=+0
;ÁNGULO DEL CABEZAL
Q216=+0
;CENTRO 1ER EJE
Q217=+0
;CENTRO 2O EJE
42 CYCL CALL
Llamar al ciclo para su ejecución
43 M30
44 END PGM 1 MM