// ---------------------------------------- // // 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. // ---------------------------------------- //6/14/89 //LeBlond-Makino //Control: #EC-G1-8702/E @START % #EVAL(#BLK=1) O#FMT(#V1,F4.0) #C0#ABSI #C0G92X#XPOSY#YPOS @END #IF(#V5<1)<#C0M30> #OFFBLK% @STPROF #IF(#V3=1)<#EXIT> #C0<#MOVX#XPOSY#YPOS> #IF(#C4=1)<<#C0>#C4#EVAL(#C4=2)> #C0#IF(#LOFF>0)> @ENDPROF <#CUTC> #C0G43 #IF(#V6=1) #IF(#C4=2)<#C0<#C4>#EVAL(#C4=1)> #IF(#V3=1) #RESET(#QANG) #RESET(#CUTC) #EVAL(#BLK=#BLK+1) @RAP #C0<#ABSI#MOVX#XPOSY#YPOS> @LINE #IF(#V4=1)<#CUTC> #IF(#XOV<>0)<#EVAL(#XPOS=#XPOS-(#XOV/#ZCHK*(#ZPOFF+.5618))) #EVAL(#XOV=(#XOV/#ZCHK*(1.1236+#ZSET)))> #IF(#YOV<>0)<#EVAL(#YPOS=#YPOS-(#YOV/#ZCHK*(#ZPOFF+.5618))) #EVAL(#YOV=(#YOV/#ZCHK*(1.1236+#ZSET)))> <#MOV> #EVAL(#V4=0) @ARC @STOP #C0M00 #RESET(#C4) @OPSTOP #RESET(#C4) #C0M01 @CUT #EVAL(#C4=2) #C4 @BD1 #EVAL(#C0=1) @BD2 #EVAL(#C0=2) @BD3 #EVAL(#C0=3) @BDOFF #EVAL(#C0=0) @GOSUB E#TLID#IF(#LOFF>1)> M98P#BLK #EVAL(#V3=1) #EVAL(#V4=1) #EVAL(#V5=1) <#S1> @ROT G68R#FMT(#RANG,D3.4) #EVAL(#V6=1) @