3
« on: January 15, 2019, 08:32:34 AM »
First time poster here. I loaded a z zero script into the auto zero button and it worked great. I then felt I would rather have a script that did a double measure, so I found a script that was posted that from what I understood was from BigTex, but now when the tool hits the sensor, instead of just retracting the specified distance, the spindle retracts all the way back up until it hits the home switch and then faults out. I deleted everything and re-installed the original script that worked perfect, and the spindle still raises all the way up. Any recommendations about what could be the problem? Here is the script that I entered.
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