Mach3 tool setting probe - Script included in description

This is a small probing script that I played with this afternoon. Its a double touch cycle that feeds down at 500mm/min for its first touch then repeats at 40mm/min for its second touch. I haven't used Mach3 for a while so it was fun having a play. Here's the script - Use at your own risk. Disclaimer- this is modified from a script that I found online and adapted for my own purpose. CurrentFeed = GetOemDRO(818) 'Feed to return to when done PlateThickness = 47.0 'set to your Probe thickness If GetOemLed (825)=0 Then 'Check to see if the probe is ready or faulty DoOEMButton (1010) 'zero the Z axis DRO so the probe move will start from here Code "G4 P4" ' delay to allow time to get from computer to hold probe in place Code "G31Z-150 F600" '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 axact 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, PlateThickness) 'set the Z axis DRO to whatever is set as plate thickness Code "G4 P0.75" 'Pause for Dro to update. Code "G0 Z49.0" 'Z retract height just clear of touch plate set it 2mm more than plate thickness Code "(Wait for second touchoff)" 'puts this message in the status bar Code "G31Z-10.0 F40" 'Second Slower Touchoff for accuracy. Code "G0 Z55.0" 'Z retract height finished height set 8mm higher than plate thickness Code "(Z axis is now zeroed)" 'puts this message in the status bar Code "F" &CurrentFeed 'Retutns to prior feedrate Else Code "(Z-Plate is grounded, check connection and try again)" 'this goes in the status bar if aplicable Exit Sub End If