Hello Guest it is March 28, 2024, 11:06:43 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 - keithmech

Pages: 1 2 3 4 5 6 7 8 9 10
2
General Mach Discussion / Re: Mach 3 toolchange for dummies???
« on: February 25, 2011, 09:25:11 PM »
This should be the one.! it works on my hardinge.


Sub Main()

NumSlots=8
OldTurretPos=(GetOEMDRO(803))
OldToolSlot=Abs(GetOEMDRO(803))
NextTool = GetSelectedTool()
NextToolSlot = (NextTool-1)*45


If OldToolSlot = NextToolSlot Then
SetCurrentTool(NextTool)
Exit Sub
End If

If NextTool>8 Or NextTool<1 Then
Message("Next Tool out of range")
Exit Sub
End If

MoveDis = (NextToolSlot-OldTurretPos)

 If Abs(MoveDis) <180 Then
   If MoveDis > 0 Then     
     MoveDis = 360 + MoveDis     
   Else     
     MoveDis = MoveDis - 360   
   End If     
 End If
 
ActivateSignal(OUTPUT3)  'Release Turret holding pin
Code "G4 P0.5"
While IsMoving ()       
Wend
Code "G00 G91 a" & MoveDis       
While IsMoving ()       
Wend

DeActivateSignal(OUTPUT3)  'Engage Turret holding pin     

SetCurrentTool(NextTool)
Code "G90"
End Sub
 

3
General Mach Discussion / Re: Mach 3 toolchange for dummies???
« on: February 24, 2011, 10:25:39 PM »
that should be *8 and not the emoticon

4
General Mach Discussion / Re: Mach 3 toolchange for dummies???
« on: February 24, 2011, 10:22:04 PM »
here is another simple code to do tool change:
Sub Main()

NumSlots=8
OldTurretPos=(GetOEMDRO(803))
OldToolSlot=Abs(GetOEMDRO(803)*8)
NextTool = GetSelectedTool()
NextToolSlot = (NextTool-1)*360/NumSlots


If OldToolSlot = NextToolSlot Then
SetCurrentTool(NextTool)
Exit Sub
End If

If NextTool>8 Or NextTool<1 Then
Message("Next Tool out of range")
Exit Sub
End If

MoveDis = (NextToolSlot-OldTurretPos)

 If Abs(MoveDis) >180 Then
   If MoveDis < 0 Then     
     MoveDis = 360 - MoveDis     
   Else     
     MoveDis = MoveDis + 360   
   End If     
 End If
 
ActivateSignal(OUTPUT3)  'Release Turret holding pin
Code "G4 P0.5"
While IsMoving ()       
Wend
Code "G00 G91 a" & MoveDis       
While IsMoving ()       
Wend

DeActivateSignal(OUTPUT3)  'Engage Turret holding pin     

SetCurrentTool(NextTool)
Code "G90"
End Sub
         
Output 3 is what ever you use to engage/disengage turret lock.
803 is the oem code for the a axis.
set the a axis to angular on the General config page
check auto tool change

5
General Mach Discussion / Re: blue screen of death
« on: December 03, 2010, 11:27:11 AM »
First check your ram.Use a memtest or swap out
the ram chip/s with a known good one.If you assembled your own
computer for this machine did you remember to put some
thermal paste on the cpu chip.

6
General Mach Discussion / Re: Homing
« on: November 08, 2010, 10:51:40 PM »
I have the same issue.On start up the first homing cycle will work.If I
try to home again I can only hit the switch but not back away.i then get a
"cannot use G53 incremental" message.This machine has a ss and 3.42.40.

7
If you are dropping the contactors it maybe an idea to
place a varistor across the coil.This will contain the voltage spike
from the deenergizing coil.

8
General Mach Discussion / Re: micromachinng surface finish
« on: April 19, 2010, 07:55:42 PM »
I would take very little stock in the "paper" as presented.
They claim an 80-150k machine is too expensive for the
"lucrative" micromachining market.If it's lucrative then maybe that machine is cheap.
The home built machine is just another small milling machine copy.No innovation there. ::)
I would find a very solid machine with a very high speed spindle for your micromachining
I'm sure mach 3 would do just fine.

9
General Mach Discussion / Re: does mach 3 work with USB?
« on: March 05, 2010, 09:27:29 PM »
smooth stepper

10
General Mach Discussion / Re: NEED HELP IN CNC MILLING AND SOFTWARE
« on: February 15, 2010, 12:00:28 PM »
I went and looked at their web site,.Is this a new machine?
Are you having problems with the controller/controls on the machine or
the CAM side of things?

Pages: 1 2 3 4 5 6 7 8 9 10