// ---------------------------------------- // // 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 Machine: MITSUBISHI MPA-V65 Control: MELDAS M-NAP 2 Date: March 1989 @START ONBLK G00 G17 G40 G91 G28 Z0 G28 X0 Y0 G90 G92 G53 X0 Y0 Z0 T#TOOL M06 < T#NTOOL> G90 G54 G10 XD1 YD2 ZD41 G90 G00 G54 X0 Y0 G43 H#LOFF Z4.0 M08 #SPNDL S#SPEED M08 F#FEED #MOV< #DCOMP> X#XPOS Y#YPOS @TOOLCHG < #FXD> M09 #MOV G91 G28 Z0 (TOOL ##LTOOL TIME: #TLTIME) G90 X#XPOS Y#YPOS #ELSE #SPNDL S#SPEED F#FEED G43 H#LOFF Z#ZPOS M08 @END G00 Z4.0 M05 < #FXD> M09 G00 G91 G28 Z0 G54 G10 X0 Y0 Z0 (TOOL ##LTOOL TIME: #TLTIME) (TOTAL TIME: #CYTIME) G28 X0 Y0 M06 M30 #OFFBLK% @SUBDEF % (SUBDEF,#SNAME, NOTE: USED BY #FILE) #ONBLK #ABSI @ENDDEF (END OF SUB) M30 #OFFBLK% @GOSUB (GOSUB, PROG=#SNAME, RPT=#SREPT) @STPROF < #ABSI>< #FXD>< #MOV>< X#XPOS>< Y#YPOS>< Z#ZPOS> @ENDPROF << #MOV> Z#ZPOS> < #DCOMP> @RAP < #ABSI>< #FXD>< #MOV>< X#XPOS>< Y#YPOS>< Z#ZPOS> @LINE < #PLANE>< #DCOMP#EXC H#DOFF>< #MOV>< X#XPOS>< Y#YPOS>< Z#ZPOS>< F#FEED> @ARC < #PLANE>< #MOV>< X#XPOS>< Y#YPOS> I#XCTR J#YCTR< F#FEED> @XZARC < (CHANGE ARC PLANE) #PLANE>< #MOV>< X#XPOS>< Z#ZPOS> I#XCTR K#ZCTR< F#FEED> @YZARC < (CHANGE ARC PLANE) #PLANE>< #MOV>< Y#YPOS>< Z#ZPOS> J#YCTR K#ZCTR< F#FEED> @HELIX #IF(#INC)< (HELICAL MOVE, Z PITCH = #INC)> #IF(#INC2)< (SPIRAL MOVE, RADIAL PITCH = #INC2)> < #PLANE> #MOV< X#XPOS>< Y#YPOS> Z#ZPOS I#XCTR J#YCTR< F#FEED> @XZHELIX < #PLANE> #MOV< X#XPOS> Y#YPOS< Z#ZPOS> I#XCTR K#ZCTR< F#FEED> @YZHELIX < #PLANE> #MOV X#XPOS< Y#YPOS>< Z#ZPOS> J#YCTR K#ZCTR< F#FEED> @ZCLRMV < #ABSI>< #FXD><< #MOV> Z#ZPOS> @ZCHKMV < #FXD><< #MOV> Z#ZPOS> @ZDPTHMV << #MOV> Z#ZPOS< F#FEED>> @FXD1 < #ABSI>< #FXD>< X#XPOS>< Y#YPOS>< Z#ZDPTH R#ZCHK>< F#FEED> @FXD2 < #ABSI>< #FXD>< X#XPOS>< Y#YPOS>< Z#ZDPTH R#ZCHK >< F#FEED> @FXD3 < #ABSI>< #FXD>< X#XPOS>< Y#YPOS>< Z#ZDPTH R#ZCHK>< F#FEED> @FXD4 < #ABSI>< #FXD>< X#XPOS>< Y#YPOS>< Z#ZDPTH R#ZCHK>< F#FEED> @FXD5 < #ABSI>< #FXD>< X#XPOS>< Y#YPOS>< Z#ZDPTH R#ZCHK Q#PECK>< F#FEED> @DWELL G04 #EVAL(#TIME=#DWELL/60) @