Hello Guest it is October 01, 2020, 08:33:31 AM

Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - mike^3

Pages: « 1 2 3 4 5 6 7 8 9 10 11 12 »
101
Mach Screens / Help with custom home button macro! :)
« on: March 22, 2014, 03:33:07 PM »
 ???

Hello Everyone!

I am an need of a button to home my tool changer to a limit switch.

The steps are as follows:

1. Activate output 1 (lift turret)
2. Run A axis until it sees the home switch,
3. Do the double touch off for setting home.
4. Change the A position DRO to 0
5. Change the current tool DRO to tool 1 or "1"
6. Deactivate output 1 (drop turret)

This is a custom home macro for when and if the tool turret ever misses steps, or misaligns...Having this will allow the operator to easily reset the turret to tool one incase a crash during tool change, or a mechanical hiccup.

I REALLY APPRECIATE ANY HELP! I will be posting the completed screen sets to the forum.

P.S. this is for an 8 position servo/stepper driven cnc lathe with an air valve that lifts, and servo/stepper that indexes to a degree (tool position) then locks and continues the program...

Thanks

Mike ;)

102
Mach Screens / Re: G-Code tool change buttons?
« on: March 22, 2014, 01:07:45 PM »
Thanks Ger21, your info was right on!

103
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!

104
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....

105
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 ;)

106
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

107
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

108
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
             



109
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 :)

110
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.

Pages: « 1 2 3 4 5 6 7 8 9 10 11 12 »