// ---------------------------------------- // // 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 02/19/88 Machine: Monarch VMC-150 machining center with GE2000 control @START % #ONBLK #ABSI G40 G70 #MOV X#XPOS Y#YPOS S#SPEED T#TOOL #SPNDL M06 #UPDATE(#ZPOS) #EVAL(#V2=1) @TOOLCHG < #FXD> < #ABSI> #MOV X#XPOS Y#YPOS S#SPEED T#TOOL #SPNDL M06 #UPDATE(#ZPOS) @END M30 #OFFBLK @STPROF < #ABSI>< #FXD>< #MOV>< X#XPOS>< Y#YPOS>< Z#ZPOS> @ENDPROF #MOV Z#ZPOS < #DCOMP> #RESET(#DOFF) @RAP < #ABSI>< #FXD>< #MOV>< X#XPOS>< Y#YPOS>< Z#ZPOS> @LINE < #PLANE>< #MOV>< #DCOMP>< X#XPOS>< Y#YPOS>< Z#ZPOS>< D#DOFF>< F#FEED> @ARC < #PLANE> #MOV< #DCOMP> X#XPOS Y#YPOS< I#XCTR>< J#YCTR>< D#DOFF>< F#FEED> @XZARC < #PLANE> #MOV< #DCOMP> X#XPOS Z#ZPOS< I#XCTR>< K#ZCTR>< D#DOFF>< F#FEED> @YZARC < #PLANE> #MOV< #DCOMP> Y#YPOS Z#ZPOS< J#YCTR>< K#ZCTR>< D#DOFF>< F#FEED> @HELIX #EVAL(#V9=ABS(INT(#TANG/360))) < #PLANE> #MOV< #DCOMP>< X#XPOS>< Y#YPOS> Z#ZPOS#EXLN < I#XCTR>< J#YCTR>< D#DOFF>< F#FEED>#IF(#TANG>360)< P1=#V9> @XZHELIX #EVAL(#V9=ABS(INT(#TANG/360))) < #PLANE> #MOV< #DCOMP>< X#XPOS> Y#YPOS< Z#ZPOS>#EXLN < I#XCTR>< Z#ZCTR>< D#DOFF>< F#FEED>#IF(#TANG>360)< P1=#V9> @YZHELIX #EVAL(#V9=ABS(INT(#TANG/360))) < #PLANE> #MOV< #DCOMP> X#XPOS< Y#YPOS> Z#ZPOS#EXLN < J#YCTR>< K#ZCTR< D#DOFF>< F#FEED>#IF(#TANG>360)< P1=#V9> @ZCLRMV < #ABSI>< #FXD><< #MOV> Z#ZPOS>< D#LOFF> @ZCHKMV < #FXD><< #MOV> Z#ZPOS> @ZDPTHMV << #MOV> Z#ZPOS< F#FEED>> M72 @FXD1 < #ABSI>< #FXD>< X#XPOS>< Y#YPOS>< Z#ZDPTH R#ZCHK>< F#FEED>< D#LOFF> @FXD2 < #ABSI>< #FXD>< X#XPOS>< Y#YPOS>< Z#ZDPTH R#ZCHK F#FEED D#LOFF P11=#DWELL> @FXD3 < #ABSI>< #FXD>< X#XPOS>< Y#YPOS>< Z#ZDPTH R#ZCHK>< F#FEED>< D#LOFF> @FXD4 < #ABSI>< #FXD>< X#XPOS>< Y#YPOS>< Z#ZDPTH R#ZCHK>< F#FEED>< D#LOFF> @FXD5 < #ABSI>< #FXD>< X#XPOS>< Y#YPOS>< R#ZCHK Z#ZDPTH>< F#FEED>< D#LOFF>#EXLN < P1=#PECK>< P2=#V2>< P3=#V3>< P4=#V4>< P5=#V5>< P6=#V6>< P7=#V7> @DWELL G04 X#DWELL @