'Tool Change Macro For Manual tool change 
OldTool = GetOEMDRO (1224)  'Tool In spindle DRO You must add this to your settings screen
X = GetToolChangeStart( 0 ) ' Get x tool change start position
Y = GetToolChangeStart( 1 ) ' Get y tool change start position
Z = GetToolChangeStart( 2 ) ' Get z tool change start position


Xtc = GetUserDRO(1200 )
Ytc = GetUserDRO(1201 )			' Tool Change Location
Ztc = GetUserDRO(1202 )
Code "G53 G0 Z" & Ztc
Code "G53 G0 X" & Xtc & "Y" & Ytc
While IsMoving()
Wend
Sleep(200)  


tool = GetSelectedTool() ' tool to be changed to
NewTool = tool
Call SetUserDRO (1224,NewTool)
SetCurrentTool( NewTool )  ' input new tool into tool in spindle dro
Code "G43 H" & tool        ' Call tool offsets for new tool
' Verify Tool Change Complete
Dim Msg, Style, Title, Help, Ctxt, Response,MyString
Msg = "Please Insert Tool  Number " & " ( "  & GetSelectedTool() & " ) " & "    " & GetToolDesc(tool) ' Define message 
Style = vbYesNo + vbCritical + vbDefaultButton2   ' Define buttons 
Style = 0 + 48 + 0   ' Define buttons. 
Title = "Tool Change Requested"   ' Define title 
Help = "DEMO.HLP"   ' Define Help file 
Ctxt = 1000   ' Define topic       
 'context.        
 ' Display message. 
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
 If Response = vbOk Then   ' User chose Ok    
MyString = "Ok"   ' Perform some action 
End If
Message "Tool  #   " & GetCurrentTool() & " :  " & GetToolDesc(GetCurrentTool()) & "  Installed  " & "   Returning to Tool Change Start Position" 
Code "G00 X" & X & "Y" & Y & "Z" & Z  'Move back to where the tool change was prompted
While IsMoving
  Sleep(10)
Wend
End