Hello Guest it is April 24, 2024, 08:49:44 PM

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 - Bengt

Pages: « 1 2 3 4 5 6 »
41
Show"N"Tell ( Your Machines) / Re: Brian's Emco Compact 5 Retro
« on: July 19, 2008, 02:37:13 PM »
Made some tweaking of the code, this is to be sure tool is locked in place before code is run

New lines added !

42
Show"N"Tell ( Your Machines) / Re: Brian's Emco Compact 5 Retro
« on: May 23, 2008, 01:23:19 PM »
Final M6Start macro for my Emco PC Turn 50 is enclosed

43
VB and the development of wizards / Re: Emco tool changer macro
« on: May 22, 2008, 08:47:41 AM »
Now there is a solution to this 'problem'

http://www.machsupport.com/forum/index.php?topic=970.new

Please leave your comments as how this works for you

/edit
new download is available with a complete M6Start macro

44
Show"N"Tell ( Your Machines) / Re: Brian's Emco Compact 5 Retro
« on: May 22, 2008, 08:04:44 AM »
Dear friends,
I have been pushing this idea for a long time now. I have asked for help from our local VB guru Henrik Olsson and now yesterday evening he came up with a new solution, we now have a macro that works to my specs that is one output and one input to control the original Emco ATC with it's original relayboard.

I have been running tests last evening and this morning and so far it has worked well after some adjustments

Enclosed please find the testfile I have used, you need to do some editing to suite your setting in MACH3 and to make it fully functional as M6Start file

Looking forward to here your comments out there and how this works on your ATC's


45
Show"N"Tell ( Your Machines) / Re: Brian's Emco Compact 5 Retro
« on: May 21, 2008, 12:02:03 PM »
I think you need to have an input to rezero the toolchanger when you start the machine...

Why is that so? If you leave your toolchanger always with tool#1 you only need one input. You can also use a switch/relay to select either Index pulse or pulse/tool to do your Zeroing.

I have done some tests with G04P3000 and got the changer working perodically, the problem seems to be time. One full revolution is just under 14seconds with the original motor and the index pulse is 0.59sec and each tool pulse are 1.41sec

There must be a way to do this, time is not critical for the toolchange for me. Work on this is ongoing.......  ;)

46
Show"N"Tell ( Your Machines) / Re: Brian's Emco Compact 5 Retro
« on: May 20, 2008, 04:53:41 AM »
I am thinking about doing this in a plugin... I could make a dialog that would do about any toolchanger :) I hope to started that after I get the project that I am working on now done :(

This is going to be a good year!
Brian

Hi Brian,

Did you ever get your hands to do this 'plugin' ?
I am still looking for a simple way to handle my ATC with one Input only, there must be a way but I am not the VB guru to do this.
Macro or Brain, what do you say Brian?

47
VB and the development of wizards / Re: Emco tool changer macro
« on: May 19, 2008, 10:36:56 AM »
I have also a request for a macro for the Emco Toolchanger.

This is what I have, 1(one) output and 1 (one) input free for this purpose (only one printerport possible in the box)

My code so far M6start.m1s
'ToolChange Macro For Emco PC Tun 50 tool changer 2008-05-19 Bengt
Sub Main()
OldTool = GetOEMDRO (1200) '?Tool #1 as turret is always left in this position ( T0101 as a last line in any program )??
tool = GetSelectedTool()
NewTool = tool
MaxToolNum = 6      'Max number off tools for the changer
If NewTool = OldTool Then
Exit Sub
End If
While NewTool > MaxToolNum
NewTool = Question ("Enter New Tool Number up to " & MaxToolNum)
Wend
Call SetUserDRO (1200,NewTool)
SetCurrentTool( NewTool )
Code "G28"
ActivateSignal(Output2) 'Turn On Turret motor
SystemWaitFor (OEMtrig7) 'Wait for signal

HOW is counting done?, I have one pulse for each tool

Call CheckTool

HOW is the new requested tool set?


While IsMoving()
Wend
 

DeActivateSignal(Output2) 'Turn Off tool turret
While IsMoving()
Wend
End Sub

Main     

Sub CheckTool
   count=(NewTool)
   If IsActive(OEMtrig7)  Then

?>>>> Fill in the blanks  ;)

        End If
End Sub

48
Competitions / Re: ******Guess and win a G100 Grex******
« on: May 22, 2007, 02:51:51 PM »
Hi,
obviously it is 2.478.474 chips

Cheers
Bengt

49
General Mach Discussion / Re: PCB milling
« on: September 08, 2006, 04:06:47 AM »
Hi,
I have some carbide tooling for sale as well as PCB/FR4 material in various types
http://goto.glocalnet.net/Bengt.CNC.pages/

Cheers
Bengt

50
General Mach Discussion / Re: Z axis on/off
« on: July 14, 2006, 05:40:59 PM »

There is a Wiki on the support page telling how to do a Macro pump under the Modio.. Hope that helps
Brian

Can you point me to this page as I cannot find it, thanks

Cheers
Bengt

Pages: « 1 2 3 4 5 6 »