18i Parameter change macro help

[GoetzInd]

Hey guys. I have a machine here that does not have a rapid overide switch so I am writing a macro to change the rapid speed parameters via M-code. Pretty straight forward accept for the control will not allow for logic to define the R value (actual parameter value). Is there a way to do this? I am trying to avoid a bunch of GOTO's and redundant assignments. Here's what I got so far. TIA

 

Mike

 

%

O9021 (RAPID OVERRIDE MACRO)

(M500 F...)

 

N1 IF [#9 GT100.] GOTO50

 

N2 #11=[#9*.01]

 

G10 L50 (SET PARAMETER VALUES)

N1420 P1 R[25000*#11]

 

N1420 P2 R[20000*#11]

 

N1420 P3 R[11000*#11]

 

N1420 P4 R[18000*#11]

 

N1420 P5 R[100000*#11]

 

N1420 P1 R[100000*#11]

 

G11

 

M99

[Guest CNC Apps Guy 1]

Your format seems incorrect;

 

G10 L50 (SET PARAMETER VALUES)

N01420Q1A1P[25000*#11]A2P[20000*#11]A3P[11000*#11]A4P[18000*#11]A5P[100000*#11]

G11

 

Give that a shot...