Not a member of Pastebin yet?
                        Sign Up,
                        it unlocks many cool features!                    
                - (ROTORY TABLE STEPPER MOUNT PROFILE.NC)
 - ( MACH 3 - ENGLISH)
 - (WED. 03/26/2008 04:17PM)
 - ;Zero AT END OF STOCK
 - ( T1 LEFT HAND TRIANGLE CARBIDE CUTTER)
 - ( T2 RIGHT HAND TRIANGLE CARBIDE CUTTER)
 - ( T3 RIGHT HAND DIAMOND CARBIDE CUTTER)
 - ( T8 HSS CUT OFF)
 - ( T9 CARBIDE CUT OFF)
 - ( T29 CENTER DRILL , small = .5 , LENGTH = 5.)
 - ( T30 CENTER DRILL , DIAMETER = .5 , LENGTH = 5.)
 - ( T31 DRILL , DIAMETER = .4375 7/16, LENGTH = 5.)
 - ( T32 DRILL , DIAMETER = 1/4 .25 , LENGTH = 5.)
 - ( T34 DRILL , DIAMETER = 1/2 .5, LENGTH = 5.)
 - ( T36 DRILL , DIAMETER = 21/64 , LENGTH = 5.)
 - ( T39 DRILL , DIAMETER = 0.144 , LENGTH = x.)
 - ( T30 CENTER DRILL , DIAMETER = .3/16 , LENGTH = 5.)
 - ( T41 BORING BAR H8273 0.433 MINIMUM)
 - ( T50 INTURNAL THREADING BAR H8274 0.433 MINIMUM)
 - ( T51 INTURNAL THREADING BAR H??? ?? MINIMUM, NEXT SIZE UP)
 - ( T98 INTURNAL GROOVING BAR )
 - ( T99 INTURNAL BORING BAR )
 - #11=0.318 ;DIA OF VALVE SEAT
 - #12=0.125 ;THICKNESS OF VALVE SEAT
 - #1=0 ;Z0 START END OF STOCK
 - #2=0 ;X0 START CENTER OF STOCK
 - #3=[[1/2]/2] ;RAIDIUS OF BLANK
 - #4=0.03 ;CUT START OFFSET
 - #5=0.02 ;STOCK FEED OFSET FOR NEW PART
 - #6=[#3-0.1] ;X FOR STOCK FEED OPERATIONS
 - #7=0.03 ;X CENTER OVER FEED FOR COMPLETE CUT
 - #8=0
 - #9=0
 - #10=0.05 ;CLEARANCE
 - ;DRILLING CENTER DRILL
 - #20=#1 ;STARTING DEPTH OF CENTER DRILLING
 - #21=-0.07 ;DEPTH OF CENTER DRILL STARTING THREAD HOLE
 - #22=1 ;CENTER DRILL, NUMBER OF PULLOUTS
 - #23=-0.01 ;RETRACT OF CENTER DRILL
 - #24=3 ;NUMBER OF PECKS PER PULLOUT
 - ;DRILLING HOLE .25
 - #25=#1 ;STARTING DEPTH OF DRILLING
 - #26=[[#1+.1]*-1] ;DEPTH OF DRILLING ROUGH HOLE;
 - #27=4 ;DRILLING, NUMBER OF CLEANING PULLOUTS
 - #28=-0.01 ;RETRACT OF DRILL
 - #29=2 ;NUMBER OF PECKS PER PULLOUT
 - ;CALCULATED VALUES
 - #200=0
 - #201=0
 - #202=0
 - #203=0
 - #204=0
 - #206=0
 - #207=0
 - #208=0
 - #209=0
 - #210=0
 - ;TEMP PLACE HOLERS
 - #240=0
 - #241=0
 - #242=0
 - #243=0
 - #244=0
 - #245=0
 - #246=0
 - #247=0
 - #248=0
 - #249=0
 - #250=0
 - ;*******************************************
 - O10 SUB(SUBPROGRAM DRILL)
 - G91
 - #250=#240 ;STARTING DEPTH OF DRILLING
 - #251=[#241/#242] ;DEPTH PER PULLOUT
 - #252=[#251/#244] ;DEPTH PER PECK
 - #200=#250
 - #201=[#242-1]
 - G90
 - G0Z[#250+#4] ;Z0 START END OF STOCK + CUT START OFFSET
 - ;M0
 - G1Z#250
 - ;M0
 - G91
 - ;M98 P11 L#201(CALL DRILL STEP)
 - O1 REPEAT [#201]
 - O12 CALL
 - O1 ENDREPEAT
 - ;M98 P12 L#244(CALL PECK)
 - O1 REPEAT [#244]
 - O12 CALL
 - O1 ENDREPEAT
 - G90
 - ;M1
 - G4P100
 - G0Z[#1+#4]
 - ;M1
 - G90
 - ;M99 ( SUBPROGRAM RETURN )
 - 010 ENDSUB
 - ;*******************************************
 - ;*******************************************
 - O11 SUB (SUBPROGRAM STEP ADVANCE)
 - G91
 - #200=[#200+#251]
 - ;M98 P12 L#244(CALL PECK)
 - O1 REPEAT [#244]
 - O12 CALL
 - O1 ENDREPEAT
 - G90
 - G0Z[#1+#4]
 - ;M1
 - G0Z[#200+#4]
 - ;M1
 - G91
 - G1Z[#4*-1]
 - ;M1
 - G90
 - ;M99 ( SUBPROGRAM RETURN )
 - O11 ENDSUB
 - ;*******************************************
 - ;*******************************************
 - O12 SUB (SUBPROGRAM PECK)
 - G91
 - G1Z#252
 - ;M1
 - G0Z[#243*-1]
 - ;M1
 - G1Z#243
 - ;M1
 - G90
 - ;M99 ( SUBPROGRAM RETURN )
 - O12 ENDSUB
 - ;*******************************************
 - ;*******************************************
 - O20 SUB (SUBPROGRAM BORING MULTI PASS)
 - G90
 - G0X#241
 - G0Z#240
 - #200=#240
 - #201=#241
 - #202=[[[#243-#241]-#245]/#244]
 - #203=#202
 - M98 P21 L#244 (CALL SUB BORING)
 - G0Z[#1+#4]
 - ;M0
 - G0Z#240
 - G0X#243
 - G1Z#242
 - G0
 - G91X-0.01
 - G90
 - ;M1
 - G0Z#240
 - G1
 - G90
 - O20 ENDSUB
 - ;M99 ( SUBPROGRAM RETURN )
 - ;*******************************************
 - ;*******************************************
 - O21 SUB (SUB SUBPROGRAM BORING SINGLE PASS THEN GO TO START)
 - G90
 - G0Z#240
 - G0X[#241+#203]
 - G1Z#242
 - G0
 - G91X-0.01
 - G90
 - G0Z#240
 - G1
 - #203=[#203+#202]
 - G90
 - G90
 - ;M99 ( SUBPROGRAM RETURN )
 - O21 ENDSUB
 - ;*******************************************
 - ;*******************************************
 - O22 SUB (SUBPROGRAM BORING SINGLE PASS WITH 0.01 PULL BACK THEN GO TO START)
 - G90
 - G0X#241
 - G0Z#240
 - G0X#243
 - G1Z#242
 - G91X-0.01
 - ;F0.003
 - ;G1Z0.15
 - G90
 - ;M1
 - ;F0.003
 - G0Z#240
 - G90
 - ;M99 ( SUBPROGRAM RETURN )
 - O22 ENDSUB
 - ;*******************************************
 - O23 SUB (SUBPROGRAM BORING SINGLE PASS STOP AT END CUT)
 - G90
 - G0X#241
 - G0Z#240
 - G0X#243
 - G1Z#242
 - ;G91X-0.01
 - ;G90
 - ;M1
 - ;F0.003
 - ;G1Z#240
 - G90
 - ;M99 ( SUBPROGRAM RETURN )
 - O23 ENDSUB
 - ;*******************************************
 - ;*******************************************
 - O24 SUB (SUBPROGRAM BORING SINGLE PASS AND BACK CUT 0.225 THEN PULL BACK 0.01 GO TO START)
 - G90
 - G0X#241
 - G0Z#240
 - G0X#243
 - G1Z#242
 - G91
 - F0.003
 - G1Z0.225
 - ;G90
 - ;M1
 - ;F0.003
 - X-0.01
 - G90
 - ;G0Z#240
 - G0
 - G90
 - ;M99 ( SUBPROGRAM RETURN )
 - O24 ENDSUB
 - ;*******************************************
 - O30 SUB (LATHE FILLET INTERNAL BORING CORNER LATHE)
 - G90
 - X#301 Z#302
 - G02 X[#301-[#303]] Z[#302-[#303]] I0 K[[#303]*-1] ;J2 [[#3/2]*-1]
 - G80
 - G90
 - M99 ( SUBPROGRAM RETURN )
 - O31 (LATHE FILLET EXTERNAL CORNER LATHE)
 - G90
 - X#301 Z#302
 - G03 X[#301+[#303]] Z[#302-[#303]] I0 K[[#303]*-1] ;J2 [[#3/2]*-1]
 - G80
 - G90
 - ;M99 ( SUBPROGRAM RETURN )
 - O30 ENDSUB
 - ;*******************************************
 - ;*******************************************
 - O500 SUB (CUTTING STOCK DOWN TO SIZE)
 - #205=[#205+#202]
 - G90
 - G0X#203
 - G0Z#200
 - ;G91
 - G0X[#203-#205] ;[#205*-1]
 - ;G90
 - G1Z#201
 - G1X[#203+.01]
 - G0Z#200
 - ;M99
 - O500 ENDSUB
 - ;*********************************************************************************************************************************************
 - G18 G40 G49 G90 G94 G80 G64 G8
 - M3
 - G20
 - G95
 - S1000
 - F0.006
 - (JOB 1 ZERO NUMBER 1 CUTTER, RUN IT UP TO ZERO AND HIT ZERO)
 - ;M0
 - M6 T1 ;LOAD CUTTER
 - ;M6 T1 ;ZERO CUTTER
 - M0
 - G0Z0.1
 - ;M98 P10 L6( SUBPROGRAM CALL )
 - (JOB 2 FACE )
 - G0 X[#3+#4]
 - Z0
 - G90
 - G1 X-0.035
 - G90
 - G0 Z0.03
 - (JOB 2B DIA REDUCE )
 - F0.006
 - G0 X[[#11/2]-.025]
 - G0 Z0
 - G1Z-0.03 X[[#11/2]-.00]
 - G1Z[[#12+0.125]*-1]
 - G0 X[#3+#4]
 - G0 Z[#1+4]
 - ;************************************************************
 - G20
 - G95
 - M6 T29(JOB 2 CENTER DRILL )
 - #4=0.03
 - F0.004
 - X0
 - (JOB 2 CENTER DRILL )
 - #240=#20 ;STARTING DEPTH OF DRILLING
 - #241=#21 ;DEPTH
 - #242=#22 ;NUMBER OF PULLOUTS
 - #243=#23 ;PECK RETRACT
 - #244=#24 ;NUMBER OF PECKS PER PULLOUTS
 - ;M98 P10 (CALL DRILL)
 - O10 CALL
 - G00
 - G90
 - G0Z[#1+2]
 - ;****************************
 - M6 T39 ;3131 ;T3434
 - F0.003
 - (JOB 3 0.144 DRILL )
 - #240=#1 ;STARTING DEPTH OF DRILLING
 - #241=[[#12+0.125]*-1] ;DEPTH
 - #242=1 ;NUMBER OF PULLOUTS
 - #243=-0.01 ;PECK RETRACT
 - #244=1 ;NUMBER OF PECKS PER PULLOUTS
 - ;M98 P10 (CALL DRILL)
 - O10 CALL
 - G00
 - G90
 - G0Z[#1+0.25]
 - ;*********************************
 - (JOB 6 CUTOFF CYCLE )
 - (TOOL #8 3.25 LENGTH - 1/8 WIDE CUTOFF )
 - ( )
 - N98 M6 T8 ;M06
 - F0.002
 - G90
 - G0X[#3+#4]
 - G0Z[#12*-1]
 - ( )
 - (CUTOFF)
 - G01 X-0.01
 - G00 X[#3+#4]
 - Z0
 - M02
 
Advertisement
 
                    Add Comment                
                
                        Please, Sign In to add comment