// ---------------------------------------- // // 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 12/20/89 Machine: Leadwell MCV760 Vertical Machining Center with Fanuc System 0M-Model A Control @START % O#FILE(#S1) G00 G17 G40 G49 G80 G90 M09 #EVAL(#BLK=1) N#BLK T#TOOL M06 (#TDESC #TLCMT) S#SPEED #SPNDL #MOV #C0 G90 X#XPOS Y#YPOS G43 Z#ZPOS H#LOFF M08 @TOOLCHG <#FXD> G28 G49 Z0.0 M09 M01 #EVAL(#BLK=#BLK+1) N#BLK T#TOOL M06 (#TDESC #TLCMT) S#SPEED #SPNDL #MOV #C0 G90 X#XPOS Y#YPOS G43 Z#ZPOS H#LOFF M08 @END <#FXD> G28 G49 Z0.0 M09 #MOV X#XHOME Y#YHOME M30 % @STPROF <#MOV ><#FXD > #RESET(#DOFF) @ENDPROF <#MOV > <#DCOMP > @RAP <#MOV ><#FXD > @LINE <#MOV ><#DCOMP #EXC> @ARC #IF(#TANG=360,OR#TANG=-360) <<#MOV >> #ELSE <<#MOV >R#ARAD > @ZCLRMV <#FXD ><<#MOV >Z#ZPOS > @ZCHKMV <#FXD ><<#MOV >Z#ZPOS > @ZDPTHMV <<#MOV >Z#ZPOS > @FXD1 <#RTNLVL ><#FXD > @FXD2 <#RTNLVL ><#FXD > @FXD3 <#RTNLVL ><#FXD > @FXD4 <#RTNLVL ><#FXD > @FXD5 #EVAL(#PECK=#TLDIA*1.3) <#RTNLVL ><#FXD > @DWELL G04 U#DWELL#EVAL(#TIME=#DWELL/60) @