Hello zr8cnc,
I finally got back to that height set tool plate. I got it right away. I don't think that I had the damn thing running before when I was trying to get the Digitize light to prove the circuit. Sometimes I amaze myself at how thick headed I can be. Here is the button script used with built in instructions for personalization.On the board I used I10 and the 5v ground. Bill
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) 'zerothe 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 inplace
Code "G90 G31Z-4.F4"'probing move, F4is the feed rate here for the move and -4is how far spindle will move beforegiving up
While IsMoving() 'waitwhile 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 ofoverrun
While IsMoving ()
Wend
Call SetDro (2, .793)' change .060 to your plate thickness and then adjust for finalaccuracy
Sleep 200 'Pause for Droto update.
Code "G1 Z1.F50"' Z1 is the Z retract height you want here, must be greater than thetouch plate thickness F50is the Feedrate after process
While IsMoving ()
Wend
Code "(Z axis is nowzeroed)" 'puts this message in the status bar
Code "F"&CurrentFeed 'Returns to prior feed rate
Else
Code "(Z-Plate isgrounded, check connection and try again)" 'this goes in thestatus 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
I finally got back to that height set tool plate. I got it right away. I don't think that I had the damn thing running before when I was trying to get the Digitize light to prove the circuit. Sometimes I amaze myself at how thick headed I can be. Here is the button script used with built in instructions for personalization.On the board I used I10 and the 5v ground. Bill
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) 'zerothe 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 inplace
Code "G90 G31Z-4.F4"'probing move, F4is the feed rate here for the move and -4is how far spindle will move beforegiving up
While IsMoving() 'waitwhile 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 ofoverrun
While IsMoving ()
Wend
Call SetDro (2, .793)' change .060 to your plate thickness and then adjust for finalaccuracy
Sleep 200 'Pause for Droto update.
Code "G1 Z1.F50"' Z1 is the Z retract height you want here, must be greater than thetouch plate thickness F50is the Feedrate after process
While IsMoving ()
Wend
Code "(Z axis is nowzeroed)" 'puts this message in the status bar
Code "F"&CurrentFeed 'Returns to prior feed rate
Else
Code "(Z-Plate isgrounded, check connection and try again)" 'this goes in thestatus 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