Messages

111

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.

112

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

« on: August 07, 2013, 03:23:09 PM »

Awesome, I have one last question

ActivateSignal(output1)              'unlock the turrent
While not Isactive(output2)         'wait for the switch to signal end of stroke  *************************For this line, should it be input 2 not output 2 for sensing the turret up position?
Sleep(1000)                                'Give it time for the motion to fully stop

Thanks

Mike

113

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

« on: August 07, 2013, 11:20:01 AM »

Awesome, so....

You mentioned that I need to add the tool change macro to the end of m6start, yet it already has the end command do i just delete the END command and post it?

' M1000

RefCombination(1)
While Ismoving()
Wend
RefCombination(4)
While Ismoving()
Wend
Code"G53 X0.2"
While Ismoving()
Wend
Code"G53 Z0.2"
While Ismoving()
Wend

ActivateSignal(output1)
Sleep(1000)
RefCombination(8 )
While Ismoving()
Wend
DeacctivateSignal(output1)
Sleep(2000)
END                                     *********************************this

Also you had mentioned the turret homing, when I click the ref all home, I can see that the m1000 (m1000 is homing right?) is the ref all home on startup right? And I see RefCombination(1) and RefCombination(4) and RefCombination(8 ) What are these? I am setting the A axis as the turret, so wouldnt it be something like this in there:

ActivateSignal(output1)
Sleep(1000)
RefCombination(8 )                         ********************what does this do?*************************
While Ismoving()
Wend
DeacctivateSignal(output1)
Sleep(2000)
END

Code"G53 A0"                                        *********************wouldnt this need to be in there?******************
While Ismoving()
Wend


Also what would be the code for sensing the turret is up and down before continuing?
Something like 

DeacctivateSignal(output1)
Then wait for 5v on Input 1 if no input within 5 secs, display message *turret not in position* with 2 option buttons is turret down? YES/NO if clicked yes, then continue the program, if no then estop the machine

I know your helping me a ton, I really really really appreciate it!

114

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

« on: August 05, 2013, 07:34:09 AM »

So.....would the final code be this?

' M1000
ActivateSignal(output1)
Sleep(1000)
RefCombination(
While Ismoving()
Wend
DeacctivateSignal(output1)
Sleep(2000)
END

ActivateSignal(output1)                    'unlock the turrent
Sleep(1000)                                    'Give it time to move to end of stroke

If GetCurrentTool() = 1 then             ' Check for the Tool #
   Code"G0 A0.000"                     ' Move to position
   While Ismoving()                     'wait for the movement to stop
   Wend
   End If

If GetCurrentTool() = 2 then
   Code"G0 A45"
   While Ismoving()
   Wend
   End If

If GetCurrentTool() = 3 then
   Code"G0 A90"
   While Ismoving()
   Wend
   End If

If GetCurrentTool() = 4 then
   Code"G0 A135"
   While Ismoving()
   Wend
   End If

If GetCurrentTool() = 5 then
   Code"G0 A180"
   While Ismoving()
   Wend
   End If

If GetCurrentTool() = 6 then
   Code"G0 A225"
   While Ismoving()
   Wend
   End If

If GetCurrentTool() = 7 then
   Code"G0 A270"
   While Ismoving()
   Wend
   End If

If GetCurrentTool() = 8 then
   Code"G0 A315"
   While Ismoving()
   Wend
   End If

DeacctivateSignal(output1)                     'Release air cylinder
Sleep(2000)                                          'Give it time to move to end of stroke

End

Ill check and see if it works, also you mentioned safety switches? Would this be a switch that would sense the turret up, and then if it doesnt get the signal it will estop?

THANKS!

115

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

« on: August 04, 2013, 10:19:40 PM »

Hi!

I can easily put one on0. And ref the home switch the the A axis. What next?

116

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