Messages

3131

VB and the development of wizards / Re: Need help with manual toolchange macro

« on: June 05, 2008, 04:25:56 PM »

For information look on the wiki, videos, docs., ect. in the support tab at the top of this page. Can also ask questions here and do searches. The standard macros for tool cahnge are M6. Mach has two, M6 start and M6end. In general config., top left there are check boxes to choose ignore tool change, stop and wait, and auto. Ignor will do nothing if a M6 is called, stop and wait will run thru the M6 start macro and wait on a press of cycle start to run the M6 end macro. The auto will just run thru the M6 start I think and ignor the M6. You can make your on macro in a text file and save them as M6start.m1s and M6end.m1s or edit the ones allready there. They will be in you c/mach3/macros folder. In there all of the profiles are listed and the macros for each are in those folders. Also, with Mach open their is a tap at the top, operator. Two vb editors in their button script and vb editor. You can open the editor and scroll thru the code and see what mach does at each line. 

Here is a M6start macro that stops the spindle, goes to the tool change pos. set by the tool change pos. DROs on the settings page, ask if you want to do an auto touch off, runs the auto tool touch off if you choose and then you have the M6 end macro that returns it to state prior to tool change. Doesn't return it to the pos. though. I had that in there but going back to where it requested the tool change was a waste of time mostly for me. Usually after a tool change it starts back in a different pos. any ways. I will try to find that one for if you really want it though.


Be sure to test these!!!!! Been a long time since I messed with these particular ones.

'M6 start macro with auto tool touch off

'M6Start.m1s
tool = GetselectedTool()
oldTool = GetOEMDRO(1212)
If (oldTool <>  tool) Then

Old_tool = GetCurrentTool()
New_Tool = GetSelectedTool()

 DoSpinStop()
 If getoemled(13) Then
   'coolant is on
   setuserled(1000,1)' set user led on
   Code "M9"
 Else
   'coolent is off
   setuserled(1000,0) ' set user led off
 End If

  'Get the tool change pos from the settings page
  ChangeX = GetOEMDRO(1200)
  ChangeY = GetOEMDRO(1201)
  ChangeZ = GetOEMDRO(1202)
 
  Code "G00 G54 Z.25"
  Code "G00 G53 X" & ChangeX & "Y" & ChangeY
  'Code "G00 G53 Z" & ChangeZ, You may want to use this.

 
     Response = MsgBox ( "Would you like to set your Z height automatically? If so, click OK", 1 )
     If Response = 1 Then
      CurrentFeed = GetOemDRO(818) 'Get the current feedrate.
       PlateThickness =0.062
       ProbeFeed = 5


       Code "G90 F" &ProbeFeed

       If GetOemLed (825)=0 Then
       'Code "G4 P5" 'Time to get to the z-plate
       Code "G31Z-5 F" &ProbeFeed
       While IsMoving()
       Wend
       Code "G4 P0.25"
       ZProbePos = GetVar(2002)
       Code "G0 Z" &ZProbePos
       While IsMoving ()
       Wend
       Call SetDro (2, PlateThickness)
       Code "G4 P0.5" 'Pause for Dro to update.
       Code "G0 Z0.25" 'Change the Z retract height here
       Code "(Z axis is now zeroed)"
       Code "F" &CurrentFeed
       Else
       Code "(Z-Plate is grounded, check connection and try again)"
       Exit Sub
       End If
    End If   
  SetCurrentTool( tool )                                   
 
End If




This is the M6 End Macro

'M6End.m1s

tool = GetDRO(24)
oldTool = GetOEMDRO(1212)

If getuserled(1000) Then ' check user led
   'coolant was on
   Code "M8"
End If

If (oldTool <>  tool) Then
SetOEMDRO(1212,tool)

End If


Brett
           

3132

General Mach Discussion / Re: Mach 3 hiccups - Please Help

« on: June 02, 2008, 11:20:47 PM »

A couple of links to help explain.

http://web6.automationdirect.com/static/specs/relaymov.pdf

http://web6.automationdirect.com/adc/Shopping/Catalog/Relays_-z-_Timers/15A_Electro-Mechanical_Cube_Relays/AD-ASMD-250

Brett

3133

General Mach Discussion / Re: Mach 3 hiccups - Please Help

« on: June 02, 2008, 08:28:17 PM »

Is the coolant switch controlling a relay? An icecube relay? Just thinking if it is a snubber may help you out some.

Brett

3134

Show"N"Tell ( Your Machines) / Re: Bill's new machine

« on: June 02, 2008, 04:57:47 PM »

with the creation of Brett's new usb controller I believe I will be much happier.

Bill, I think you have mistaken me for perhaps Greg Cary, inventor of the Smooth Stepper. Would be a good choice I think. you can order one here  http://www.warp9td.com/index.php

Brett

3135

General Mach Discussion / Re: Step Pulse Won't Save

« on: June 02, 2008, 09:06:44 AM »

Jason, I can't remember for sure but I think if using the G100 those aren't setable. Been a long time since I had mine hooked up.

Brett

3136

Show"N"Tell ( Your Machines) / Re: Bill's new machine

« on: June 02, 2008, 01:45:23 AM »

That may help some. Could find out if they are nema 23 or something. Would be best if you could get a part Mfg. Name and part number off the motor.

Brett

3137

Show"N"Tell ( Your Machines) / Re: Bill's new machine

« on: June 01, 2008, 08:39:51 PM »

Bill, go here, http://www.mcmaster.com/ and do a search on Open Ended Timing Belts.


Also, there are different tolerances for different series belts. May want to do a little research before choosing. Worse case would be to get new pulleys to match the belts you need. Some have a stainless wire core that won't stretch.
Brett

3138

Works in progress / Re: Fanuc-O ld school

« on: May 25, 2008, 08:28:50 PM »

A little closer.

Brett

3139

Works in progress / Re: Fanuc-O ld school

« on: May 22, 2008, 09:18:07 PM »

Thanks Guys,

Brett

3140

Works in progress / Re: Fanuc-O ld school

« on: May 21, 2008, 09:32:00 PM »

Still pecking.

Brett