Fagor CNC 8060, Руководство по установке, Страница: 491 / 698

Installation manual.
CNC 8060
CNC 8065
TOOL
A
ND MA
GAZIN
E
MANAGEMEN
T.
7.
Syn
c
h
ronou
s mag
a
zine
wi
th
cha
nge
r arm
and
1
cla
w
·491·
(R
EF
: 1709)
7.9.4 Program of the M06 subroutine.
%L SUB_MZ_TO_CH1 ; Take the tool from the magazine with holder 1.
M101 ; Auxiliary function to execute an action.
V.PLC.M[1101]=1 ; MZTOCH1 mark to the tool manager.
#WAIT FOR [V.PLC.M[1101]==0]
#RET
%L SUB_CH1_TO_SPD ; Take the tool of holder 1 to the spindle.
M102 ; Auxiliary function to execute an action.
V.PLC.M[1102]=1 ; CH1TOSPDL mark to the tool manager.
#WAIT FOR [V.PLC.M[1102]==0]
#RET
%L SUB_SPD_TO_CH1 ; Take the spindle tool with holder 1.
M103 ; Auxiliary function to execute an action.
V.PLC.M[1103]=1 ; SPDLTOCH1 mark to the tool manager.
#WAIT FOR [V.PLC.M[1103]==0]
#RET
%L SUB_CH1_TO_MZ ; Take the tool of holder 1 to the magazine.
M105 ; Auxiliary function to execute an action.
V.PLC.M[1105]=1 ; CH1TOMZ mark to the tool manager.
#WAIT FOR [V.PLC.M[1105]==0]
#RET
%L SUB_SPD_TO_GR ; Remove the tool from the spindle (take it to ground).
#MSG ["Extract tool T%D and press START", V.TM.TOOL]
; Message for the operator to extract the tool.
M0 ; Wait for the operation to be completed.
#MSG [""] ; Remove message.
V.PLC.M[1107]=1 ; SPDLTOGR mark to the tool manager.
#WAIT FOR [V.PLC.M[1107]==0]
#RET
%L SUB_GR_TO_SPD ; Insert the ground tool in the spindle.
#MSG ["Insert tool T%D and press START", V.TM.NXTOOL]
; Message for the operator to insert the tool.
M0 ; Wait for the operation to be completed.
#MSG [""] ; Remove message.
V.PLC.M[1108]=1 ; GRTOSPDL mark to the tool manager.
#WAIT FOR [V.PLC.M[1108]==0]
#RET
%L SUB_SPD_GMCHG ; Move the spindle to the manual tool change point.
G1 Z_ F_ ; Move the spindle.
#RET
%L SUB_SPD_AUTCHG ; Move the spindle to the automatic tool change point
G1 Z_ F_ ; Move the spindle.
#RET
%SUB_M6.nc
#ESBLK ; Begin of single block activation
#DSTOP ; STOP key disable
M6 ; Order the tool manager to start the tool change.
$IF [[[V.G.FULLSTATUS & 255]<9] | [[V.G.FULLSTATUS & 255]>13]]
$IF [[V.G.CNCAUTSTATUS & 4096] | [V.G.CNCAUTSTATUS & 8192]]
V.S.EXECUTION = 0 ; Simulated Theorical or G
$ELSE
V.S.EXECUTION = 1 ; Execution
$ENDIF
$ELSE
V.S.EXECUTION = 0 ; Simulation
$ENDIF