Hello Guest it is April 29, 2024, 08:41:11 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 - cncfreakcncfrea

Pages: « 1 2 3 4 5 6 7 8 9 10 11 12 13 »
51
General Mach Discussion / Re: Knee Mill Conversion
« on: July 01, 2014, 07:47:08 AM »
Found the stepper calculator by StepperCalc_ALENZ_rev1:

What is thread starts and Lead?

52
General Mach Discussion / Knee Mill Conversion
« on: July 01, 2014, 05:21:39 AM »
Hello all,
           I had this Knee Mill conversion before and decided to put the Dc servo back again. I need some help on step/unit calculation:
The ballscrew pitch = 5mm
Gear ratio: 1:4 (the gear on the dc motor side is a T18 and the ballscrew left side is a T72 aluminium timing gear)
The encoder used is a US digital E5kit, encoder CPR = 500





thanks,
 

53
General Mach Discussion / Re: Tool Turret setup
« on: June 25, 2014, 09:11:19 PM »
Thank you Hood, will try it this afternoon.

54
General Mach Discussion / Re: Tool Turret setup
« on: June 25, 2014, 10:43:22 AM »
This reminded me the slot disk behind the lathe chuck to read spindle speed, slot disk it is.

55
General Mach Discussion / Re: Tool Turret setup
« on: June 25, 2014, 09:44:18 AM »
I'll add a home switch inside the turret. If I use an incremental encoder would this work using the I (index pin)?

56
General Mach Discussion / Re: Tool Turret setup
« on: June 25, 2014, 06:08:14 AM »
Thanks for the info.
Home Switch for Turret, where should this be placed? any related links?

thanks,


57
General Mach Discussion / Re: Tool Turret setup
« on: June 24, 2014, 09:35:47 PM »
Hello Hood,
                The turret tool changer use a double acting cylinder ( http://en.wikipedia.org/wiki/Pneumatic_cylinder#mediaviewer/File:Doppelwirkender_Zylinder_Funktionsprinziep.gif)
attached at the back of the tool changer box so to change tool air applies to one of the tube to dis-engage then turn the the plate via a stepper motor to the desire position then applies air to the other tube to engage.

http://s1204.photobucket.com/user/cncfreakcncfreak/media/BVB25L%20cnc%20conversion/Tool%20turret%20ATC/M4V05238_zps5e2bf69a.mp4.html

58
General Mach Discussion / Tool Turret setup
« on: June 24, 2014, 03:23:16 PM »
Hello all,
            Previously I completed a cnc conversion on BVB25L lathe and now I'm adding a 8 station tool turret to this cnc lathe:


I know I need a macro code for this, I did a search on Machsupport forum, found some code but not sure if that's the suitable one, here's the link:
http://www.machsupport.com/forum/index.php/topic,15569.0.html

can I use the code below for my tool turret?

'Macro Tool Changer

Sub Main()

Dim Tool As Integer
Dim OldTool As Integer
Dim NewTool As Integer
Dim MaxToolNum As Integer

NewTool = 10
MaxToolNum = 8 'Maximum positions on Automatic Tool Changer
Tool = GetSelectedTool() 'Get the toolnumber from the command e.g T0101 M6 Tool number 1
OldTool = GetCurrentTool() 'Get current tool number



If Tool > MaxtoolNum Then GoTo 6
If TOOL = OldTool Then GoTo 7
 
ActivateSignal(Output3) 'Turn on output signal to turn off spindle and turn on the atc
sleep(10)
ActivateSignal(Output4) 'Turn atc forward
sleep (3000) 'Needed to start atc otherwise it plays up

While  NewTool <> Tool
   ' CheckPins
If IsActive(Input3) And Not IsActive(Input2) And Not IsActive(Input1) Then
NewTool = 1
GoTo 5       'StopTool
End If
If Not IsActive(Input3) And Not IsActive(Input2) And Not IsActive(Input1) Then
NewTool = 8
GoTo 5       'StopTool
End If
If Not IsActive(Input3) And Not IsActive(Input2) And IsActive(Input1) Then
NewTool = 4
GoTo 5       'StopTool
End If
If IsActive(Input3) And Not IsActive(Input2) And IsActive(Input1)Then
NewTool = 5
GoTo 5       'StopTool
End If
If IsActive(Input3) And IsActive(Input2) And IsActive(Input1) Then
NewTool = 7
GoTo 5       'StopTool
End If
If Not IsActive(Input3) And IsActive(Input2) And IsActive(Input1)Then
NewTool = 6
GoTo 5       'StopTool
End If
If Not IsActive(Input3) And IsActive(Input2) And Not IsActive(Input1) Then
NewTool = 2
GoTo 5       'StopTool
End If
If IsActive(Input3) And IsActive(Input2) And Not IsActive(Input1) Then
NewTool = 3
GoTo 5       'StopTool
End If

Wend

5:
' Stoptool
DeActivateSignal(Output4) 'StopATC
sleep(10)
ActivateSignal(Output5) 'Run ATC in reverse
Sleep (3000) 'Wait 3 seconds to allow the toolpost to lock in
DeActivateSignal(Output5) 'Stop running ATC in reverse
Sleep (1000)
SetCurrentTool(NewTool)
DeActivateSignal(Output3) 'Turn off output to turn spindle back on
sleep(10)
GoTo 7

6:
MsgBox ("Tool out of RANGE")
Goto 7
 
7:

 End Sub


Thanks,

59
problem solved.

60
Got the spindle turning cw and ccw.
I'm not getting any voltage from X4 analog Terminal connector terminals, help..

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