Hello Guest it is December 02, 2021, 02:15:55 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.


Topics - mike^3

Pages: « 1 2 3
21
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
             



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

23
  ;D

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

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


24
Hello!  ;D

I have a 8 position tool changer turret on my lathe.

I need a tool change macro that will do perform these steps.

Steps:

1. Move carriage to Z0.2 and X0.2 machine zero
2. activate and output (solenoid to raise turret off bed) and keep it activated until the turret is at the right position.
3. rotate clock wise (only 1 direction) to the called for tool, which will be 0-360inches (really degrees) of travel. The tools will be at 45 degree segments, i.e. tool 1 is at 0inch tool 2 is at 90inches.
4. de activate solenoid that raised turret to lock tool in place.
5. continue program.

I assume someone has this macro already done, looked through quite a few posts, and found a few that were close, but did not have a few steps, also, I have 0 experience coding a toolchanger! :)

Any help would be appreciated!!!

Thank u,

Mike

Pages: « 1 2 3