Hi Guys, Sorry its been ages since I've last updated. I've been stuck twiddling my thumbs a little as I am constantly waiting for bits to turn up.
I wired up most the machine. I've managed to get both axis's working, the spindle turning and the tool post turning.
The Control card from CNC4PC is very limited in terms of inputs. I have had to purchase a further Parallel post card and breakoutboard to connect the home and limit switches to.
I'm struggling to get the spindle to turn at the desired speed. It seems to just stay to one constant speed even when using the mach3 tuning tool. I am also struggling to work out which core on the encoder goes to what, i.e are they pairs do they need 5V and Gnd etc
With regards to the tool post, that bit seems to be rather simple, all you need to do is tell mach3 to watch the grey code for the correct tool then stop and reverse then switch back over to the spindle. No voltage need to be applied once is fully locked in, though it wouldn't be possible to apply any constantly anyway as you can only have either the tool post on or the spindle on at any one time.
Oh and does anyone know how many steps per inch or whatever it is?
One final thing, any CAM recommendations?
Well its been a while since I updated, I managed to blow up the breakout board so I had to fit some new chips anyway...
I have made some adjustments to the program to suit the Mirac the way I have it set up. So in Mach3 when the code
T0101 M6 Appears this is saying T offset, toolnumber then M6 is tool change macro
Heres the macro:
Dim Tool As Integer
Dim OldTool As Integer
Dim NewTool As Integer
Dim MaxToolNum As Integer
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
While NewTool <> Tool
'//// Subroutines /////////
ActivateSignal(Output3) 'Turn on output signal to turn off spindle and turn on the atc
ActivateSignal(Output4) 'Turn atc forward
If IsActive(Input3) And Not IsActive(Input2) And Not IsActive(Input1) Then
NewTool = 1
If Not IsActive(Input3) And Not IsActive(Input2) And Not IsActive(Input1) Then
NewTool = 2
If Not IsActive(Input3) And Not IsActive(Input2) And IsActive(Input1) Then
NewTool = 3
If IsActive(Input3) And Not IsActive(Input2) And IsActive(Input1)Then
NewTool = 4
If IsActive(Input3) And IsActive(Input2) And IsActive(Input1) Then
NewTool = 5
If Not IsActive(Input3) And IsActive(Input2) And IsActive(Input1)Then
NewTool = 6
If Not IsActive(Input3) And IsActive(Input2) And Not IsActive(Input1) Then
NewTool = 7
If IsActive(Input3) And IsActive(Input2) And Not IsActive(Input1) Then
NewTool = 8
DeActivateSignal(Output4) ' Stop running the ATC forward, if you don't do this the inverter will stop and the whole unit
' Will need to be turned off and on again
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
DeActivateSignal(Output3) 'Turn off output to turn spindle back on
I've yet to test it but it works fine in VBscript. Should have a chance to test it tommorow.
The outputs corrospond to the following:
Output 3 is the ATC power contactor and Spindle Power Contactor, the Spindle Power contactor is wired to the normally closed side of the relay and and ATC power contactor is wired to the normally open side of the relay
Output 4 is the ATC Forward Relay
Output 5 is the ATC Reverse Relay
By Nick Butler in forum Items For SaleReplies: 19Last Post: 21-08-2013, 10:20 PM
By totts in forum Motor Drivers & ControllersReplies: 2Last Post: 14-09-2011, 08:09 PM
By CHudson in forum Items For SaleReplies: 3Last Post: 18-02-2011, 11:11 PM
By CHudson in forum Projects, Jobs & RequestsReplies: 0Last Post: 14-10-2010, 07:20 PM