Advertisement
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
Advertisement