Siemens SINUMERIK 802D sl Manejo Y Programación página 194

Ejemplo:
DEF INT state
...
N100 RESETMON(state,12,1,2)
...
Ejemplo de programación
DEF INT state
;
G0 X...
T7
$TC_MOP3[$P_TOOLNO,$P_TOOL]=100
$TC_MOP4[$P_TOOLNO,$P_TOOL]=700
$TC_MOP13[$P_TOOLNO,$P_TOOL]=700
; 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:
MSG("Error RESETMON: " <<state)
M0
M2
SINUMERIK 802D sl Manejo y programación Punzado (BP-N), Edición 06/2006
6FC5 398-3CP10-0EA0
8.11 Comandos de lenguaje para la vigilancia de herramienta
; Al inicio del programa, definir la variable para el acuse de
recibo de estado
; Actualización de consigna del contador de piezas para T12, D1,
consigna 2
; Definir variable para el acuse de recibo de
estado de RESETMON()
; Retirar
; Cambiar nueva herramienta, ev. con M6
; Límite de preaviso 100 unidades
; Número de piezas remanente
; Consigna de número de piezas
; 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
; Visualizar error:
Programación
8-193