// ---------------------------------------- // // 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 11/06/89 Machine: SuperMax YCM-40 CNC Milling Machine with Delta 20M CNC Control @START (#FILE) #ONBLK(T)#S1 (T)T#TOOL #TLCMT (9)M6E1T#TOOLS#SPEED (9)#SPNDL (9)M0 (9)M8 #EVAL(#V2=1) @TOOLCHG <(0)#FXDZ#ZPOS> (9)M9 #EVAL(#U1=INT(#TLTIME)) #EVAL(#U2=#TLTIME-#U1) #EVAL(#U0=#U2*60) (T)T#LTOOL EST:#IF(#U1>0)< #FMT(#U1,T3.0)M> #FMT(#U0,T2.0)S (T)T#TOOL #TLCMT (9)M6E1T#TOOLS#SPEED (9)#SPNDL (9)M0 (9)M8 #EVAL(#V2=1) #RESET(#DWELL) #RESET(#C0) @END <(0)#FXDZ#ZPOS> (9)M9 (9)M30 #EVAL(#U1=INT(#TLTIME)) #EVAL(#U2=#TLTIME-#U1) #EVAL(#U0=#U2*60) (T)T#LTOOL EST:#IF(#U1>0)< #FMT(#U1,T3.0)M> #FMT(#U0,T2.0)S #EVAL(#U1=INT(#CYTIME)) #EVAL(#U2=#CYTIME-#U1) #EVAL(#U0=#U2*60) (T)TOTAL:#IF(#U1>0)< #FMT(#U1,T3.0)M> #FMT(#U0,T2.0)S #OFFBLKEND @STPROF #RESET(#ZPOS) #IF(#DCOMP=0) <(0)<#FXD>> #ELSE<#EVAL(#V7=1) #RESET(#V5,#V6) #EVAL(#V5=#XOV*-.1)#EVAL(#V6=#YOV*-.1) #EVAL(#V5=#V5+#XPOS)#EVAL(#V6=#V6+#YPOS) (0)<#FXD>> #EVAL(#V2=0) @ENDPROF #IF(#V7=0) <(0)Z#ZPOS> #ELSE< #RESET(#V8,#V9) #EVAL(#V8=COS(#V3)*.1) #EVAL(#V9=SIN(#V3)*.1) #EVAL(#V8=#V8+#XPOS) #EVAL(#V9=#V9+#YPOS) (1)Z#ZPOSF100.0#RESET(#FEED) (1)X#V8Y#V9 #RESET(#XPOS,#YPOS) (1)X0/Y0/C0> #EVAL(#V7=0) @RAP (0)<#FXD> #EVAL(#V2=0) @LINE (1) #EVAL(#V3=#LNANG) @ARC (2)< #PLANE>#MOVX#XPOSY#YPOS#EXLN I#XCTRJ#YCTRR#ARAD<#DCOMP> #IF(#MOV=2)<#EVAL(#V3=#EANG-90)> #ELSE<#EVAL(#V3=#EANG+90)> @ZCLRMV #IF(#V2=1)<#EXIT> <(0)<#FXD>Z#ZPOS> @ZCHKMV <(0)<#FXD>Z#ZPOS> #IF(#V7=1) <(1)X0/Y0/F100.0C0#RESET(#FEED) (1)#DCOMP> @ZDPTHMV <(1)Z#ZPOS> @FXD1 (0)<#FXD> #EVAL(#V2=0) @FXD2 #EVAL(#DWELL=.2) (0)<#FXD> #EVAL(#V2=0) @FXD3 #EVAL(#DWELL=0) #EVAL(#V4=#ZCHK+.07) (0)<#FXD> #EVAL(#V2=0) @FXD4 (0)<#FXD> #EVAL(#V2=0) @FXD5 #EVAL(#C0=1) (0)<#FXD>#EXLN <#C0> #EVAL(#V2=0) @DWELL (8)L#DWELL @