feed rate

[BR549]

If that does not fix it permanaently.

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     ******  LOOK here it does a straight traverse at rapid IF condition is met

      StraightFeed  x, y,  z  , a, b, c                                   ******  THEN it does a straight FEED  possibly at feedrate
else
Code"G00 X" & x & "Y" & y                                             *******  OR just returns at Rapid
end if


ALSO please remember that IF you manually reset the Feedrate to a RAPID rate during a tool change MACRO. Then double check your program code right after it returns to work. MAKE sure it recalls for the proper Frate or else it may try to cut at a rapid rate.
SOme Cams reset the Frate every time. SOME only reset it IF it changed from the last MODAL rate

Just a thought, (;-) TP

[ger21]

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?

Just use G0 moves for rapid feedrate moves. Then you don't need to change to the rapid feedrate.

[big-tex]

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?