Guest
Show Posts
1
FAQs / Please Help
« on: March 07, 2014, 09:28:13 PM »
Need help with this code. Where how do I input the variables?
' Auto Tool Zero by Dale Walsh <dale@daleenterprise.com>
Dim Initial_Abs_Inc
Dim Initial_Feed_Rate
Dim Initial_G_State
Dim Initial_Machine_Coordinates_State
Dim Initial_Spindle_CW_State
Dim Initial_Spindle_CCW_State
Dim Initial_Spindle_State
Dim Initial_Tool_Offset_State
Dim Probing_Feed_Rate
Dim Guage_Block_Height
Dim Z_Probe_Pos
Initial_Feed_Rate = GetOEMDRO(818)
Initial_G_State = GetOEMDRO(819)
Initial_Machine_Coordinates_State = GetOEMLed(16)
Initial_Tool_Offset_State = GetOEMLED(28)
Initial_Abs_Inc = GetOEMDRO(48)
Guage_Block_Height = GetOEMDRO(1001)
If Guage_Block_Height <= 0 Then
Answer = MsgBox("A positive value must be entered for the Guage Block Height", 0, "Oh-oh")
Exit Sub
End If
If GetOEMDRO(824) <= 0 Then
Answer = MsgBox("A Tool has not been selected, select a tool and try again.", 0, "Oh-oh")
Exit Sub
End If
If IsSuchSignal(22) Then ' Check whether a probe input is defined..
If GetOEMLed(825) = 0 Then
Answer = MsgBox("Do you need to Move X, Y or Z ?", 4, "Do you need to Move")
If Answer = 6 Then
Message("Tool zeroing to Material was canceled so you can move.")
Exit Sub
End If
Answer = MsgBox("Place Sensor on work piece.", 1, "Is the Guage Block Sensor in place")
If Answer = 2 Then
Message("Tool zeroing to Material was canceled.")
Exit Sub
End If
Message("Tool zeroing to Material is requested.")
' Save settings for restoring later
Initial_Spindle_State = GetOEMLED(11)
Initial_Spindle_CW_State = GetOEMLED(164)
Initial_Spindle_CCW_State = GetOEMLED(165)
If Initial_Spindle_State = true Then ' Spindle is running so stop it
If Initial_Spindle_CW_State = Initial_Spindle_CCW_State Then
MsgBox("Your running spindle is misconfigured -> clockwise = " & Initial_Spindle_CW_State & " and counter-clockwise" & Initial_Spindle_CCW_State & " , please fix this.")
Exit Sub
End If
DoSpinStop()
Sleep(500)
End if
' Turn off Tool Offset if it's on
Select Case Initial_Tool_Offset_State
Case True
DoOEMButton(136)
End Select
Select Case Initial_Machine_Coordinates_State
Case True
DoOEMButton(180)
End Select
' Get current scale settings.
XScale = GetOEMDRO(59)
YScale = GetOEMDRO(60)
ZScale = GetOEMDRO(61)
' Set scale to one to probe.
Call SetOEMDRO(59, 1)
Call SetOEMDRO(60, 1)
Call SetOEMDRO(61, 1)
Select Case GetOEMLED(802)
Case true ' Metric System
Probing_Feed_Rate = 150
Probe_Travel = 250
Case false ' Imperial System
Probing_Feed_Rate = 6
Probe_Travel = 10
End Select
DoOemButton(1010)
Code "G4 P1"
' Perform the probe
Code "G90 G31 Z-" & Probe_Travel & " F" & Probing_Feed_Rate
While IsMoving()
Wend
Z_Probe_Pos = GetVar(2002)
Code "G0 Z" &Z_Probe_Pos
While IsMoving()
Wend
Call SetOemDRO(802 , Guage_Block_Height)
Code "G4 P0.500"
Code "G28"
While IsMoving()
Wend
Message("Tool is now zeroed to Material.")
' Restore the original settings
Code "F" &Initial_Feed_Rate
Select Case Initial_Abs_Inc
Case 0
Code "G90"
Case 1
Code "G91"
End Select
Select Case Initial_G_State
Case 0
Code "G0"
Case 1
Code "G1"
End Select
Select Case Initial_Spindle_State
Case True ' Spindle is running so stop it
If Initial_Spindle_CW_State = true Then
DoSpinCW()
ElseIf Initial_Spindle_CCW_State = true Then
DoSpinCCW()
End If
End Select
' Restore the original Tool Offset state
Select Case Initial_Tool_Offset_State
Case True
DoOEMButton(136)
End Select
' Restore original Machine Coordinates State
Select Case Initial_Machine_Coordinates_State
Case True
DoOEMButton(179)
End Select
Call SetOEMDRO(59, XScale)
Call SetOEMDRO(60, YScale)
Call SetOEMDRO(61, ZScale)
Else
' Houston we have a problem
Answer = MsgBox("Guage Height Block is grounded, check connections and try again", 0, "Oh-oh")
End If
Else
Answer = MsgBox("Probe input is not defined in Port and Pins config, configure and try again.", 0, "Oh-oh")
End If
Thanks
bob78218
' Auto Tool Zero by Dale Walsh <dale@daleenterprise.com>
Dim Initial_Abs_Inc
Dim Initial_Feed_Rate
Dim Initial_G_State
Dim Initial_Machine_Coordinates_State
Dim Initial_Spindle_CW_State
Dim Initial_Spindle_CCW_State
Dim Initial_Spindle_State
Dim Initial_Tool_Offset_State
Dim Probing_Feed_Rate
Dim Guage_Block_Height
Dim Z_Probe_Pos
Initial_Feed_Rate = GetOEMDRO(818)
Initial_G_State = GetOEMDRO(819)
Initial_Machine_Coordinates_State = GetOEMLed(16)
Initial_Tool_Offset_State = GetOEMLED(28)
Initial_Abs_Inc = GetOEMDRO(48)
Guage_Block_Height = GetOEMDRO(1001)
If Guage_Block_Height <= 0 Then
Answer = MsgBox("A positive value must be entered for the Guage Block Height", 0, "Oh-oh")
Exit Sub
End If
If GetOEMDRO(824) <= 0 Then
Answer = MsgBox("A Tool has not been selected, select a tool and try again.", 0, "Oh-oh")
Exit Sub
End If
If IsSuchSignal(22) Then ' Check whether a probe input is defined..
If GetOEMLed(825) = 0 Then
Answer = MsgBox("Do you need to Move X, Y or Z ?", 4, "Do you need to Move")
If Answer = 6 Then
Message("Tool zeroing to Material was canceled so you can move.")
Exit Sub
End If
Answer = MsgBox("Place Sensor on work piece.", 1, "Is the Guage Block Sensor in place")
If Answer = 2 Then
Message("Tool zeroing to Material was canceled.")
Exit Sub
End If
Message("Tool zeroing to Material is requested.")
' Save settings for restoring later
Initial_Spindle_State = GetOEMLED(11)
Initial_Spindle_CW_State = GetOEMLED(164)
Initial_Spindle_CCW_State = GetOEMLED(165)
If Initial_Spindle_State = true Then ' Spindle is running so stop it
If Initial_Spindle_CW_State = Initial_Spindle_CCW_State Then
MsgBox("Your running spindle is misconfigured -> clockwise = " & Initial_Spindle_CW_State & " and counter-clockwise" & Initial_Spindle_CCW_State & " , please fix this.")
Exit Sub
End If
DoSpinStop()
Sleep(500)
End if
' Turn off Tool Offset if it's on
Select Case Initial_Tool_Offset_State
Case True
DoOEMButton(136)
End Select
Select Case Initial_Machine_Coordinates_State
Case True
DoOEMButton(180)
End Select
' Get current scale settings.
XScale = GetOEMDRO(59)
YScale = GetOEMDRO(60)
ZScale = GetOEMDRO(61)
' Set scale to one to probe.
Call SetOEMDRO(59, 1)
Call SetOEMDRO(60, 1)
Call SetOEMDRO(61, 1)
Select Case GetOEMLED(802)
Case true ' Metric System
Probing_Feed_Rate = 150
Probe_Travel = 250
Case false ' Imperial System
Probing_Feed_Rate = 6
Probe_Travel = 10
End Select
DoOemButton(1010)
Code "G4 P1"
' Perform the probe
Code "G90 G31 Z-" & Probe_Travel & " F" & Probing_Feed_Rate
While IsMoving()
Wend
Z_Probe_Pos = GetVar(2002)
Code "G0 Z" &Z_Probe_Pos
While IsMoving()
Wend
Call SetOemDRO(802 , Guage_Block_Height)
Code "G4 P0.500"
Code "G28"
While IsMoving()
Wend
Message("Tool is now zeroed to Material.")
' Restore the original settings
Code "F" &Initial_Feed_Rate
Select Case Initial_Abs_Inc
Case 0
Code "G90"
Case 1
Code "G91"
End Select
Select Case Initial_G_State
Case 0
Code "G0"
Case 1
Code "G1"
End Select
Select Case Initial_Spindle_State
Case True ' Spindle is running so stop it
If Initial_Spindle_CW_State = true Then
DoSpinCW()
ElseIf Initial_Spindle_CCW_State = true Then
DoSpinCCW()
End If
End Select
' Restore the original Tool Offset state
Select Case Initial_Tool_Offset_State
Case True
DoOEMButton(136)
End Select
' Restore original Machine Coordinates State
Select Case Initial_Machine_Coordinates_State
Case True
DoOEMButton(179)
End Select
Call SetOEMDRO(59, XScale)
Call SetOEMDRO(60, YScale)
Call SetOEMDRO(61, ZScale)
Else
' Houston we have a problem
Answer = MsgBox("Guage Height Block is grounded, check connections and try again", 0, "Oh-oh")
End If
Else
Answer = MsgBox("Probe input is not defined in Port and Pins config, configure and try again.", 0, "Oh-oh")
End If
Thanks
bob78218