Solved!
What was happening is that I was just typing in M6 and the first time you do this my macro had no idea what the "GetSelectedTool" Value was since no tool had ever been selected since last boot up. I assume this defaults the value to 0 which would initiate the "Invalid tool chosen..." question. Upon the next time only M6 was entered it would ignore it because it would have the last good tool number used set as the "GetSelectedTool" Value so it would not initiate the question and just beep with seemingly nothing happening. It has been so long I forgot you should specify the tool number as a T# and I was trying either a M6 which would do something only the first time, or I was typing in M6 5 and forgetting that I need a T in front of the tool number (dumb I know).
Anyway, I solved all this so you always know what is going on by adding a message "Tool already loaded or tool not specified with T# (ex:M6 T4)" . This pops up if you select the same tool number that is already loaded or if you do not use a "T" command to designate a different tool. So now even if I do not use this for a very long time I will be reminded of what I am doing wrong.
Here is the updated Macro:
'Tool change macro for 7 tool turret
Sub Main()
'Sets variable OldTool to what is currently loaded
OldTool=GetCurrentTool()
'Sets Variable MaxToolNum to the max number of tools possible
MaxToolNum=7
'Sets variable Newtool to the one being selected with M6 T#
NewTool=GetSelectedTool()
'Get positions before moving to do tool change
x = GetToolChangeStart( 0 )
y = GetToolChangeStart( 1 )
z = GetToolChangeStart( 2 )
a = GetToolChangeStart( 3 )
b = GetToolChangeStart( 4 )
c = GetToolChangeStart( 5 )
'If the current tool loaded is 0 or greater than 7 then tool has been lost
'so need to ask what tool is currently loaded
While OldTool=0 Or OldTool>7
OldTool=Question ("Current tool unknown, enter tool in spindle 1 to " & MaxToolNum)
Wend
'Sets CurrentTool to Oldtool in case it was lost and entered above
SetCurrentTool(OldTool)
'When the tool asked for is invalid then this makes you select a valid tool
While NewTool > MaxToolNum Or NewTool <1
NewTool = Question ("Invalid tool chosen, enter tool number 1 to " & MaxToolNum)
Wend
'If the tool asked for is the same one that is already loaded then exit macro
If NewTool=OldTool Then
Message "Tool already loaded or tool not specified with T# (ex:M6 T4)"
Exit Sub
End If
'Turn off soft limits if they are on
If GetOEMLED(23) Then
DoOEMButton(119)
End If
'Moves To Z home from where ever it is
code "G53G0Z0"
While IsMoving()
Wend
'Sets ChangeNums to 0 for safety in case it is not at 0
ChangeNums=0
'Makes the magic happen and moves the proper number of times if new tool is higher than old
If NewTool>OldTool Then
For ChangeNums=1 To NewTool-OldTool
'Moves Z axis to the top of tool change
code "G53 G1 F70 Z5.800"
While IsMoving()
Wend
'Moves back to bottom of tool change area
code "G53 G1 F70 Z3.8"
While IsMoving()
Wend
Next
'Makes the magic happen and moves the proper number of times if new tool is lower than old
Else
For ChangeNums=(OldTool-NewTool) To 6
'Moves Z axis to the top of tool change
code "G53 G1 F70 Z5.800"
While IsMoving()
Wend
'Moves back to bottom of tool change area
code "G53 G1 F70 Z3.8"
While IsMoving()
Wend
Next
End If
'Move Back to Z Home
code "G53 G1 F70 Z0"
While IsMoving()
Wend
'Should be a succesful tool change at this point so this sets the NewTool as the current tool
SetCurrentTool(NewTool)
'Turn back on soft limits
DoOEMButton(119)
End Sub
Guest
