Messages

101

Mach Screens / Re: G-Code tool change buttons?

« on: March 22, 2014, 01:07:45 PM »

Thanks Ger21, your info was right on!

102

Mach Screens / Re: G-Code tool change buttons?

« on: March 22, 2014, 01:07:24 PM »

Thanks, i fixed it...I was opening the wrong screen set! THANKS A BUNCH!

103

Mach Screens / Re: G-Code tool change buttons?

« on: March 22, 2014, 12:46:55 PM »

i tried again, and I put in t0101 in the gcode function box when I double click the tool 1 button.

I saved it, and then retried in mach 3, and nothing happens when I press tool 1....

104

Mach Screens / Re: G-Code tool change buttons?

« on: March 22, 2014, 12:36:20 PM »

Does it matter if its screen4 or screen designer? I think I tried to put in t0101 and it didnt do anything...let me try again..one sec

105

Mach Screens / Re: G-Code tool change buttons?

« on: March 22, 2014, 12:34:46 PM »

Oops, I forgot to mention, I am using screen 4

106

Mach Screens / G-Code tool change buttons?

« on: March 22, 2014, 12:00:19 PM »

 

Hello everyone, can anyone provide me an example of how I can set up buttons on one of my screens that will execute the tool change commands t0101, t0202, t0303, etc etc. for a lathe?

I have the buttons on the screen but don't know how to link them to the mdi line for gcode commands.

I would like to click TOOL 1 button on the screen, and it would execute the gcode/mdi command t0101

TOOL 2 button = t0202 command etc

Any Help?

I really appreciate it

Thank you,

Mike

107

General Mach Discussion / Can anyone help me mach this work?

« on: November 17, 2013, 11:27:02 AM »

Hello, I am working with a friend on trying to make the ATC lathe tool changer work, but it keeps giving me a compile error. Any help?
This is for my CHNC II SP Hardinge. Any Help would be awesome!!!!



'Macro M6Start ATC turret
Sub MovePos(ByVal ToolNumber As Integer)


OldTool = GetCurrentTool()
NewTool = GetSelectedTool()
TCtime = 0

ToolNumber = NewTool

If NewTool = OldTool Then
Message" Same Tool,  NO ACTION"
End
**MOBILE CODE**

If  NewTool > 8 Or NewTool < 1 Then
MsgBox" Tool # not a valid Number 1-10 ONLY, ENDING Program RUN "
DoButton(3)
End
**MOBILE CODE**

Xx = "-0.2" 'Tool Change position X
Zz = "-0.2" 'Tool Change Position Z


'******************************

Code"G00"
Code "G53 X" & Xx
Code "G53 Z" & Zz
While IsMoving()
Wend



ActivateSignal(OutPut1)  'Deactivate Lathe Stop Dog
While Ismoving()
Wend
Message"Deactivate Lathe Stop Dog"
Sleep(1000)              ' Wait 1 sec for activation

ActivateSignal(OutPut2)   'Pop up lathe turret
While Ismoving()
Wend
Message"Disengage Turret"
Sleep(1000)               'Wait 1 sec for activation

   




