'Check oemdro# And oemled# 'Code"1003" SetOEMDRO(800,0.5) SetOEMDRO(801,0.5) SetOEMDRO(802,2.0) Sleep(100) CurrentFeed = GetOemDRO(818) 'Get the current feedrate. PlateThickness =1.250 'Set gauge thickness ProbeFeed = 20 'Set feedrate during probing Code "G90 F" &ProbeFeed 'Set to Absolute Distance mode 'X Axis Home If GetOemLed (825)=0 Then 'Check LED to see probe is ready Code "G4 P1" 'Time to get to the X-plate Code "G31X4 F" &ProbeFeed 'Start X probe routine While IsMoving() 'Probe moving X axis Sleep(100) Wend 'End of move Code "G4 P0.25" 'Pause XProbePos = GetVar(2000) 'Get position of probe Code "G0 X" &XProbePos While IsMoving () 'Axis moving Wend 'End of move Call SetDro (0, PlateThickness) '? SetOEMDRO(800,0) 'Set X DRO for correct direction Code "G4 P0.5" 'Pause for Dro to update. Code "G0 X-1.065" 'Change the X retract distance here Code "(X axis is now homed)" 'Code "F" &CurrentFeed 'Store current feedrate to F Code "G54 P2" End If 'Y Axis Home Code "G90 F" &ProbeFeed 'Set to Absolute Distance mode Sleep(1000) 'Sleep to finish X routine If GetOemLed (825)=0 Then 'Check LED to see probe is ready 'Code "G4 P1" 'Time to get to the Y-plate Code "G31Y4 F" &ProbeFeed 'Start Y probe routine While IsMoving() 'Probe moving Y axis Wend 'End of move Code "G4 P0.25" 'Pause YProbePos = GetVar(2001) 'Get position of probe Code "G0 Y" &YProbePos While IsMoving () Wend Call SetDro (1, PlateThickness) SetOEMDRO(801,0) Code "G4 P0.5" 'Pause for Dro to update. Code "G0 Y-6.820 F20" 'Change the Y retract distance here Code "(Axis is now homed)" 'Code "F" &CurrentFeed 'Store current feedrate to F Code "G54 P2" 'Pause to let code finish Sleep(6000) 'Sleep to let program catchup SetOEMDRO(800,8.8641) 'Set X work offset for Spoons SetOEMDRO(802,2) 'Set Z work offset for All SetOEMDRO(801,0.0000) 'Set Y work offset for Spoons Else Code "(Plate is grounded, check connection and try again)" Exit Sub End If Code "X0 Y0" 'Ready to make spoons