6
« on: July 26, 2010, 05:06:39 AM »
I apologize for posting someone else's work here and without his permission. I can not find his thread anymore because there are so many of them. Again I apologize for posting his work without his permission:
the codes for auto tool zero
Rem VBScript To probe In the z axis
If GetOemLED(801) Then 'NOTE: This script is for Inches as Native Units
If GetOemLed (825) <> 0 Then 'check to see if the probe is already grounded or faulty
Message "Z-Plate is grounded, check connection and try again" 'this goes in the status bar if aplicable
Else
Code "G4 P1" 'pause 1 seconds to give time to position probe plate
PlateOffset = GetUserDRO(1151) 'get plate offset DRO
CurrentFeed = GetOemDRO(818) 'get the current feedrate to return to later
Code "F12" 'slow down feedrate to 12 ipm
Rem Probe In the z direction
ZNew = GetOEMDro(802) - 6 'probe move to current z - 6 inches
Code "G31Z" &ZNew
While IsMoving() 'wait For probe move to finish
Sleep(10)
Wend
ZNew = GetVar(2002) 'read the touch point
Code "G0 Z" &ZNew +.05 'move back +.1 to hit point incase there was overshoot +.1
While IsMoving ()
Sleep(10)
Wend
Rem End add lines
Code "F1" 'slow down feedrate to 2 ipm
ZNew = GetOEMDro(802) - .1 'probe move to current z - .25 inches
Code "G31Z" &ZNew
While IsMoving() 'wait For probe move to finish
Sleep(10)
Wend
ZNew = GetVar(2002) 'read the touch point
Code "G0 Z" &ZNew 'move back to hit point incase there was overshoot
While IsMoving ()
Sleep(10)
Wend
If PlateOffset <> 0 Then
Call SetOEMDro (802, PlateOffset) 'set the Z axis DRO to plate thickness
Code "G4 P0.25" 'pause for Dro to update.
ZNew = PlateOffset + .937 'calc retract
Code "G0 Z" &ZNew 'put the Z retract height you want here
While IsMoving ()
Sleep(10)
Wend
Message "Z axis is now zeroed in Imperial units" 'puts this message in the status bar
End If
Code "F" &CurrentFeed 'returns to prior feed rate
End If
Else 'NOTE: This portion of script is for Metric as Native Units
If GetOemLed (825) <> 0 Then 'check to see if the probe is already grounded or faulty
Message "Z-Plate is grounded, check connection and try again" 'this goes in the status bar if aplicable
Else
Code "G4 P1" 'pause 1 seconds to give time to position probe plate
PlateOffset = GetUserDRO(1151) 'get plate offset DRO
CurrentFeed = GetOemDRO(818) 'get the current feedrate to return to later
Code "F300" 'slow down feedrate to 300 mmpm
Rem Probe In the z direction
ZNew = GetOEMDro(802) - 150 'probe move to current z - 150 mm
Code "G31Z" &ZNew
While IsMoving() 'wait For probe move to finish
Sleep(10)
Wend
ZNew = GetVar(2002) 'read the touch point
Code "G0 Z" &ZNew + 3 'move back + 3 mm to hit point incase there was overshoot + 3 mm
While IsMoving ()
Sleep(10)
Wend
Rem End add lines
Code "F50" 'slow down feedrate to 50 mmpm
ZNew = GetOEMDro(802) - 6 'probe move to current z - 6 mm
Code "G31Z" &ZNew
While IsMoving() 'wait For probe move to finish
Sleep(10)
Wend
ZNew = GetVar(2002) 'read the touch point
Code "G0 Z" &ZNew 'move back to hit point incase there was overshoot
While IsMoving ()
Sleep(10)
Wend
If PlateOffset <> 0 Then
Call SetOEMDro (802, PlateOffset) 'set the Z axis DRO to plate thickness
Code "G4 P0.25" 'pause for Dro to update.
ZNew = PlateOffset + 20 'calc retract
Code "G0 Z" &ZNew 'put the Z retract height you want here
While IsMoving ()
Sleep(10)
Wend
Message "Z axis is now zeroed in Metric units" 'puts this message in the status bar
End If
Code "F" &CurrentFeed 'returns to prior feed rate
End If
End If
please help me what to do with this? What do I need to click in mach3? I really wanted to try his codes seems like it is VERY GOOD!