Anilam 5000M Manual De Programación Y Operacion página 403

G65 P76 D2.0 S.010 J35 K20
G0 Z.1 * ELEVAR Z HASTA EL PLANO DE REBAJADO
TO Z0
X0 Y0
M2
O76 ** MACRO DE FRESADO DE ORIFICIOS.
*
* D#7 = DIÁ. ORIFICIO (+=CCW,-=CW), J#5 = VELOC. DE
AVANCE BASTA
* S#19 = TERMINAR MATERIAL, K#6 = TERMINAR VELOC. DE
AVANCE
* #1020 = DIÁ. HERRAMIENTA.
*
[SAVEG90 #99 * DEFINIR CADENA GUARDARG90 EN VAR 99
[SAVEG00 #98 * DEFINIR CADENA GUARDARG00 EN VAR 98
[SAVEFRT #97 * DEFINIR CADENA VEFRT EN VAR 97
[TDIA
[EPSI .00001 * DEFINIR CADENA EPSI TO .00001
SAVEG90 = #1090 * GUARDAR MODO DIM ACTUAL
(ABS=90,INCR=91)
SAVEG00 = #1016 * GUARDAR MODO DE MOV. ACTUAL
(RAPID=0,FEED=1)
SAVEFRT = #1022 * GUARDAR VELOC DE AVANCE ACTUAL
TDIA = ABS(#1020) * GUARDAR DIA. DE HERRAMIENTA
ABSOLUTO ACTUAL
IF(!VAR(7)) THEN
PRINT (ERROR! FALTA DIÁ. ORIFICIO)
M30
ENDIF
IF(!VAR(5)) THEN; #5=#1022; ENDIF * V. PREDETERM. BASTO A
VELOC. DE AVANCE BASTA.
IF(!VAR(6)) THEN; #6=#5; ENDIF * VEL. DE AVANCE DE
ACABADO PREDETERMINADA.
IF(!VAR(19)) THEN; #19=0.; ENDIF * PREDETERMINADO: SIN
MATERIAL PARA ACABADO
IF(ABS(#7/2)<ABS(#19)), IMPRIMIR
PRINT (ERROR! DIÁ.HERRAM. DEMASIADO GRANDE)
M30
ENDIF
#33 = (ABS(#7)/2-ABS(#19)- TDIA /2); * RADIO DE PASADA BASTA.
IF(#33<0|#33=0) ENTONCES
IMPRIMIR (ERROR! DEMASIADO MATERIAL)
M30
ENDIF
IF( #1041 > 40+ EPSI ) THEN
ACTIVA
PRINT (ERROR! COMP HERRA NO PERMITIDA)
18-20
CNC - Manual de Programación y Operaciones
P/N 70000409A G Funciones de Programación Avanzada
#96 * DEFINIR CADENA TDIA EN VAR 96
Reservados todos los derechos. Sujeto a cambios sin previo aviso.
* VER SI COMP HERRAM ESTÁ
12-Ene-00