Select Case ToolNumber      'Position to each tool number by input signal

      Case  = 1
        Do While Not Isactive(OemTrigger1)
         ActivateSignal(Output3)   'Start Air Drive
         Message" Start Air Drive"
                TCtime = (TCtime +1)
                        Sleep(1000)
            If TCtime > 10 Then
            Message" Tool Changer Timed Out, sequence ending"
            End
          **MOBILE CODE**
        Loop
         
        DeactivateSignal(output1)  'Stop Turret
         While Ismoving()
         Wend
         Message"Stop Turret"
         Sleep(1000)
        DeactivateSignal(OutPut3) 'Stop Air Drive
         While Ismovng
         Wend
         Message"Stop Air Drive"
         Sleep(1000)
        DeactivateSignal(Output2)    'Lower Turret to lock the tool
                While Ismoving()
         Wend
         Message "Engage Turret"
         Sleep(1000)              'Wait 1 sec for activation

      Case  = 2
        Do While Not Isactive(OemTrigger2)
         ActivateSignal(Output3)   'Start Air Drive
         Message" Start Air Drive"
         TCtime = (TCtime+1)
         Sleep(1000)
            If TCtime > 10 Then
            Message" Tool Changer Timed Out, sequence ending"
            End
            **MOBILE CODE**
         
        Loop
       
        DeactivateSignal(output1)  'Stop Turret
         While Ismoving()
         Wend
         Message"Stop Turret"
         Sleep(1000)
        DeactivateSignal(OutPut3) 'Stop Air Drive
         While Ismovng
         Wend
         Message"Stop Air Drive"
         Sleep(1000)
        DeactivateSignal(Output2)    'Lower Turret to lock the tool
                While Ismoving()
         Wend
         Message "Engage Turret"
         Sleep(1000)              'Wait 1 sec for activation



      Case  = 3
        Do While Not Isactive(OemTrigger3)
         ActivateSignal(Output3)   'Start Air Drive
         Message" Start Air Drive"
         TCtime = (TCtime+1)
         Sleep(1000)
            If TCtime > 10 Then
            Message" Tool Changer Timed Out, sequence ending"
            End
            **MOBILE CODE**
       
        Loop
       
        DeactivateSignal(output1)  'Stop Turret
         While Ismoving()
         Wend
         Message"Stop Turret"
         Sleep(1000)
        DeactivateSignal(OutPut3) 'Stop Air Drive
         While Ismovng
         Wend
         Message"Stop Air Drive"
         Sleep(1000)
        DeactivateSignal(Output2)    'Lower Turret to lock the tool
                While Ismoving()
         Wend
         Message "Engage Turret"
         Sleep(1000)              'Wait 1 sec for activation



      Case  = 4
        Do While Not Isactive(OemTrigger4)
         ActivateSignal(Output3)   'Start Air Drive
         Message" Start Air Drive"
         TCtime = (TCtime+1)
         Sleep(1000)
            If TCtime > 10 Then
            Message" Tool Changer Timed Out, sequence ending"
            End
            **MOBILE CODE**
       
        Loop
       
        DeactivateSignal(output1)  'Stop Turret
         While Ismoving()
         Wend
         Message"Stop Turret"
         Sleep(1000)
        DeactivateSignal(OutPut3) 'Stop Air Drive
         While Ismovng
         Wend
         Message"Stop Air Drive"
         Sleep(1000)
        DeactivateSignal(Output2)    'Lower Turret to lock the tool
                While Ismoving()
         Wend
         Message "Engage Turret"
         Sleep(1000)              'Wait 1 sec for activation


      Case  = 5
        Do While Not Isactive(OemTrigger5)
         ActivateSignal(Output3)   'Start Air Drive
         Message" Start Air Drive"
         TCtime = (TCtime+1)
         Sleep(1000)
            If TCtime > 10 Then
            Message" Tool Changer Timed Out, sequence ending"
            End
            **MOBILE CODE**
         
        Loop
       
        DeactivateSignal(output1)  'Stop Turret
         While Ismoving()
         Wend
         Message"Stop Turret"
         Sleep(1000)
        DeactivateSignal(OutPut3) 'Stop Air Drive
         While Ismovng
         Wend
         Message"Stop Air Drive"
         Sleep(1000)
        DeactivateSignal(Output2)    'Lower Turret to lock the tool
                While Ismoving()
         Wend
         Message "Engage Turret"
         Sleep(1000)              'Wait 1 sec for activation


      Case  = 6
        Do While Not Isactive(OemTrigger6)
         ActivateSignal(Output3)   'Start Air Drive
         Message" Start Air Drive"
         TCtime = (TCtime+1)
         Sleep(1000)
            If TCtime > 10 Then
            Message" Tool Changer Timed Out, sequence ending"
            End
            **MOBILE CODE**
        Loop
       
        DeactivateSignal(output1)  'Stop Turret
         While Ismoving()
         Wend
         Message"Stop Turret"
         Sleep(1000)
        DeactivateSignal(OutPut3) 'Stop Air Drive
         While Ismovng
         Wend
         Message"Stop Air Drive"
         Sleep(1000)
        DeactivateSignal(Output2)    'Lower Turret to lock the tool
                While Ismoving()
         Wend
         Message "Engage Turret"
                     'Wait 1 sec for activation


      Case  = 7
       Do While Not Isactive(OemTrigger7)
         ActivateSignal(Output3)   'Start Air Drive
         Message" Start Air Drive"
         TCtime = (TCtime+1)
         Sleep(1000)
            If TCtime > 10 Then
            Message" Tool Changer Timed Out, sequence ending"
            End
            **MOBILE CODE**
        Loop
       
        DeactivateSignal(output1)  'Stop Turret
         While Ismoving()
         Wend
         Message"Stop Turret"
         Sleep(1000)
        DeactivateSignal(OutPut3) 'Stop Air Drive
         While Ismovng
         Wend
         Message"Stop Air Drive"
         Sleep(1000)
        DeactivateSignal(Output2)    'Lower Turret to lock the tool
                While Ismoving()
         Wend
         Message "Engage Turret"
                       'Wait 1 sec for activation



      Case  = 8
        Do While Not Isactive(OemTrigger8)
         ActivateSignal(Output3)   'Start Air Drive
         Message" Start Air Drive"
         TCtime = (TCtime+1)
         Sleep(1000)
            If TCtime > 10 Then
            Message" Tool Changer Timed Out, sequence ending"
            End
            **MOBILE CODE**
         
        Loop
       
        DeactivateSignal(output1)  'Stop Turret
         While Ismoving()
         Wend
         Message"Stop Turret"
         Sleep(1000)
        DeactivateSignal(OutPut3) 'Stop Air Drive
         While Ismovng
         Wend
         Message"Stop Air Drive"
         Sleep(1000)
        DeactivateSignal(Output2)    'Lower Turret to lock the tool
                While Ismoving()
         Wend
         Message "Engage Turret"
         Sleep(1000)              'Wait 1 sec for activation


       

