Siemens SINUMERIK 802D sl Guía De Programación página 251

Ejemplo de programación
DEF INT state
;
G0 X...
T7
$TC_MOP3[$P_TOOLNO,$P_TOOL]=100 ;Límite de preaviso 100 unidades
$TC_MOP4[$P_TOOLNO,$P_TOOL]=700 ;Número de piezas remanente
$TC_MOP13[$P_TOOLNO,$P_TOOL]=700 ;Consigna de número de piezas
;Activación después del ajuste:
$TC_TP9[$P_TOOLNO,$P_TOOL]=2
STOPRE
ANF:
BEARBEIT
SETPIECE(1)
M0
IF ($TC_MOP4[$P_TOOLNO,$P_TOOL]]>1) GOTOB ANF
MSG("Herramienta T7 desgastada – Cambiar")
M0
RESETMON(state,7,1,2)
IF (state<>0) GOTOF ALARM
GOTOB ANF
ALARM: ;Visualizar error:
MSG(
M0
M2
SINUMERIK 802D sl Manejo y programación Torneado (BP-D), Edición 05/2005
6FC5 398-1CP10-1EA0
8.13
;Definir variable para el acuse de recibo de estado de RESETMON()
Error RESETMON:" <<state)
"
Comandos de lenguaje para la vigilancia de herramienta
;Retirar
;Cambiar nueva herramienta, ev. con M6
;Activación Vigilancia del número de piezas,
herramienta activa
;Subprograma para el mecanizado de piezas
;Actualizar contador
;Pieza siguiente, continuar con Marcha CN
;Después del cambio de herramienta,
continuar con Marcha CN
;Actualización de consigna contador de piezas
Programación
8-249