Messages

1781

General Mach Discussion / Re: OK that does it!

« on: December 26, 2007, 04:33:38 PM »

I have sent a new G76 macro to Brian and Art for there approval, if my code is right this should hopefully fix the problem.

Graham.

1782

General Mach Discussion / Re: OK that does it!

« on: December 26, 2007, 11:15:03 AM »

That's a new one to me, I have asked Art for comments.

Graham.

1783

VB and the development of wizards / Re: Macro VB Script for Lathe Toolchanger

« on: December 26, 2007, 07:03:05 AM »

Helmut,

if your machine has homing switches fitted then one way to go to a safe position is by using G53 Xnnn Znnn this is a known point in machine coordinates from the zero return point.

Graham.

1784

G-Code, CAD, and CAM discussions / Re: DFX to G Code

« on: December 26, 2007, 06:20:19 AM »

 

Graham.

1785

General Mach Discussion / Re: OK that does it!

« on: December 26, 2007, 06:19:23 AM »

 

Graham.

1786

G-Code, CAD, and CAM discussions / Re: DFX to G Code

« on: December 26, 2007, 05:43:17 AM »

All you have to do to use the files is change the extension to .TAP,  They will then load into Mach

Graham.

1787

General Mach Discussion / Re: OK that does it!

« on: December 26, 2007, 05:13:13 AM »

If you think about what's happening here, you are asking the tool to feed out of the thread in 1/4 of a turn of the thread.

If you are running at 750 RPM that is 12.5 revs per second, that means the tool has to get out of the thread in 0.02 seconds. Not in my life time  .

That is why it has to run sllloooowwww.

Graham.

1788

General Mach Discussion / Re: OK that does it!

« on: December 25, 2007, 07:09:29 PM »

In the G76 cycle the L word is the one that controls the exit angle, try L90 and a slow speed, 200 RPM, you may be able to go faster but it depends on the speed of your system.

Graham.

1789

VB and the development of wizards / Re: Macro VB Script for Lathe Toolchanger

« on: December 25, 2007, 06:42:25 PM »

Hi,

sorry I was not here to give a more in depth detail of how to use the macro,  it has been a busy day.

It looks like you figured it out though.  If you need any more info just ask.

Nice explanation Weedy.

Graham.

1790

VB and the development of wizards / Re: Macro VB Script for Lathe Toolchanger

« on: December 24, 2007, 08:31:22 AM »

You may be able to modify this one to get you what you want.

Graham.

Sub Main()
If IsLoading() then
  ' do nowt
Else
  OldTurretPos=(GetOEMDRO(824))   'current tool position
  NextTool=GetSelectedTool()      'tool to be indexed
 
  If NextTool<1 Or NextTool>8 Then 'valid tool check
    Message("Next Tool out of range")
    Exit Sub
  End If

  ActivateSignal(OUTPUT4)   'rotate Turret

  '=== Index Tool ===
  Select Case NextTool
   Case 1
      count=1
   Case 2
      count=3
   Case 3
      count=2
   Case 4
      count=6
   Case 5
      count=4
   Case 6
      count=12
   Case 7
      count=8
   Case 8
      count=9
  End Select

  thistool=OldTurretPos

  While thistool<>count
    sensors=0
    While sensors=0
      if IsActive(OEMTRIG1) then sensors=sensors+1
      if IsActive(OEMTRIG2) then sensors=sensors+2
      if IsActive(OEMTRIG3) then sensors=sensors+4
      if IsActive(OEMTRIG4) then sensors=sensors+8
    Wend
    thistool=sensors
  Wend

  Code"G04 P50"
  While Ismoving()
  Wend
 
  DeActivateSignal(OUTPUT4) 'stop turret rotation
  SetCurrentTool(thistool)
End If
End Sub