Tabla de contenido
M a n u a l d e s us t i tu c ió n
4.3
Programas de ejecución por canal de usuario
Estos programas son ejemplos. Se han incluido en la documentación que Fagor aporta junto
con el CNC 8037 MS/TS. Su cometido es el de servir de ayuda y guía al instalador y al
operario de la máquina. Están desarrollados con sentencias de personalización de usuario
en lenguaje de Alto Nivel.
Se ejecutarán a través del canal de usuario seleccionado por los parámetros máquina
generales:
• USERDPLY (P47) indica el programa que se desea ejecutar en el Modo de Ejecución.
• USEREDIT (P48) indica el programa que se desea ejecutar en el Modo de Edición.
• USERMAN (P49) indica el programa que se desea ejecutar en el Modo Manual.
• USERDIAG (P50) indica el programa que se desea ejecutar en el Modo de Diagnosis.
Para más información referirse al capítulo 14 del manual de programación del CNC 8037
MS/TS.
Ejemplos:
CNC 8037 MS (065534.PIM) (GUARDAR TRASLADOS)
Se ejecutará desde USUARIO en el modo Manual. En el p.m.g
USERMAN(P49) se indicará el nº 65534
%GUARDAR TRASLADOS ,-X-O,
N1 (SK1="GUARDAR EN G54 ",SK 2="GUARDAR EN G55 ",
SK 3="GUARDAR EN G56 ",SK 4="GUARDAR EN G57 ",SK
5="1/2X", SK 6="1/2 Y",SK 7="SALIR")
(WKEY)
(IF KEY EQ $FC00 GOTO N10)
(IF KEY EQ $FC01 GOTO N20)
(IF KEY EQ $FC02 GOTO N30)
(IF KEY EQ $FC03 GOTO N40)
(IF KEY EQ $FC04 GOTO N50)
(IF KEY EQ $FC05 GOTO N60)
(IF KEY EQ $FC06 SYSTEM)
(GOTO N1)
N10(ORGX54=ORGX)
(ORGY54=ORGY)
(ORGZ54=ORGZ)
;(ORGW54=ORGW)
(SYSTEM)
N20(ORGX55=ORGX)
(ORGY55=ORGY)
(ORGZ55=ORGZ)
;(ORGW55=ORGW)
(SYSTEM)
N30(ORGX56=ORGX)
(ORGY56=ORGY)
(ORGZ56=ORGZ)
;(ORGW56=ORGW)
(SYSTEM)
N40(ORGX57=ORGX)
(ORGY57=ORGY)
(ORGZ57=ORGZ)
;(ORGW57=ORGW)
(SYSTEM)
N50 (P2014=PPOSX/2)
G92 XP2014
(SYSTEM)
N60 (P2014=PPOSY/2)
G92 YP2014
(SYSTEM)
Si el modelo es el CNC 8037 MS, el programa P65534 permite guardar cotas en los traslados
de origen (G54 ... G57) desde el modo MANUAL a través del canal de USUARIO.
En esta aplicación las teclas de función "SK 5="1/2 X" y SK 6="1/2 Y" permiten calcular el
punto medio de la pieza, seleccionándolo como CERO PIEZA.
CNC 8037 TS (065534.PIT) (DESGASTES)
Se ejecutará desde USUARIO en el modo Manual. En el p.m.g
USERMAN(P49) se indicará el nº 65534.
%DESGASTES I K,-X-O,
N1 (IB0=INPUT "Número de corrector a modificar I/K:",3)
(IF (IB0 EQ 0 OR IB0 GT MPG27) GOTO N1)
N2 (ODW 1,20,20)
(ODW 2,20,42)
(ODW 3,20,64)
N3 (DW1=IB0, DW2=TOI(IB0), DW3=TOK(IB0))
N5 (SK1="Incremento de I")
(SK2="Incremento de K")
(SK3="")
(SK4="I = 0")
(SK5="K = 0")
(SK6="Selección corrector")
(SK7="SALIR")
N10 (WKEY)
(IF KEY EQ $FC00 GOTO N100)
(IF KEY EQ $FC01 GOTO N200)
(IF KEY EQ $FC03 GOTO N300)
(IF KEY EQ $FC04 GOTO N400)
(IF KEY EQ $FC05 GOTO N500)
(IF KEY EQ $FC06 SYSTEM)
(GOTO N10)
N100 (SK1="", SK2="", SK3="", SK4="", SK5="", SK6="", SK7="")
N110 (IB1=INPUT "Valor de incremento de I (Máximo 0.500 mm):
",-1.3)
(IF ABS IB1 GT 0.5 GOTO N110)
(TOI(IB0)=IB1+TOI(IB0))
(IF ABS TOI(IB0) LT 0.0001 TOI(IB0)=0)
(DW2=TOI(IB0))
(GOTO N5)
N200 (SK1="", SK2="", SK3="", SK4="", SK5="", SK6="", SK7="")
N210 (IB2=INPUT "Valor de incremento de K (Máximo 0.500 mm):
",-1.3)
(IF ABS IB2 GT 0.5 GOTO N210)
(TOK(IB0)=IB2+TOK(IB0))
(IF ABS TOK(IB0) LT 0.0001 TOK(IB0)=0)
(DW3=TOK(IB0))
(GOTO N5)
N300 (TOI(IB0)=0)
(DW2=TOI(IB0))
(GOTO N5)
N400 (TOK(IB0)=0)
(DW3=TOK(IB0))
(GOTO N5)
N500 (GOTO N1)
4.
CNC 8037
M
·MS· & ·TS·
ODELOS
·91·
Tabla de contenido
