// ---------------------------------------- // // The following SmartCAM code generator has been // created to generate NC code for the respective // machine and control combinations listed below. // // Due to differences in programming styles, // controller versions, and optional equipment, // SmartCAMcnc DOES NOT and CANNOT guarantee // that the NC code generated is correct for any // specific machine. Some modification to the code // generator to match your setup and output // requirements is likely necessary. // // Modifications to code generators do not TYPICALLY // require a significant amount of time. SmartCAM // customers with active SSA contracts are entitled // to support for their code generators from the // SmartCAMcnc Support Group. To contact them for // support, please send an email to: // Support@SmartCAMcnc.com. If you would like // information on purchasing SSA for your SmartCAM // products, please contact: Sales@SmartCAMcnc.com // // DISCLAIMER: It is the responsibility of the end // user to confirm and verify that the NC code // created by any code generator is accurate and // will not cause a machine malfunction which // could result in stock, tooling, machine, and/or // personal injury. // // SmartCAMcnc assumes no responsibility or // liability for any damage caused or alleged to // have been caused by the use of any of the code // generators it provides. // ---------------------------------------- //Machine: WARNER & SWASEY SC-15 M4820 TWIN TURRET LATHE //Control: ALLEN BRADLEY 7340 //Date: June 26,1990 @START % #ONBLK#IF(#TOOL<10)< G>#ELSE< H>90#EVAL(#V5=1) #IF(#TOOL<10)< G>#ELSE< H>92#EXLN#EVAL(#V2=0) #IF(#TOOL<10)< X>#ELSE< U>#XPOS#IF(#TOOL<10)< Z>#ELSE< W>#ZPOS#EXLN S0600 M03 #NEXTPT #EVAL(#V2=#SPMODE)#RESET(#MOV) #EVAL(#V3=#XPOS) #IF(#TOOL<10)< G>#ELSE< H>#SPMODE#IF(#V2=01)< Q#V3> S#SPEED M03 #IF(#TOOL<10)< G>#ELSE< H>90#IF(#TOOL<10)< T>#ELSE< D>#TLID #IF(#TOOL<10)< G>#ELSE< H>95#IF(#V2=01)< M80> @TOOLCHG M09 #IF(#LTOOL<10)< T>#ELSE< D>000#IF(#V2=01)< M81>#ELSE< M80> #IF(#LTOOL<10)< G>#ELSE< H>97 S0200 M05 M01#EVAL(#V5=1) #IF(#TOOL<10)< G>#ELSE< H>90 #IF(#TOOL<10)< G>#ELSE< H>92#EXLN #IF(#TOOL<10)< X>#ELSE< U>#XSET#IF(#TOOL<10)< Z>#ELSE< W>#ZSET#EXLN S0600 #NEXTPT #EVAL(#V2=#SPMODE)#RESET(#MOV) #EVAL(#V3=#XPOS) #IF(#TOOL<10)< G>#ELSE< H>#SPMODE#IF(#V2=01)< Q#V3> S#SPEED M03 #IF(#TOOL<10)< G>#ELSE< H>90#IF(#TOOL<10)< T>#ELSE< D>#TLID #IF(#TOOL<10)< G>#ELSE< H>95#IF(#V2=01)< M80> @END #IF(#LTOOL<10)< G>#ELSE< H>04#EXLN #IF(#LTOOL<10)< X>#ELSE< U>02 M09 #IF(#LTOOL<10)< G>#ELSE< H>04#EXLN #IF(#LTOOL<10)< X>#ELSE< U>02 M05 #IF(#LTOOL<10)< G>#ELSE< H>04#EXLN #IF(#LTOOL<10)< X>#ELSE< U>02#IF(#LTOOL<10)< T>#ELSE< D>000 M30 #OFFBLK% @RAP #RESET(#FXD)#EVAL(#V5=1) <#IF(#TOOL<10)< G>#ELSE< H>#MOV>#IF(#TOOL<10)< X>#ELSE< U>#XPOS#EXLN <#IF(#TOOL<10)< Z>#ELSE< W>#ZPOS>#IF(#TOOL<10)< F>#ELSE< E>0 @LINE #RESET(#FXD) #IF(#V4=1,AND#TOOL<10)< G#MOV>#IF(#V4=1,AND#TOOL>10)< H#MOV>#EXLN <#IF(#TOOL<10)< X>#ELSE< U>#XPOS>#IF(#V2=01)< Q#XST>#EXLN <#IF(#TOOL<10)< Z>#ELSE< W>#ZPOS><#IF(#TOOL<10)< F>#ELSE< E>#FEED>#EXLN #IF(#V5=1)< M81> #EVAL(#V5=#V5+1) #EVAL(#V2=#V2+1) @ARC #RESET(#FXD)#EVAL(#V4=0) #IF(#TOOL<10)< G>#ELSE< H>#MOV#EXLN #IF(#TOOL<10)< X>#ELSE< U>#XPOS<#IF(#TOOL<10)< Z>#ELSE< W>#EXLN #ZPOS>#EXLN> #IF(#TOOL<10)< I>#ELSE< P>#XCTR#EXLN #IF(#TOOL<10)< K>#ELSE< R>#ZCTR<#IF(#TOOL<10)< F>#ELSE< E>#FEED>< M81> #EVAL(#V4=1) @FXD1 #IF(#TOOL<10)< G>#ELSE< H>33<#IF(#TOOL<10)< X>#ELSE< U>#XPOS>#EXLN #IF(#TOOL<10)< Z>#ELSE< W>#ZPOS#EXLN #IF(#TOOL<10)< K>#ELSE< R>#FMT(#FTHRD,L1.4) @FXD2 <#IF(#TOOL<10)< G>#ELSE< H>21<#IF(#TOOL<10)< X>#ELSE< U>#XPOS>#EXLN #IF(#TOOL<10)< Z>#ELSE< W>#ZPOS> < #FXD><#IF(#TOOL<10)< X>#ELSE< U>#XPASS>#EXLN <#IF(#TOOL<10)< Z>#ELSE< W>#ZPASS><#IF(#TOOL<10)< F>#ELSE< E>#FEED> @FXD3 <#IF(#TOOL<10)< X>#ELSE< U>#XPOS #IF(#TOOL<10)< F>#ELSE< E>0 > < #FXD><#IF(#TOOL<10)< X>#ELSE< U>#XPASS>#EXLN <#IF(#TOOL<10)< Z>#ELSE< W>#ZPASS><#IF(#TOOL<10)< F>#ELSE< E>#FEED> @FXD4 #IF(#TOOL<10)< G>#ELSE< H>33#IF(#TOOL<10)< Z>#ELSE< W>#ZPASS#EXLN #IF(#TOOL<10)< K>#ELSE< R>#FEED M03 #IF(#TOOL<10)< G>#ELSE< H>33#IF(#TOOL<10)< Z>#ELSE< W>#ZPOS#EXLN #IF(#TOOL<10)< K>#ELSE< R>#FEED @SPEEDS 12,0 16,1 22,2 30,3 42,4 56,5 77,6 105,7 49,8 66,9 90,10 122,11 169,12 229,13 315,14 426,15 24,20 32,21 44,22 60,23 83,24 113,25 155,26 210,27 97,28 132,29 181,30 245,31 339,32 458,33 629,34 851,35 @