Messages

1791

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.

1792

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.

1793

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.

1794

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.

1795

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           

1796

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

« on: December 24, 2007, 06:39:31 AM »

that will do it,

Graham.

1797

FAQs / Re: Need help changing Mach labels or font size. Please.

« on: December 24, 2007, 05:29:48 AM »

When ever you enter a number in a DRO you have to press ENTER to confirm it.

Have you got auto scaling of screen set in the general config, this can some times mess the fonts up.

Graham.

1798

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

« on: December 24, 2007, 05:15:05 AM »

I have always found it better with mach to assign values to pins and check the count, like this :-

Sub CheckPins
   count=0
   If IsActive(Input1) Then
      count=count+1
   End If
   If IsActive(Input2) Then
      count=count + 2
   End If
End Sub

You then have your 4 numbers, 0,1,2,3

Graham.

1799

General Mach Discussion / Re: Wanted outline/3D image file of a horse

« on: December 23, 2007, 04:31:50 PM »

Thanks,  I can use these, Daughter's got a horse, it needs a name plate for the stable, Millions in equipment, well, thousands, maybe hundreds, OK a few quid, and I am making name tags  .

Thanks

Graham.

1800

General Mach Discussion / Re: Wanted outline/3D image file of a horse

« on: December 23, 2007, 03:54:37 PM »

Please do, or email it to me.

Thanks

Graham.