Brian's Emco Compact 5 Retro

[Bengt]

Hi Gabi,
If the motor is a DC motor keep it and make suitable controller for that.
The PC Turn50 that I had was controlled DC motor, I have sent drawings, pictures and schematics to Dan. The macro can be found here at this forum.

Cheers Bengt

[gabi68]

Hi Bengt,

Can you send my that drawings, pictures and schematics to me? My address is: balsanu_gabi@yahoo.com. In the emco Yahoo group it is a guy Robin (very nice guy) which has converted his lathe and tool changer too for Mach3.
http://www.youtube.com/watch?v=PEaIpP7XOkg&feature=fvw
That I try to do.

Thank you in advance
RGDS
Gabi

[Bengt]

Well that is with a stepper motor he is using, I think that one is easy to do and if there is a macro to run it so go for it. PC Turn50 was factory made with slotted disk and a controllerboard built in to the original controller cabinett.

Here you have to make your own disk so it is easier to use a steppermotor. You get much faster tool change with the stepper motor approach.

[gabi68]

Exactly. i intend to buy from Dan his G540 unit with 3 motors (X,Z and tool changer). What else do I need?. How can I connect that optical sensor (with that slotted disk) with Mach?

RGDS
Gabi

[Bengt]

Tak a look at the macro that guy is using, there you can see what port or ports he is using. Have you contacted him to get some pictures or can you see on the video how many slots there is. One is OK and do some math from that index. Look at the macro.

[gabi68]

Here it is that macro. I think that was made it by Graham but maybe I mistake. That disk has only 1 slot. Where I can find that DRO code for Mach?
Macro:
' Boxford 160TCL Toolchanger Macro.
'
' Works by turning CW to just past the tool position
' and then CCW into a stop.
' Axis setup as rotary e.g. move 360 = 1 full turn.



If IsLoading() Then
' Do Nothing, program loading
Else

' Dim Variables

Dim Num_Tools As Integer
Dim CW_Steps_Per_Tool As Integer
Dim CCW_Steps As Integer
Dim HoldingDRO As Integer
Dim Requested_Tool As Integer
Dim Current_Tool As Integer
Dim CW_Feed As Integer
Dim CCW_Feed As Integer

Dim moves As Integer
Dim total_move As Integer


' set up some vars

Num_Tools = 8
CW_Move_Per_Tool = 360/Num_Tools
CCW_Move = 10
HoldingDRO = 1050
Requested_Tool = GetSelectedTool()
Current_Tool = GetUserDRO(HoldingDRO)
CW_Feed = 1500
CCW_Feed = 1000
Current_Feed = GetOEMDRO(818)


' start tool change

Message ("Requested Tool No=" & Requested_Tool)

If Requested_Tool > Num_Tools Then
Message "Requested Tool No. too high, program stopped."
Code "M30"
End
End If

If Requested_Tool < 1 Then
'Message "Requested Tool No. too low, program stopped."
Code "M30"
End
End If

If Requested_Tool = Current_Tool Then
' do nothing
Else
' lets do some changing
If Requested_Tool > Current_Tool Then moves = Requested_Tool -Current_Tool
If Requested_Tool < Current_Tool Then moves = Num_Tools - Current_Tool +Requested_Tool

total_move = (moves * CW_Move_Per_Tool)+(CCW_Move/2)

Code "G01 x-10 F1300"
Code "G0 z-10"
Code "G91 G94" 'incremental & Feed per minute
Code "G0 A" & total_move '& "F" & CW_Feed
Code "G0 A" & "-" & CCW_Move '& "F" & CCW_Feed
While IsMoving()
Wend

SetCurrentTool Requested_Tool
SetUserDRO HoldingDRO, Requested_Tool
Code "G90" ' back to absolute movement
Code "F" & Current_Feed
End If
End If

' end of tool change   

RGDS
Gabi

[jeep534]

bump