[GARY DAVIS]

dose any body have a macro to set up tools using a renishaw TS27R
tool setter probe

I would like to enter in tool infromation for tool 1-5 all at once for example
insted of only one at a time.

can any one help


gary d

[Cartesian-xyz]

Gary,
Here is a macro I wrote to use the TS27R.
Hope this helps, PM me with any questions and I will be happy to help you,
Stephen,

%
N1O3(TOOL SETTING MACRO-DO NOT ERASE)
N2(WRITTEN BY STEPHEN BERGMAN 6/15/99, Cartesian Machine Works)
N3(THIS MACRO IS USED TO SET 1 OR MORE TOOL OFFSETS
N4(USING THE RENISHAW TS27R PROBE. BOTH LENGTH AND
N5(RADIUS ARE SET, AND ASSUMES THE FOLLOWING:
N6(PROBE IS SETUP ON LEFT END OF TABLE, STYLYST
N7(DIAMETER OF .505, STYLIST OVERTRAVEL ERROR +.0008
N8(E48 USED AS STYLIST FIXTURE OFFSET.
N9(MACHINE SET TO USE RADIUS OF TOOL, TOOL CAROUSEL
N10(CAPACITY OF 30 TOOLS, MANUAL PALLET SUTTLE INSTALLED.
N11(*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-)
N12($$$ YOU WILL BE ASKED IF THE PALLET IS REMOVED FROM THE
N13(MACHINE. THIS IS NECESSARY AS THE PROBE IS UNDER
N14(THE PALLET. INTERING A VALUE OF 1 WILL ALLOW PROGRAM
N15(TO CONTINUE ELSE IT WILL PRINT AN ERROR MESSAGE AND
N16(REPEAT THE QUESTION.$$$ IF YOU FAIL TO REMOVE THE
N17(PALLET OR ANY OBSTRUCTIONS FROM AROUND OR
N18(NEAR THE PROBE YOU WILL CRASH THE SPINDLE $$$
N19(*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*)
N20(YOU WILL BE PROMPTED FOR THE STARTING TOOL AND THEN
N21(THE ENDING TOOL. IF YOU ARE SETTING JUST ONE TOOL
N22(THEN ENDING TOOL NUMBER WILL BE THE SAME AS
N23(THE STARTING TOOL NUMBER. THE PROGRAM WILL PERFORM
N24(ERROR CHECKING TO ASSURE THE TOOL RANGE IS FROM
N25(1-30 AND THE ENDING TOOL NUMBER IS LARGER THAN
N26(THE STARTING TOOL NUMBER. IF AN ERROR OCCURS IT
N27(WILL BE DISPLAYED AND YOU WILL BE PROMPTED TO
N28(RE-ENTER THE DATA. IF THE STARTING TOOL IS NOT
N29(IN THE SPINDLE IT WILL BE LOADED INTO THE SPINDLE
N30(AFTER PUSHING CYCLE START. THEN THE PROGRAM WILL
N31(PAUSE AND PROMPT YOU FOR THE NOMINAL TOOL RADIUS.
N32(ENTER THE NOMINAL OR MAXIMUM EXSPECTED RADIUS OF TOOL,
N33(THIS IS USED TO OFFSET C/L OF SPINDLE TO C/L OF
N34(THE STYLIST FOR SETTING THE LENGTH AND RADIUS.
N35(IF NO VALUE EXIST FOR NOMINAL RADIUS THEN NO
N36(TOOL RADIUS OFFSET WILL BE SET. IF THE TOOL IS FOR
N37(EXAMPLE A DRILL OR REAMER, THEN ENTER O FOR
N38(NOMINAL RADIUS SIZE, THE TOOL LENGTH WILL BE SET
N39(AND NO RADIUS OFFSET WILL BE CALCULATED.
N40(NEXT YOU WILL BE PROMTED FOR TOOL NOSE RADIUS
N41(ENTER THE APROPRIATE VALUE OR 0 FOR NO RADIUS
N42(THE TOOL NOSE RADIUS OF A BULLNOSE ENDMILL IS
N43(NEEDED TO ACCURATELY SET THE TOOL RADIUS. THE
N44(TOOL IS MOVED .10 BELOW THE STYLIST + THE NOSE
N45(RADIUS OF THE TOOL. ERROR CHECKING IS PERFORMED
N46(TO AVOID POTENTIAL CRASH. IF NOSE RADIUS IS
N47(GREATER THAN 1.0 AN ERROR WILL BE DISPLAYED.
N48(IF A RADIUS VALUE IS SET THEN THE RESULTS WILL
N49(BE DISPLAYED. YOU WILL BE PROMPTED TO PUSH ENTER
N50(TO CONTINUE. THE NEXT TOOL WILL BE LOADED AND THE
N51(PROCESS REPEATED UNTIL THE LAST TOOL IS SET
N52#:BEGIN
N53#CLEAR V1-V100'CLEARS VARIBLE TABLE
N54#PRINT" "
N55#PRINT"IS THE PALLET REMOVED FROM THE MACHINE?"
N56#PRINT"1=YES, 0=NO :",
N57#INPUT V7
N58#IF V7<>1 THEN GOTO :CRASH
N59#PRINT"STARTING TOOL= ",
N60#INPUT V1
N61#IF (V1>30) OR (V1<1) THEN GOTO :TOOL-ERROR
N62#PRINT"ENDING TOOL= ",
N63#INPUT V2
N64#IF (V2>30) OR (V2<1) THEN GOTO :TOOL-ERROR
N65#IF V1>V2 THEN GOTO :TOOL-ERROR
N66#R1=V1
N67G0G17G40G70G80G90G94
N68T+R1M6(GETS FIRST TOOL
N69#V3=TN
N70#GOTO :LENGTH
N71
N72#:LOOP
N73#V3=V3+1'ADVANCES COUNT BY 1
N74#R1=V3
N75#IF V3>V2 THEN GOTO :END'CHECKS FOR LAST TOOL
N76T+R1M6(GETS NEXT TOOL
N77#GOTO :LENGTH
N78
N79#:LENGTH
N80#CLEAR V4'SETS V4 TO 0
N81#PRINT"INPUT NOMINAL TOOL RADIUS= ",
N82#INPUT V4
N83#:TOOLNOSE
N84#PRINT"INPUT NOSE RADIUS= ",
N85#INPUT V6
N86#IF V6>1 THEN GOTO :NOSE-ERROR'NOSE RADIUS LIMIT
N87#R8=V4
N88G0G90X+R8Y0M4S500E48M65(MOVE TO XY POSITION
N89G1G31Z-30.F50.P1(FIRST HIT
N90#PZ1=PZ1+.020'ADDS .020 TO LENGTH
N91#R0=PZ1
N92G1Z+R0S800(MOVES Z0 UP .020 INCREASE RPM
N93G1G31Z-30.F0.16P1(SECOND HIT
N94#V10=PZ1'SETS V10 TO Z POSITION
N95#R9=TN'SETS R9 TO CURRENT TOOL#
N96#H(TN)=V10'SETS TLO VALUE
N97#PZ1=PZ1+.1'ADDS .10 TO CURRENT Z POSITION
N98#R0=PZ1'SETS R0 TO CURRENT Z POSITION
N99G1Z+R0F10.(MOVES Z UP .10
N100#IF V4>0 THEN GOTO :RADIUS
N101M5(SPINDLE OFF
N102G0G91Z0G28(RETURN SPINDLE TO HOME
N103G90
N104#GOTO :LOOP
N105
N106#:RADIUS
N107#V5=V4+.2525+.03
N108#R2=V5
N109#R3=TN
N110#R4=V6+.1'ADDS NOSE RADIUS TO Z DEPTH
N111G1X0Y-R2F30.(MOVES TO -Y POSITION
N112H+R3Z-R4E48(LOADS TLO AND MOVE Z-.1-NOSE RADIUS
N113G1G31Y0F0.16P1(FIRST Y POINT
N114G1Z0.1F30.(MOVES TO Z CLEAR
N115Y+R2(MOVES TO SECOND Y POSITION
N116Z-R4(MOVES Z -
N117G1G31Y0P2F0.16(SECOND Y POINT
N118L9101R1+8.R2+0.505D+R3(CALC RADIUS AND STORE
N119#D(TN)=D(TN)+.0008'STYLIST OVERTRAVEL CORRECTION
N120M5(SPINDLE OFF
N121#PRINT" "
N122#PRINT"TOOL=",TN
N123#PRINT"LENGTH=",H(TN)
N124#PRINT"RADIUS=",D(TN)
N125#PRINT"PRESS ENTER TO CONTINUE:",
N126#INPUT V99
N127G0G28G91Z0(RETURN SPINDLE TO HOME
N128G90G49(CANCEL TLO
N129#GOTO :LOOP
N130
N131#:NOSE-ERROR
N132#PRINT" "
N133#PRINT"ERROR NOSE RADIUS TO LARGE"
N134#PRINT"MUST BE <= 1.0 "
N135#GOTO :TOOLNOSE
N136
N137#:TOOL-ERROR
N138#PRINT" "
N139#PRINT"TOOL NUMBER OUT OF RANGE"
N140#PRINT"START AND END TOOL# MUST BE <30 AND >1"
N141#PRINT"END TOOL# MUST BE > START TOOL#"
N142#GOTO :BEGIN
N143
N144#:CRASH
N145#PRINT" "
N146#PRINT"****** YOU WOULD HAVE CRASHED *******"
N147#PRINT"**** RE-EVALUATE YOUR INTENTIONS ****"
N148#GOTO :BEGIN
N149
N150#:END
N151G90
N152G0X0Y0Z0E0(RETURN TO HOME POSITION
N153#CLEAR V1-V100
N154M2
%

[GARY DAVIS]

thanks for the info i will try it out

[GARY DAVIS]

I TRYED THE TOOL SETTER MACRO I SEEMS TO WORK WELL I TRYED IT WITH NO TOOL SO FAR AND TUCHED THE PROBE BY HAND IS THERE A WAY TO GET IT TO REED THE DIA FROM THE TOOL OFFSET PAGE TO SET TOOLS THEN SET IT ALL UP IN TOOL PAGE AND WALK AWAY WHEN YOU COME BACK ALL TOOLS ARE SET

[Cartesian-xyz]

Short answer, YES.
However it would be necessary to inter the tool diameter and nose radius in a variable
table for each tool prior to running the macro. If you make a TYPO then you could potentially destroy an exspensive tool and a very expensive probe.
In order to position the tool accurately for probing, the nose radius and diameter is needed and must be provided either thru the macro "PROMPT" or via variable table.
Hope this helps,
Stephen

[GARY DAVIS]

Thanks:
sounds like to much trouble i didnt know if
you could make it look at the tool table i might take your
program and rewright it just for length offset most of the time i dont set dia at probe.

[Cartesian-xyz]

If you just put ( ) to indicate comment around N100, Then the radius setting subroutine would be eliminated. However endmills with a bullnose radius will still be offset in the X axis for acurate lenght offset.

Stephen