tool pre-setter\gauging program

[beej]

My okuma has a button style tool presetter on it. right now, we load the tools in the carosel, call up each tool in MDI and run the presetter program on it. (we have to run different programs depending on whether it needs to touch off "on center" or "offcenter"). It seems like there would be a Chook or stand alone program out there I could buy. Or I'm wondering if people are incorporating that into their postprocessors to touch off when the tool is called up.

[mcpgmr]

When I programmed at Boeing using Catia we used a pre defined tool change macro. It sent the machine to /G0 X0.0 Y0.0 after each tool change with spindle off then /M01 with a comment that read (TOUCH TOOL 2.100 FROM SET POINT). They used a 2.100 thingamajig for setting tools. After the first part the operator would turn on block skip and all this would be ignored. You could do this with manual entry in mc very easily if you wanted to. HTH !

[beej]

Paul,

thanks for the quick response. We have some machines that we do something like that too. But this machine is more automated than that. I'm trying to use this pre-setter that's mounted on the table in such a way that it would take little or no interaction from the operator. There are 2 programs loaded in the machine that we could call up as subprograms or use as templates. in those programs the machine rapids to the presetter, feeds down till it touches. rapids up and then feeds down again. once it touches it sets the length offset automatically.

 

I'm looking for a program that will run by itself and touch off 10 tools or 15 or 20(whichever we need at the time) while the operator is doing something else.

[mcpgmr]

Ok beej, We use to use a couple diferant ones on our old Hitachi Seiki VMC's. The newer guys don't use them, They just do it the old fashioned way. The programs look like this--

 

%

O9001(TOOL SET-M76)

(USE FOR AUTOMATIC )

(MEASURING OF DRILLS,)

(TAPS, SMALL END MILLS)

(TXX M76)

 

501=14.83

502=-0.5

503=-18.4

G0G80G98M15

G91G30Z0M19

IF[5021EQ501]GOTO1

G28G40X0Y0

N1G30G40Y0

T4120M6

S3000M19

1=4120

[2001+[1*4]]=0

G90G49D0H0

IF[5021EQ501]GOTO2

G91G28X0Y0

GOTO4

N2G91G28Y0

G0Y502

GOTO3

N4G0X501Y502

N3G31Z-16.1F50.0

G4X.25

IF[5023LT-16.]GOTO999

G0G91Z0.125

G31Z-0.15F2.0

G0G91Z0.0156

G31Z-0.02F0.1

G4X1.0

[2001+[1*4]]=5023

G0G91Z2.0

G30Y0Z0

G90

M99

N99G91G30Z0

G90

3000=999(WHERE IS TOOL BLOCK???)

 

 

%

O9002(TOOL SET-M176)

(USE FOR MANUAL MEASURING)

(OF FACE MILLS, BORE BARS)

(TXX M176)

 

501=14.83

502=-0.5

503=-18.4

G0G80G98M15

G91G30Z0M19

IF[5021EQ501]GOTO1

G28G40X0Y0

N1G30G40Y0

T4120M6

1=4120

[2001+[1*4]]=0

G90G49D0H0

S3000M5

IF[5021EQ501]GOTO2

G91G28X0Y0

GOTO4

N2G91G28Y0

G0Y502

GOTO3

N4G0X501Y502

N3M2

(MEASURE TOOL, PRESS START)

G4X1.

[2001+[1*4]]=5023

G0G91Z2.

G91G30Y0Z0

G90

M99

 

HTH !

[medaq]

I have done something like this, Being our horizontal has a 240 tool changer. I knew I was going to need to change the macro for setting the tools depending on the diameter. My idea might be a little basic but it works never the less..

 

Macro #517 offset on our machine is changed by the matsuura side of the control everytime a tool change is had. So with that I can determine what tool is in the head.

 

Anyhow this can get what you want done with one program, you just have to add in a new section for any specialty tool.

 

 

