Hello Guest it is March 29, 2024, 05:37:54 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 - big-tex

Pages: « 1 2 3 4 5 6 7 »
31
Works in progress / Re: Mach3 2010
« on: November 29, 2010, 03:05:51 PM »
Gerry
Nice work. I would like to beta test it once you got it done :)

32
General Mach Discussion / Re: feed rate
« on: September 20, 2010, 08:22:09 PM »
Rem Rem VBScript To probe In the z axis 'Written by Big-Tex May 23 2010

If GetOemLED(801) Then 'NOTE: This part of script is for Inches as Native Units

If GetOemLed (825) <> 0 Then 'Check to see if the probe is already grounded or faulty
Code "(Z-Plate is grounded, check connection and try again)" 'this goes in the status bar if aplicable
Else
Code "G4 P1" 'Pause 1 seconds to give time to position probe plate
PlateOffset = GetUserDRO(1151) 'Get plate offset DRO
CurrentFeed = GetOemDRO(818) 'Get the current feedrate to return to later
Code "F12" 'slow down feedrate to 12 ipm

Rem Probe In the z direction
ZNew = GetDro(2) - 6 'probe move to current z - 6 inches
Code "G31Z" &ZNew
While IsMoving() 'wait for probe move to finish
Wend

ZNew = GetVar(2002) 'read the touch point
Code "G0 Z" &ZNew +.1 'move back +.1 to hit point incase there was overshoot +.1
While IsMoving ()
Wend

Rem End add lines

Code "F4" 'slow down feedrate to 4 ipm
ZNew = GetDro(2) - .25 'probe move to current z - .25 inches
Code "G31Z" &ZNew
While IsMoving() 'wait for probe move to finish
Wend

ZNew = GetVar(2002) 'read the touch point
Code "G0 Z" &ZNew 'move back to hit point incase there was overshoot
While IsMoving ()
Wend

If PlateOffset <> 0 Then
Call SetDro (2, PlateOffset) 'set the Z axis DRO to plate thickness
Code "G4 P0.25" 'Pause for Dro to update.
ZNew = PlateOffset + 2.6315 'calc retract
Code "G0 Z" &ZNew 'put the Z retract height you want here
While IsMoving ()
Wend
Code "(Z axis is now zeroed)" 'puts this message in the status bar

End If

Code "F" &CurrentFeed 'Returns to prior feed rate
End If
Else 'NOTE: This portion of script is for Metric as Native Units

If GetOemLed (825) <> 0 Then 'Check to see if the probe is already grounded or faulty
Code "(Z-Plate is grounded, check connection and try again)" 'this goes in the status bar if aplicable
Else
Code "G4 P1" 'Pause 1 seconds to give time to position probe plate
PlateOffset = GetUserDRO(1151) 'Get plate offset DRO
CurrentFeed = GetOemDRO(818) 'Get the current feedrate to return to later
Code "F300" 'slow down feedrate to 300 mmpm

Rem Probe In the z direction
ZNew = GetDro(2) - 150 'probe move to current z - 150 mm
Code "G31Z" &ZNew
While IsMoving() 'wait for probe move to finish
Wend

ZNew = GetVar(2002) 'read the touch point
Code "G0 Z" &ZNew + 3 'move back + 3 mm to hit point incase there was overshoot + 3 mm
While IsMoving ()
Wend

Rem End add lines

Code "F100" 'slow down feedrate to 100 mmpm
ZNew = GetDro(2) - 6 'probe move to current z - 6 mm
Code "G31Z" &ZNew
While IsMoving() 'wait for probe move to finish
Wend

ZNew = GetVar(2002) 'read the touch point
Code "G0 Z" &ZNew 'move back to hit point incase there was overshoot
While IsMoving ()
Wend

If PlateOffset <> 0 Then
Call SetDro (2, PlateOffset) 'set the Z axis DRO to plate thickness
Code "G4 P0.25" 'Pause for Dro to update.
ZNew = PlateOffset + 60 'calc retract
Code "G0 Z" &ZNew 'put the Z retract height you want here
While IsMoving ()
Wend
Code "(Z axis is now zeroed in metric Units)" 'puts this message in the status bar

End If

Code "F" &CurrentFeed 'Returns to prior feed rate
End If
End If



Now` that is about most of the code this line is setting  feedrate to previous tool path

Code "F" &CurrentFeed 'Returns to prior feed rate

Now I know where its coming from

Now Gerry
you say to change to GO
Code"G00 X" & x & "Y" & y                                             *******  OR just returns at Rapid
Code"G0 X" & x & "Y" & y                                             *******  OR just returns at Rapid

Is that right?

33
General Mach Discussion / Re: feed rate
« on: September 19, 2010, 03:03:10 AM »
Ok now that I found where it comes from and tested it.
I would like to add command to my script f=rapid feed rate
How would I do that?

34
General Mach Discussion / Re: feed rate
« on: September 19, 2010, 02:39:44 AM »
but it does not move at rapid rate that is whole point. it moves at previous feed rate to last location within last tool path.

I think I found bug in my script for probing, it sets feed rate to prior feed rate.

35
General Mach Discussion / Re: feed rate
« on: September 19, 2010, 02:36:49 AM »
REM The default script here moves the tool back to m6start if any movement has occured during the tool change..

x = GetToolChangeStart( 0 )
y = GetToolChangeStart( 1 )
z = GetToolChangeStart( 2 )
a = GetToolChangeStart( 3 )
b = GetToolChangeStart( 4 )
c = GetToolChangeStart( 5 )
if(IsSafeZ() = 1) Then
   SafeZ = GetSafeZ()
   if  SafeZ  > z then StraightTraverse x, y,SafeZ, a, b, c
      StraightFeed  x, y,  z  , a, b, c
else
Code"G00 X" & x & "Y" & y
end if



   
That is how my unmodified m6end looks like

36
General Mach Discussion / Re: feed rate
« on: September 18, 2010, 09:04:26 PM »
what ever mach3 comes with i have not changed it at all

37
General Mach Discussion / Re: feed rate
« on: September 16, 2010, 12:20:35 PM »
Nope this is it.....

38
General Mach Discussion / Re: feed rate
« on: September 16, 2010, 01:31:05 AM »
does not work, fedd rate still as per previous tool path

39
General Mach Discussion / Re: feed rate
« on: September 14, 2010, 10:54:07 PM »
Code("G53G0Z-0.5")
sleep 100
Code("G53G0X24Y1")
While IsMoving()
Sleep 100
Wend

  tool = GetSelectedTool()
  SetCurrentTool( tool )

40
General Mach Discussion / Re: feed rate
« on: September 13, 2010, 10:08:23 PM »
ok m6start brings machine to tool changing location, m5end moves it back just in case it was jogged of position i know that.

What macro would be responsible for this condition or some typo of setting.

Pages: « 1 2 3 4 5 6 7 »