Update:
Now that I have played with the “Auto Tool Zero” button, I would prefer to check one axis at a time. It’s a neat button and I may add a all in one script to it later on.
The following refers to buttons that are found on the modified Blue Screen Set. There are four arrows, X+, X-, Y+ and Y-. There is also a Z arrow that I already have a good script for. To see this specific screen you can click on the link. Scroll half way down the page. I do not have any preference on the screen set but it does have the arrow buttons that I want to use.
http://www.cnczone.com/forums/showthread.php?p=436270#post436270After experimenting, I became confident that I could touch off of X, Y and Z using the XYZ arrow buttons. I zeroed each axis after touching and after completing the touch routine for XYZ, I selected "Go To Z" and then selected "Regen" and finally “Cycle Start”. I’m not sure if this is the technique or sequence that most use or not but it seems to work.
There is a script associated with each of these XYZ arrow buttons. Now I need to determine if the individual scripts for the X and Y arrow buttons accomplish the following. (I have a good Z script already)
(1) I need the scripts associated with the X+ and Y+ arrow buttons to make the compensation for my touch plate thickness for X+ and Y+ only. (not for X- and Y-) My touch plate is 0.0635 inches thick.
(2) I need all the X and Y arrow button scripts to reference the tool selected in the tool information window and make the radius correction. It is important that this radius correction only be applied for the touch off script. My drawings already have compensated for the tool offset. My tools are in the Mach Tool Table as recommended.
A friend walked me through the Z script last night and I now have some understanding of what the script says but not enough to write the script from scratch. Below are the current X+, X- scripts. If changes need to be made, I should be able to edit Y+ and Y- the same way.
Thanks in advance for taking a look at them.
From what I see in these scripts, it does not make the corrections described above. But I really am clueless about the script language and codes.
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
This is the current script for the X+ arrow button:
Rem VBScript for probing in the x direction
If GetOemLed (825) <> 0 Then 'Check to see if the probe is already grounded or faulty
Code "(Probe plate is grounded, check connection and try again)" 'this goes in the status bar if aplicable
Else
Code "G4 P1" 'Pause 1 second to give time to position probe plate
CurrentFeed = GetOemDRO(818) 'Get the current feedrate to return to later
Code "F4"
Rem Probe left
XNew = GetDro(0) + 3 'probe to current position + 3 inches
Code "G31 X" &XNew
While IsMoving() 'wait for prob move to complete
Wend
XNew = GetVar(2000) 'read the touch point
Rem move back to the hit point incase there was an overshoot
Code "G0 X" &XNew
While IsMoving ()
Wend
Code "F" &CurrentFeed 'restore original feed rate
End If
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
This is the current script for the X- arrow button:
Rem VBScript for probing in the x direction
If GetOemLed (825) <> 0 Then 'Check to see if the probe is already grounded or faulty
Code "(Probe plate is grounded, check connection and try again)" 'this goes in the status bar if aplicable
Else
Code "G4 P1" 'Pause 1 second to give time to position probe plate
CurrentFeed = GetOemDRO(818) 'Get the current feedrate to return to later
Code "F4"
Rem Probe left
XNew = GetDro(0) - 3 'probe to current position - 3 inches
Code "G31 X" &XNew
While IsMoving() 'wait for prob move to complete
Wend
XNew = GetVar(2000) 'read the touch point
Rem move back to the hit point incase there was an overshoot
Code "G0 X" &XNew
While IsMoving ()
Wend
Code "F" &CurrentFeed 'restore original feed rate
End If