Mach3 Auto Tool Zero help

[piper1]

Hi can anyone tell me what I'm doing wrong or missing out please.
I’m trying to set up my Auto tool zero in Mach 3, for some reason it’s decided not to function correctly anymore.

When i select the Auto tool zero button the Z axis starts to lower it’s self and stops when it make contact with the tool sensor.
It then raises 10 mm and stops.
When i select the GOTO switch the Z axis only lowers 10 mm and doesn't take into account the sensor thickness.

This is the Script in my VB editor.

'chengdu xhc tec. probe z surface macro
FeedCurrent = GetOemDRO(818) 'Get the current settings, OEM DROs (818)=Feedrate DRO
ZCurrent = GetOemDro(802) 'OEM DROs (802)=Z DRO
GageH = GetOEMDRO(1001) 'OEMDRO(1001)=Gage Block Height
ZNew = ZCurrent - 300 'probe down 20 mm

Code "G90F200" 'slow feed rate to 100 MM/MIN
SetOemDRO(818,200)
Rem Code "G4 P1" 'Pause 1 second to give time to position probe plate
Code "G31 Z" &ZNew
While IsMoving()
Sleep(10)
Wend
Call SetDro (2,GageH) 'DRO(2)=Z DRO

FinalMove = GageH + 10
Code "G0 Z" &FinalMove
Code "F" &FeedCurrent 'restore starting feed rate
SetOemDRO(818,FeedCurrent)

Thank you
Kev

[Ger21]

Are you entering the sensor thickness into the gauge height DRO?

[piper1]

Hi Gerry thank you for the reply.
I have tried to enter the sensor thickness in the DRO (Z axis) on the front screen but it cancels out when i select the GOTO button.
I also tried entering it in the VB Script “Call SetDro (2,GageH) 'DRO(2)=Z DRO”
To be honest i don't have a lot of knowledge in the subject

[piper1]

I've Manged to work out the issue.
The sensor thickness in the Offset colum didn't save the thickness reading.

Thank you
Kev

[Ger21]

I have tried to enter the sensor thickness in the DRO (Z axis) on the front screen but it cancels out when i select the GOTO button.

No.
The macro is looking in the Gage Height DRO for the sensor thickness. If you don't have it entered there, it's not going to work.

[stepmores]

hi you can use this

FeedCurrent = GetOemDRO(818) 'Get the current settings, OEM DROs (818)=Feedrate DRO
ZCurrent = GetOemDro(802) 'OEM DROs (802)=Z DRO
GageH = GetOEMDRO(1001) 'OEMDRO(1001)=Gage Block Height
ZNew = ZCurrent - 20 'probe down 20 mm

Code "G90F100" 'slow feed rate to 100 MM/MIN
Rem Code "G4 P1" 'Pause 1 second to give time to position probe plate
Code "G31 Z" &ZNew
While IsMoving()
Sleep(10)
Wend
Call SetDro (2,GageH) 'DRO(2)=Z DRO

FinalMove = GageH + 10
Code "G0 Z" &FinalMove
Code "F" &FeedCurrent 'restore starting feed rate

[piper1]

hi you can use this

FeedCurrent = GetOemDRO(818) 'Get the current settings, OEM DROs (818)=Feedrate DRO
ZCurrent = GetOemDro(802) 'OEM DROs (802)=Z DRO
GageH = GetOEMDRO(1001) 'OEMDRO(1001)=Gage Block Height
ZNew = ZCurrent - 20 'probe down 20 mm

Code "G90F100" 'slow feed rate to 100 MM/MIN
Rem Code "G4 P1" 'Pause 1 second to give time to position probe plate
Code "G31 Z" &ZNew
While IsMoving()
Sleep(10)
Wend
Call SetDro (2,GageH) 'DRO(2)=Z DRO

FinalMove = GageH + 10
Code "G0 Z" &FinalMove
Code "F" &FeedCurrent 'restore starting feed rate

Thank you for the reply, i've managed to get it working now but i will keep it for futher refence.

Cheers
Kev

[kell]

If my gauge height is 19.10mm how would the code change as i am unsure where it is entered.
And i will try this code on my machine as i am trying to get a zero z script to work

[JAZZCNC]

If my gauge height is 19.10mm how would the code change as i am unsure where it is entered.
And i will try this code on my machine as i am trying to get a zero z script to work

It will be a constant in the probe macro you are using. Post the macro and will take a look.

[kell]

It will be a constant in the probe macro you are using. Post the macro and will take a look.

Hi dean
long time. i have a code here that is on machine but it gose down and touches then gose up about 50mm then when i remove probe and click goto zero it only moves about 25mm down

CurrentFeed = GetOemDRO(818) 'Get the current feedrate to return to later
CurrentAbsInc = GetOemLED(48) 'Get the current G90/G91 state
CurrentGmode = GetOemDRO(819) 'Get the current G0/G1 state

If GetOemLed (825)=0 Then 'Check to see if the probe is already grounded or faulty
DoOEMButton (1010) 'zero the Z axis so the probe move will start from here
Code "G4 P3" ' this delay gives me time to get from computer to hold probe in place
Code "G90 G31 Z-50 F255" 'probing move, can set the feed rate here as well as how far to move
While IsMoving() 'wait while it happens
Wend
ZProbePos = GetVar(2002) 'get the exact point the probe was hit
Code "G0 Z" &ZProbePos 'go back to that point, always a very small amount of overrun
While IsMoving ()
Wend
Call SetDro (2, 19.10) ' change .060 to your plate thickness and then adjust for final accuracy
Sleep 200 'Pause for Dro to update.
Code "G1 Z25 F50" 'put the Z retract height you want here, must be greater than the touch plate thickness
While IsMoving ()
Wend
Code "(Z axis is now zeroed)" 'puts this message in the status bar
Code "F" &CurrentFeed 'Returns to prior feed rate
Else
Code "(Z-Plate is grounded, check connection and try again)" 'this goes in the status bar if applicable
End If
If CurrentAbsInc = 0 Then 'if G91 was in effect before then return to it
Code "G91"
End If
If CurrentGMode = 0 Then 'if G0 was in effect before then return to it
Code "G0"
End If