End Select

SetOemDro(824,NewTool)


End Sub



End
             

108

VB and the development of wizards / Re: Tool change macro needed for lathe turret!

« on: November 10, 2013, 07:12:37 PM »

Hey BR I needed to modify the tool change and use a rotary air cylinder, can we make this work?



This is what needs to happen, I have searched the forums and came up with nothing even close.

Here it is, operations in the tool change:

Call up selected tool (1 through 8 )
do nothing if at the current tool selected
if not at the tool then these steps must happen.

(lets say for example the tool is at tool position 2, and I call up tool 1)

move x0.2 z-0.2 (Machine coordinates)
Activate solenoid 1 (de activates lathe stop dog)
Activate solenoid 2 (pop up lathe turret)
Activate solenoid 3 (activates air driven worm gear and turns turret in only 1 direction)
Wait for signal from input 1 (no other input) (there are mechanical switches that all give off 5v once the rotary disc is in position, but input 1 means tool 1, input 2 means tool 2, input 3 means tool 3, etc. etc.)

Once it receives signal from input 1 (or  input 1-8 depending on which tool is capped for):
          Deactivate solenoid 1 (to stop the turret from spinning)
          Deactivate solenoid 3 (stoped airdriven worm gear)
          Deactivate solenoid 2 (drops turret into locked seat)

Update DRO and tool offsets

Return to program.

Any ideas?

Thanks

109

General Mach Discussion / HARDINGE ATC TOOL MACRO HELP?? :)

« on: November 10, 2013, 12:06:08 PM »

 

So I have a good tool change macro question.

This is what needs to happen, I have searched the forums and came up with nothing even close.

Here it is, operations in the tool change:

Call up selected tool (1 through 8 )
do nothing if at the current tool selected
if not at the tool then these steps must happen.

(lets say for example the tool is at tool position 2, and I call up tool 1)

move x0.2 z-0.2 (Machine coordinates)
Activate solenoid 1 (de activates lathe stop dog)
Activate solenoid 2 (pop up lathe turret)
Activate solenoid 3 (activates air driven worm gear and turns turret in only 1 direction)
Wait for signal from input 1 (no other input) (there are mechanical switches that all give off 5v once the rotary disc is in position, but input 1 means tool 1, input 2 means tool 2, input 3 means tool 3, etc. etc.)

Once it receives signal from input 1 (or  input 1-8 depending on which tool is capped for):
          Deactivate solenoid 1 (to stop the turret from spinning)
          Deactivate solenoid 3 (stoped airdriven worm gear)
          Deactivate solenoid 2 (drops turret into locked seat)

Update DRO and tool offsets

Return to program.

I know this is a lot to ask, but I don't have much tool macro experience and I would more than appreciated any help!

Thank you so much!

Mike

This is for a Hardinge CHNC II super precision lathe, I have 2 and I converting both. I will send pics when as I convert them.

110

VB and the development of wizards / Re: Weird Lathe ATC tool change macro needed

« on: November 07, 2013, 04:43:41 PM »

I mean tool 1 though 8, smiley face got in the way