What's new
What's new

Tool breakage detection routine enhancement for HAAS.

PROBE

Hot Rolled
Joined
Jan 23, 2003
Location
Tel Aviv, Israel
I've been quite frequently asked by my customers, running HAAS machines and frequently checking the tools for breakage (in fact each tool less then .5 inch is checked before being load back to magazine), if there is a possibility to shorten the original routine time.
I supplied them with HAAS enhancement version of my own SNR TS tool setting macro. Contrary to HAAS original, which in fact is performing ordinary tool measurment process, and then compares the result with offset stored value, the attached macro performs "real" breakage detection action, based on tool length stored in offset table.
The enhancement is "transparent" to original commands, no changes whatsoever are required in program. It is applied in many HAAS machines here, customers love that.
Here is the program. It is checking the tool for breakage and for being pulled from collet (LONG TOOL condition) The O9953 should be copied to machine memory, and existing O9853 should be edited as described in first lines of O9953.

%
O9953(SNR BROKEN/LONG TOOL HAAS)
G103P1
(*********************************)
(O9853 - ADD FIRST LINE: IF[#11NE#0]GOTO1000)
(O9853 - JUST BEFORE M99 ADD 6 FOLLOWING LINES)
(GOTO2000)
(N1000)
(M6T#20)
(H#20)
(G65P9953H#11)
(N2000)
(*********************************)
#14=0.5 (TS DIAMETER)
#15=-2. (TS ORIENT 1-X 2-Y SIGN-STYLUS DIRECTION)
#16=582. (BASE NUMBER)
(*********************************)
M5
IF[#4111EQ0]GOTO5
IF[#4111NE#0]GOTO10
N5
#3000=97(NO H OFFSET)
N10
IF[#11NE#0]GOTO12
#11=0.02 (TOLERANCE)
N12
IF[#7NE#0]GOTO14
#7=1. (MAXIMUM TOOL DIAMETER TO CHECK)
N14
IF[#9NE#0]GOTO15
#9=60 (MEASURING FEEDRATE)
N15
G40G80
G0G91G28Z0
G65P9855
G91
IF[ABS[#15]EQ1.]GOTO16
X[#[#16+3]-#5021]Y[#[#16+4]-#5022+[#15/2]*[[#7+#14]/2]]
Z[#[#16]-ABS[#11]+#[#4111+2000]+#[#4111+2200]-#5023]
G31Y-[[#15/2]*[[#7+#14]/2]]F#9
GOTO20
N16
X[#[#16+3]-#5021+#15*[[#7+#14]/2]]Y[#[#16+4]-#5022]
Z[#[#16]-ABS[#11]+#[#4111+2000]+#[#4111+2200]-#5023]
G31X-[#15*[[#7+#14]/2]]F#9
N20
G4P300
IF[#1029EQ1]GOTO50
G103P0
G65P9856
N25
#3000=91 (BROKEN TOOL)
N50
G1Z[#11*2]F#9
G4P300
IF[#1029EQ0]GOTO99
G103P0
G65P9856
N30
#3000=92 (LONG TOOL)
N99
G0G91G28Z0
G65P9856
G90
G103P0
M99
%
 








 
Back
Top