IF[#517EQ1]GOTO1

IF[#517EQ2]GOTO75

IF[#517EQ3]GOTO50

IF[#517EQ4]GOTO50

IF[#517EQ5]GOTO50

IF[#517EQ6]GOTO50

IF[#517EQ7]GOTO1875

IF[#517EQ8]GOTO2

IF[#517EQ9]GOTO125

IF[#517EQ10]GOTO375

 

IF[#517EQ11]GOTO375

IF[#517EQ12]GOTO25

IF[#517EQ13]GOTO25

IF[#517EQ14]GOTO1875

IF[#517EQ15]GOTO15

IF[#517EQ16]GOTO2

IF[#517EQ17]GOTO1875

IF[#517EQ18]GOTO1875

IF[#517EQ19]GOTO125

IF[#517EQ20]GOTO125

 

IF[#517EQ21]GOTO25

IF[#517EQ22]GOTO50

IF[#517EQ23]GOTO2

IF[#517EQ24]GOTO2

IF[#517EQ25]GOTO375

IF[#517EQ26]GOTO2

IF[#517EQ27]GOTO2

IF[#517EQ28]GOTO2

IF[#517EQ29]GOTO29

IF[#517EQ30]GOTO60

 

IF[#517EQ31]GOTO99

IF[#517EQ32]GOTO2

IF[#517EQ33]GOTO2

IF[#517EQ34]GOTO2

IF[#517EQ35]GOTO2

IF[#517EQ36]GOTO2

IF[#517EQ37]GOTO2

IF[#517EQ38]GOTO2

IF[#517EQ39]GOTO2

IF[#517EQ40]GOTO2

 

 

IF[#517EQ41]GOTO2

IF[#517EQ42]GOTO2

IF[#517EQ43]GOTO25

IF[#517EQ44]GOTO44

IF[#517EQ45]GOTO25

IF[#517EQ46]GOTO99

IF[#517EQ47]GOTO99

IF[#517EQ48]GOTO2

IF[#517EQ49]GOTO2

IF[#517EQ50]GOTO2

 

IF[#517EQ51]GOTO2

IF[#517EQ52]GOTO2

IF[#517EQ53]GOTO2

IF[#517EQ54]GOTO2

IF[#517EQ55]GOTO2

IF[#517EQ56]GOTO2

IF[#517EQ57]GOTO75

IF[#517EQ58]GOTO58

IF[#517EQ59]GOTO50

IF[#517EQ60]GOTO1

 

 

IF[#517EQ61]GOTO50

IF[#517EQ62]GOTO2

IF[#517EQ63]GOTO2

IF[#517EQ64]GOTO2

IF[#517EQ65]GOTO2

IF[#517EQ66]GOTO2

IF[#517EQ67]GOTO2

IF[#517EQ68]GOTO2

IF[#517EQ69]GOTO2

IF[#517EQ70]GOTO2

 

 

IF[#517EQ71]GOTO2

IF[#517EQ72]GOTO2

IF[#517EQ73]GOTO2

IF[#517EQ74]GOTO2

IF[#517EQ75]GOTO2

IF[#517EQ76]GOTO50

IF[#517EQ77]GOTO2

IF[#517EQ78]GOTO2

IF[#517EQ79]GOTO2

IF[#517EQ80]GOTO2

 

IF[#517EQ81]GOTO2

IF[#517EQ82]GOTO2

IF[#517EQ83]GOTO2

IF[#517EQ84]GOTO2

IF[#517EQ85]GOTO2

IF[#517EQ86]GOTO2

IF[#517EQ87]GOTO2

IF[#517EQ88]GOTO2

IF[#517EQ89]GOTO2

IF[#517EQ90]GOTO2

 

 

IF[#517EQ91]GOTO2

IF[#517EQ92]GOTO2

IF[#517EQ93]GOTO2

IF[#517EQ94]GOTO2

IF[#517EQ95]GOTO2

IF[#517EQ96]GOTO2

IF[#517EQ97]GOTO2

IF[#517EQ98]GOTO2

IF[#517EQ99]GOTO2

IF[#517EQ100]GOTO2

 

 

IF[#517EQ101]GOTO2

IF[#517EQ102]GOTO2

IF[#517EQ103]GOTO2

IF[#517EQ104]GOTO2

IF[#517EQ105]GOTO2

IF[#517EQ106]GOTO2

IF[#517EQ107]GOTO2

IF[#517EQ108]GOTO2

IF[#517EQ109]GOTO2

IF[#517EQ110]GOTO2

 

 

IF[#517EQ111]GOTO2

IF[#517EQ112]GOTO2

IF[#517EQ113]GOTO2

IF[#517EQ114]GOTO2

IF[#517EQ115]GOTO2

IF[#517EQ116]GOTO2

IF[#517EQ117]GOTO2

IF[#517EQ118]GOTO2

IF[#517EQ119]GOTO2

IF[#517EQ120]GOTO2

 

 

IF[#517EQ121]GOTO2

IF[#517EQ122]GOTO2

IF[#517EQ123]GOTO2

IF[#517EQ124]GOTO2

IF[#517EQ125]GOTO2

IF[#517EQ126]GOTO2

IF[#517EQ127]GOTO2

IF[#517EQ128]GOTO2

IF[#517EQ129]GOTO2

IF[#517EQ130]GOTO2

 

 

IF[#517EQ131]GOTO2

IF[#517EQ132]GOTO2

IF[#517EQ133]GOTO2

IF[#517EQ134]GOTO2

IF[#517EQ135]GOTO2

IF[#517EQ136]GOTO2

IF[#517EQ137]GOTO2

IF[#517EQ138]GOTO2

IF[#517EQ139]GOTO2

IF[#517EQ140]GOTO2

 

 

IF[#517EQ141]GOTO2

IF[#517EQ142]GOTO2

IF[#517EQ143]GOTO2

IF[#517EQ144]GOTO2

IF[#517EQ145]GOTO2

IF[#517EQ146]GOTO2

IF[#517EQ147]GOTO2

IF[#517EQ148]GOTO2

IF[#517EQ149]GOTO2

IF[#517EQ150]GOTO2

 

 

IF[#517EQ151]GOTO2

IF[#517EQ152]GOTO2

IF[#517EQ153]GOTO2

IF[#517EQ154]GOTO2

IF[#517EQ155]GOTO2

IF[#517EQ156]GOTO2

IF[#517EQ157]GOTO2

IF[#517EQ158]GOTO2

IF[#517EQ159]GOTO2

IF[#517EQ160]GOTO2

 

 

IF[#517EQ161]GOTO2

IF[#517EQ162]GOTO2

IF[#517EQ163]GOTO2

IF[#517EQ164]GOTO2

IF[#517EQ165]GOTO2

IF[#517EQ166]GOTO2

IF[#517EQ167]GOTO1

IF[#517EQ168]GOTO2

IF[#517EQ169]GOTO1

IF[#517EQ170]GOTO2

 

 

IF[#517EQ171]GOTO2

IF[#517EQ172]GOTO2

IF[#517EQ173]GOTO2

IF[#517EQ174]GOTO2

IF[#517EQ175]GOTO2

IF[#517EQ176]GOTO2

IF[#517EQ177]GOTO2

IF[#517EQ178]GOTO2

IF[#517EQ179]GOTO2

IF[#517EQ180]GOTO2

 

 

IF[#517EQ181]GOTO2

IF[#517EQ182]GOTO2

IF[#517EQ183]GOTO2

IF[#517EQ184]GOTO2

IF[#517EQ185]GOTO2

IF[#517EQ186]GOTO2

IF[#517EQ187]GOTO2

IF[#517EQ188]GOTO2

IF[#517EQ189]GOTO2

IF[#517EQ190]GOTO2

 

 

IF[#517EQ191]GOTO2

IF[#517EQ192]GOTO2

IF[#517EQ193]GOTO2

IF[#517EQ194]GOTO2

IF[#517EQ195]GOTO2

IF[#517EQ196]GOTO2

IF[#517EQ197]GOTO2

IF[#517EQ198]GOTO2

IF[#517EQ199]GOTO2

IF[#517EQ200]GOTO2

 

 

IF[#517EQ201]GOTO2

IF[#517EQ202]GOTO2

IF[#517EQ203]GOTO2

IF[#517EQ204]GOTO2

IF[#517EQ205]GOTO2

IF[#517EQ206]GOTO2

IF[#517EQ207]GOTO2

IF[#517EQ208]GOTO2

IF[#517EQ209]GOTO2

IF[#517EQ210]GOTO2

 

IF[#517EQ221]GOTO2

IF[#517EQ222]GOTO2

IF[#517EQ223]GOTO2

IF[#517EQ224]GOTO25

IF[#517EQ225]GOTO2

IF[#517EQ226]GOTO2

IF[#517EQ227]GOTO2

IF[#517EQ228]GOTO2

IF[#517EQ229]GOTO2

IF[#517EQ230]GOTO2

 

IF[#517EQ231]GOTO2

IF[#517EQ232]GOTO2

IF[#517EQ233]GOTO2

IF[#517EQ234]GOTO2

IF[#517EQ235]GOTO2

IF[#517EQ236]GOTO2

IF[#517EQ237]GOTO2

IF[#517EQ238]GOTO2

IF[#517EQ239]GOTO2

IF[#517EQ240]GOTO99

 

N1(1" ENDMILLS)

M0

G65P9862B1.0T#517Y.45

GOTO30

 

N75(3/4" ENDMILLS)

M0

G65P9862B1.0T#517Y.325

GOTO30

 

N50(1/2" ENDMILLS)

M0

G65P9862B1.0T#517Y.22

GOTO30

 

N375

N50(3/8" ENDMILLS)

M0

G65P9862B1.0T#517Y.125

GOTO30

 

N25

N50(1/4" ENDMILLS)

M0

G65P9862B1.0T#517Y.1

GOTO30

 

N1875

N50(3/16" ENDMILLS)

M0

G65P9862B1.0T#517Y.05

GOTO30

 

N125(1/8" ENDMILLS)

M0

G65P9862B1.0T#517Y.04

GOTO30

 

N2(DRILLS AND STRAIGHT ON)

M0

G65P9862B1.0T#517

GOTO30

 

N15(4.0" FACEMILL)

M0

G65P9862B1.0T#517Y1.5

GOTO30

 

N29(2.5" FACEMILL)

M0

G65P9862B1.0T#517Y1.0

GOTO30

 

N60(1.5" FACEMILL)

M0

G65P9862B1.0T#517Y.5

GOTO30

 

N44

M0

G65P9862B1.0T#517Y.09

GOTO30

 

N58

M0

G65P9862B1.0T#517Y.6

GOTO30

 

 

N30

M99

[Todd Mann from Fastech]

We use programs that came with our renashal tool setter. It looks like this.

G65 P9853 B1. S.75 T1

There is a lot of macro programs that this program works with. But the "S" number is for tools larger than .375 (the diameter of the stlyes.) and the "T" number is the tool number. The "B" number is for if you just want to set the length is "B1." and length and diameter is "B2." We and using these on Fanuc controls. Also I have a program in the machine that calls out the tool in the spindle then i load the tool i want as T1. It looks like this.

T1 M6

M00

T2 M6

M00

T3 M6

M30