Show Posts

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

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

« on: November 07, 2013, 04:42:55 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

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

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

« on: August 04, 2013, 03:18:48 PM »

Hello!

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

Topics - mike^3

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

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

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

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