What's new
What's new

Corona Time

PROBE

Hot Rolled
Joined
Jan 23, 2003
Location
Tel Aviv, Israel
Corona Time. Sitting at home, I use lots of free time opportunity to dig in archive files and discover some nice and useful macro pieces, which I wrote in the past. Here is one, written for friend, who asked to measure length of the tool in right angle attachment using standard (in this case TS27R) tool setter.

%
O9021 (RIGHT ANGLE ATTACHMENT TOOL LENGTH MEASURE)
(G65P9021D0.5 (D-TOOL DIAMETER, 0 FOR DRILL))
#101=12. (MAX TOOL LENGTH)
#102=3. (REVERSE RIGHT ANGLE TOOL ROTATION M FUNCTION)
#103=23. (ATTACHMENT TOOL NUMBER)
#105=6. (ATTACHMENT VERTICAL LENGTH)
#106=0.005
#107=.02
#108=520 (BASE NUMBER)
G91G0Z28
G65P9001T#103 (TOOL CHANGE)
X[#[#108+3]+#101-#5021] Y[#[#108+4]-#7/2-#5022]
Z[#520+#105+2.-#5023]
#110=#5023
G31Z[#520+#105-#5023]F1500
G53
IF[ABS[#5023-#110]]LT#106]GOTO10
#3000=94 (PROBE OPEN)
N10
M#102S800
G31X[#[#18]-#5021]F40
G53
X-#107
G31X[#523-#5021]F.02
G53
#[2200+#103]=ABS[#5061-#5041+#5021-#[#108+3]-#[#108+2]/2]
G0[#[#108+3]+#103-#5021]
G28 G0
G90
M99
%
 








 
Back
Top