nope doesnt work... its compile error

There's a double "" before the Make sure Turret.............

Remove one of the quotes and it should work.

 I copied the code from my Autozero macro and just changed the text. It works in my macro.

k one sec

Hrmm, still doesnt work...I can get the OK on the box, but not the cancel...when I press of, it just starts homing.

Can we write a script that just ...

Activate output 1
pause for 0.5seconds
Home A axis
wait for homing to end,
then deactivate output 1
change tool changer dro to 1

Can this be done?

Try this. I just tested it and it works here. This is all you need, it contains the homing in the message box.


Response = MsgBox ("Warning !!!" & (Chr(13)) & "Make sure Turret UP button is pressed before homing turret!" & (Chr(13)) & "Press OK To Continue" & (Chr(13)) & "Or Press Cancel to Exit ",49,"Press Turret Up Button!!")

   If Response = 1 Then ' If OK
      DoButton(25)
      ElseIf Response = 2 Then ' If Cancel
      Exit Sub
   End If

Hey Ger21 would this work for an auto tool home and seat to tool 1?

 Sub Main()

Code "G53 G0 X0 Z0"

ActivateSignal(OUTPUT1)  'Raise Turret
Code "G4 P0.5"
While IsMoving ()       
Wend
DoButton(25)     
While IsMoving ()       
Wend

DeActivateSignal(OUTPUT1)  'Drop Turret

SetCurrentTool(1)
Code "G90"
End Sub