[mfg-smartcam] Code gen for speed functions

[Jon Baker]

Help me out guys, I keep swinging and it keeps ducking.  I run Fadal  mills, and in setting up the rigid tap, if the RPM is above 750RPM, you need to output the S command as , ie S755.2, to indicate that it should run in the high range to allow faster reversal at the bottom.  HOWEVER, if you are below 750, it will not LET me enter the speed that way, and wants it to be S745 with no decimal place.  You can see my tool change section, as well as my tapping sections below, and it is close, but outputs S745.0 instead of S750    You can see I tried to put some logic in there about speed, but it doesn't seem to do what I want.  Any suggestions on where I went wrong.  Geez, just when I was sure of 100% perfect output too. Thanks Jon         //  TOOL CHANGES @TOOLCHG < #FXD> M9 M5  #MOV G28 G91 Z0  T#TOOL M6 (  #TDESC )   M1 #EVAL(#TM_NOTE=jos(tm_notes) #IFSTR(#TM_NOTE<>)<(TOOL NOTES: #TM_NOTE)> #EVAL(#StepDesc=jos(st_desc)) (STEP DESC: #StepDesc) #EVAL(#STPNOTE=jos(st_notes) #IFSTR(#STPNOTE<>)<(STEP NOTES: #STPNOTE)> #EVAL(#U1=1) // sets switch for fixed cycles to reset for first hole #IF(#SPEED>750,#AND#CYCLE=3,#AND#TLTYPE=4)<#EVAL(#V7=#SPEED+.2)>#ELSE<#EVAL(#V7=#SPEED)> #EVAL(#CYCLE=jos(cycle)) #IFSTR(#WKPLN=XY_PLANE)<#EVAL(#WKPLN=E1)> #IF(#CYCLE=3,#AND#TLTYPE=4)< G0 G17 G40 G80 G90 #WKPLN S#V7 M90 M5>#ELSE< G0 G17 G40 G80 G90 #WKPLN> #IF(#CYCLE=3,#AND#TLTYPE=4)< G84.2> #IF(#CYCLE<>3)< #SPNDL S#SPEED>  #MOV #IF(#WKSCHG<>1) X#XPOS Y#YPOS  G43 H#LOFF D#DOFF #IF(#WKSCHG<>1)< Z#ZPOS>#ELSE< Z#ZHOME> #COOLNT @ // tap @OP_TAP // Use G74/G84 (M04=left hand tapping) or G84.1 (Rigid tapping cycle) or G85(for tapmatic cycle) #IF(#U1=1)<#RESET(#XPOS,#YPOS)#EVAL(#U1=0)> #IFCHG(#CYCLE)<#RESET(#XPOS,#YPOS)> // set the R0 value to .300" higher than level in model, for tapping clearance #EVAL(#V5=#ZCHK+.3) #EVAL(#V9=0) //set feed rate to 95% to allow for extension of tapping heads #EVAL(#V6=#FEED*.95) #EVAL(#CYCLE=jos(cycle)) #IF(#CYCLE=3)<#CALL(RIGIDTAP)> #IF(#V9=1)<#EXIT> < #ABSI>< #CYCLE><  #RTNLVL>  X#XPOS  Y#YPOS < Z#ZDPTH>< R#V5>< F#FMT(#V6,D3.1)>< S#SPEED> @@CYCLE 0,G84 1,G74 2,G85 3,G84.1 @   @RIGIDTAP #IF(#U1=1)<#RESET(#XPOS,#YPOS)#EVAL(#U1=0)> #IFCHG(#CYCLE)<#RESET(#XPOS,#YPOS)> // sets the R0 value to .300" higher than level in model, for tapping clearance #EVAL(#V5=#ZCHK+.3) #EVAL(#V9=1)  (RIGID TAPPING CYCLE)  #ABSI  #CYCLE  #RTNLVL  X#XPOS  Y#YPOS  Z#ZDPTH R#V5 F#FEED S#SPEED @@CYCLE 3,G84.1 @