10 LBL 1
11 CP IPA+360 IZ-0.2 DR+ F10000
12 CALL LBL 1 REP 30
13 LBL 2
14 CP IPA+360 IZ+0.4 DR+
15 CALL LBL 2 REP15
16 L Z+200 R0 FMAX
17 CYCL DEF 291 IPO.-ACOPLAMIENTO TORNEADO
Q560=+0
;ACOPLAR CABEZAL
Q336=+0
;ÁNGULO DEL CABEZAL
Q216=+0
;CENTRO 1ER EJE
Q217=+0
;CENTRO 2O EJE
Q561=+0
;HTA. DE TORNEADO CAMBIAR
18 CYCL CALL
19 TOOL CALL 11
20 CC X+0 Y+0
21 LP PR+25 PA+0 R0 FMAX
22 CYCL DEF 291 IPO.-ACOPLAMIENTO TORNEADO
Q560=+1
;ACOPLAR CABEZAL
Q336=+0
;ÁNGULO DEL CABEZAL
Q216=+0
;CENTRO 1ER EJE
Q217=+0
;CENTRO 2O EJE
Q561=+1
;HTA. DE TORNEADO CAMBIAR
23 CYCL CALL
24 LP PR+15.2 PA+0 RR FMAX
25 L Z+10 FMAX
26 L Z-11 F7000
27 LBL 3
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
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 LP PR+50 FMAX
HEIDENHAIN | TNC 640 | Manual de usuario Programación de ciclos | 11/2015
Ejemplos de programación 11.11
Ranurar sobre superficie plana, aproximación 0,2 mm,
profundidad: 6 mm
Salir de la ranura, paso: 0,4 mm
Elevar hasta una altura segura, desconectar la corrección del
radio
Finalizar torneado por interpolación
Llamar al ciclo para su ejecución
Llamada de herramienta: Herramienta para ranurado radial
Retirar la herramienta
Activar torneado por interpolación
Llamar al ciclo para su ejecución
Posicionar la herramienta en el plano de mecanizado
Posicionar la herramienta en el eje del cabezal
Ranurar sobre superficie de la cubierta, aproximación 0,2
mm, profundidad: 6 mm
Salir de la ranura, paso: 0,4 mm
11
333