SAVEG00 = #1016 * SAVE CURRENT MOVE MODE (RAPID=0,FEED=1)

SAVEFRT = #1022 * SAVE CURRENT FEEDRATE

TDIA = ABS(#1020) * SAVE CURRENT ABSOLUTE TOOL DIA IF(!VAR(7)) THEN

PRINT (ERROR! HOLE DIA. NOT GIVEN)

M30

ENDIF

IF(!VAR(5)) THEN; #5=#1022; ENDIF * DEFAULT ROUGH FEEDRATE. IF(!VAR(6)) THEN; #6=#5; ENDIF * DEFAULT FINISH FEEDRATE. IF(!VAR(19)) THEN; #19=0.; ENDIF * DEFAULT NO FINISH STOCK. IF(ABS(#7/2)<ABS(#19)) THEN

PRINT (ERROR! TOOL DIA. TOO BIG)

M30

ENDIF

#33 = (ABS(#7)/2-ABS(#19)- TDIA /2); * ROUGHING PASS RADIUS. IF(#33<0#33=0) THEN

PRINT (ERROR! ROUGH AMOUNT TOO BIG)

M30

ENDIF

IF( #1041 > 40+ EPSI ) THEN * CHECK IF TOOL COMP IS ON PRINT (ERROR! TOOL COMP NOT ALLOWED)

M30

ENDIF

IF( TDIA < EPSI ) THEN

PRINT (WARNING: TOOL DIA.= 0)

M00 * DWELL UNTIL START KEY.

ENDIF

11.4 Advanced Programming

ACU-RITE 3500i

417

Page 443
Image 443
Acu-Rite CNC 3500i user manual 417