// ---------------------------------------- // // 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 Code Generator for a Haas HL-4 Turning Center with a Haas FANUC-Style Controller Date: 2/12/97 @ @DECLARE //#OUTCND // outputs conditional status //#OUTSEC // outputs @section names //#OUTREF // outputs processing errors //#OUTRPT // outputs an error report file #STR #st_desc @ @START #EVAL(#st_desc=JOS(ST_DESC)) % (#DATE) #ONBLK G54 T#TOOL #OFFBLK() (#st_desc) () #ONBLK M01 G50 S1500 M08 G00 X#XPOS Z#ZPOS T#TOFF #SPMODE S#SPEED #SPNDL #FDMODE #NEXTPT @ @TOOLCHG #EVAL(#st_desc=JOS(ST_DESC)) G80 G97 #MOV T0 M09 X#XPOS Z#ZPOS #OFFBLK() (#st_desc) () #ONBLK M01 T#TOOL G00 T#TOFF M08 #SPMODE S#SPEED #SPNDL < #FDMODE> #NEXTPT @ @END M09 M05 M30 #OFFBLK% @ @STPROF < #MOV>< X#XPOS>< Z#ZPOS> @ @RAP #RESET(#MOV) < #MOV> G80< X#XPOS>< Z#ZPOS> @ @LINE < #MOV>< X#XPOS>< Z#ZPOS>< F#FEED> @ @ARC < #MOV>< X#XPOS>< Z#ZPOS>< I#XCTR>< K#ZCTR>< F#FEED> @ @OP_THD < #FXD> X#XPASS Z#ZPASS< I#XOV> D#V2 K#V1 E#FTHRD A60 @ @OP_TURN < G00< X#XPOS> Z#ZPOS> < #FXD>< X#XPASS>< Z#ZPASS>< F#FEED> @ @OP_FACE < G00 X#XPOS > < #FXD>< X#XPASS>< Z#ZPASS>< F#FEED> @ @OP_TAP G84 R0.3 Z#ZPASS F#FTHRD @ @OP_PDRL G83 R0.1 Q0.1 Z#ZPASS F#FEED @ @DWELL G04 U#DWELL#EVAL(#TIME=#DWELL/60) @