// ---------------------------------------- // // 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. // ---------------------------------------- @COMMENTS Machine Type: Mazak Horizontal Lathe Control Type: Fanuc FN6TB @ @DECLARE //#OUTCND // outputs conditional status //#OUTSEC // outputs @section names //#OUTREF // outputs processing errors //#OUTRPT // outputs an error report file @ @START % #ONBLK G0 G40 G70 G90 G50 X#XSET Z#ZSET S3000 T#TOFF #SPMODE S#SPEED #SPNDL M8 #NEXTPT @ @TOOLCHG G0 X#XPOS Z#ZPOS T#LTOOL<#SPOFF> M1 G0 G40 G70 G90 G50 X#XSET Z#ZSET S3000 T#TOFF #SPMODE S#SPEED #SPNDL M8 @ @END G0 X#XHOME Z#ZHOME T#LTOOL M9 M5 M30 #OFFBLK% @ @STPROF #RESET(#FXD) < #MOV>< X#XPOS>< Z#ZPOS> @ @RAP #RESET(#FXD) < #MOV>< X#XPOS>< Z#ZPOS> @ @LINE #RESET(#FXD) < #MOV>< X#XPOS>< Z#ZPOS>< F#FEED> @ @ARC #RESET(#FXD) < #MOV>< X#XPOS>< Z#ZPOS>< I#XCTR>< K#ZCTR>< F#FEED> @ @OP_THD G76 X#XPASS Z#ZPASS< I#XOV> K#V1 D#FMT(#V2,T1.4) E#FTHRD A60 @ @OP_TURN < G0< X#XPOS> Z#ZPOS> < #FXD>< X#XPASS>< Z#ZPASS>< F#FEED> @ @OP_FACE < G0 X#XPOS > < #FXD>< X#XPASS>< Z#ZPASS>< F#FEED> @ @OP_TAP G33 Z#ZPASS F#FEED M3 G33 Z#ZPOS F#FEED @ @OP_PDRL #EVAL(#V0=ABS(#ZPASS)) #EVAL(#V9=#TLDIA*3) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*5) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*6) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*7) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*8) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*9) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*10) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*11) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*12) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*13) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*14) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*15) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*16) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*17) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*18) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*19) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*20) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*21) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*22) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*23) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*24) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*25) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*26) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*27) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*28) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*29) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*30) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*31) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*32) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*33) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*34) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*35) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*36) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*37) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*38) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*39) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*40) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*41) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*42) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*43) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*44) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*45) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*46) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*47) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*48) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*49) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*50) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*51) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*52) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*53) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*54) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> #EVAL(#V9=#TLDIA*55) #EVAL(#V8=#V9-.02) #IF(#V0>#V9) < G1 Z-#V9< F#FEED> G0 Z#ZPOS Z-#V8> #ELSE< G1 Z#ZPASS< F#FEED> G0 Z#ZPOS> #IF(#V0<=#V9)<#EXIT> @ @DWELL G4 P#DWELL#EVAL(#TIME=#DWELL/60) @