API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Nov 7th, 2012
88
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.79 KB | None | 0 0
raw download clone embed print report diff
  1.  
  2. (ROTORY TABLE STEPPER MOUNT PROFILE.NC)
  3. ( LinuxCNC - ENGLISH)
  4. (WED. 03/26/2008 04:17PM)
  5.  
  6. ;Zero AT END OF STOCK
  7.  
  8. ;*******************************************
  9.  
  10. ;O10 (SUBPROGRAM DRILL)
  11. o10 sub
  12. G91
  13. #250=#240 ;STARTING DEPTH OF DRILLING
  14. ;#251=[#241/#242] ;DEPTH PER PULLOUT
  15. ;#252=[#251/#244] ;DEPTH PER PECK
  16. #200=#250
  17. #201=[#242-1]
  18. G90
  19. G0Z[#250+#4] ;Z0 START END OF STOCK + CUT START OFFSET
  20. ;M0
  21. G1Z#250
  22. ;M0
  23. G91
  24. ;M98 P11 L#201(CALL DRILL STEP)
  25. ;M98 P12 L#244(CALL PECK)
  26. G90
  27. ;M1
  28. G4P100
  29. G0Z[#1+#4]
  30. ;M1
  31. G90
  32. ;M99 ( SUBPROGRAM RETURN )
  33. o10 endsub
  34. ;*******************************************
  35.  
  36.  
  37.  
  38. ( T1 LEFT HAND TRIANGLE CARBIDE CUTTER)
  39. ( T2 RIGHT HAND TRIANGLE CARBIDE CUTTER)
  40. ( T3 RIGHT HAND DIAMOND CARBIDE CUTTER)
  41.  
  42. ( T8 HSS CUT OFF)
  43. ( T9 CARBIDE CUT OFF)
  44.  
  45. ( T30 CENTER DRILL , DIAMETER = .5 , LENGTH = 5.)
  46. ( T31 DRILL , DIAMETER = .4375 7/16, LENGTH = 5.)
  47. ( T32 DRILL , DIAMETER = 1/4 .25 , LENGTH = 5.)
  48. ( T34 DRILL , DIAMETER = 1/2 .5, LENGTH = 5.)
  49. ( T36 DRILL , DIAMETER = 21/64 , LENGTH = 5.)
  50.  
  51.  
  52. ( T30 CENTER DRILL , DIAMETER = .3/16 , LENGTH = 5.)
  53. ( T41 BORING BAR H8273 0.433 MINIMUM)
  54. ( T50 INTURNAL THREADING BAR H8274 0.433 MINIMUM)
  55. ( T51 INTURNAL THREADING BAR H??? ?? MINIMUM, NEXT SIZE UP)
  56. ( T98 INTURNAL GROOVING BAR )
  57. ( T99 INTURNAL BORING BAR )
  58.  
  59.  
  60. #1=0 ;Z0 START END OF STOCK
  61. #2=0 ;X0 START CENTER OF STOCK
  62. #3=[[3.]/2] ;RAIDIUS OF BLANK
  63. #4=0.03 ;CUT START OFFSET
  64. #5=0.02 ;STOCK FEED OFSET FOR NEW PART
  65. #6=[#3-0.1] ;X FOR STOCK FEED OPERATIONS
  66. #7=0.03 ;X CENTER OVER FEED FOR COMPLETE CUT
  67. #8=0
  68. #9=0
  69. #10=0.05 ;CLEARANCE
  70.  
  71. ;DRILLING CENTER DRILL
  72. #20=#1 ;STARTING DEPTH OF CENTER DRILLING
  73. #21=-0.07 ;DEPTH OF CENTER DRILL STARTING THREAD HOLE
  74. #22=1 ;CENTER DRILL, NUMBER OF PULLOUTS
  75. #23=-0.01 ;RETRACT OF CENTER DRILL
  76. #24=3 ;NUMBER OF PECKS PER PULLOUT
  77.  
  78.  
  79. ;DRILLING HOLE .25
  80. #25=#1 ;STARTING DEPTH OF DRILLING
  81. #26=[[#1+.1]*-1] ;DEPTH OF DRILLING ROUGH HOLE;
  82. #27=4 ;DRILLING, NUMBER OF CLEANING PULLOUTS
  83. #28=-0.01 ;RETRACT OF DRILL
  84. #29=2 ;NUMBER OF PECKS PER PULLOUT
  85. ;
  86. ;THREADING INTERNAL
  87. #50=14 ;TPI
  88. #51=-.425 ;DEAPTH TO RUN THE THREADS
  89. #52=[0.834] ;SIZE OF THREAD
  90. #53=3 ;NUMBER OF SPRING PASSES
  91. #54=[0.54127*[1/#50]] ;HIEGHT OF INTERNAL THREAD
  92. #55=[1/#50] ;PITCH OF THREADS
  93. #56=[[[#52/2]-#54]+0.00] ;RAIDIUS OF START FOR THREADING
  94. #57=[[#52/2]+0.006] ;0.2813 RAIDIUS OF FINAL THREAD DEPTH OF THREADING CM 0.2875 SS0.286
  95.  
  96. ;BORING BARS FIRST CUT
  97. #30=-0.625 ;DEPTH OF HOLE
  98. #31=0.29 ;RAIDIUS OF FINAL CUT
  99. #32=0.29 ;[0.875/2] ;[[7/16]/2] ;RADIUS TO USE FOR START OF CUT
  100. #33=0 ;NUMBER OF CUTS
  101. #34=0 ;SIZE OF FINAL CUT
  102.  
  103. ;BORING BAR 2 SECOND CUT FOR NIPPLE
  104. #35=-0.715 ;DEPTH OF HOLE
  105. #36=[0.693/2] ;RAIDIUS OF FINAL CUT .696
  106. #37=[0.693/2] ;[[7/16]/2] ;RADIUS TO USE FOR START OF CUT .696
  107. #38=0
  108. #39=0
  109.  
  110. ;BORING BAR 3 LAST CUT FOR THREAD
  111. #40=-0.425 ;DEPTH OF HOLE
  112. #41=[#56+0.0] ;RAIDIUS OF FINAL CUT
  113. #42=[#56+0.0] ;[[7/16]/2] ;RADIUS TO USE FOR START OF CUT
  114. #43=0 ;NUMBER OF CUTS
  115. #44=0 ;SIZE OF FINAL CUT
  116.  
  117. ;;BORING BAR 4
  118. ;#45=-? ;DEPTH OF HOLE
  119. ;#46=? ;RAIDIUS OF FINAL CUT
  120. ;#47=? ;[[7/16]/2] ;RADIUS TO USE FOR START OF CUT
  121. ;#48=0
  122. ;#49=0
  123. ;
  124.  
  125.  
  126. #64=#40 ;Z OF 45 DEG START
  127. #65=#41 ;X of 45 DEG START
  128. #66=-0.45 ;Z OF 45 DEG END
  129. #67=[0.700/2] ;X of 45 DEG END
  130.  
  131.  
  132. #61=#67 ;X
  133. #62=#66 ;Z
  134. #63=.015 ;RADIUS
  135.  
  136. #68=[0.8/2] ;X
  137. #69=0 ;Z
  138. #70=0.1;RADIUS
  139.  
  140.  
  141. ;CONVERT TO RADIUS
  142. #4=[#4/2]
  143. #5=[#5/2]
  144. #8=[#8/2]
  145.  
  146.  
  147. ;CALCULATED VALUES
  148. #200=0
  149. #201=0
  150. #202=0
  151. #203=0
  152. #204=0
  153. #206=0
  154. #207=0
  155. #208=0
  156. #209=0
  157. #210=0
  158.  
  159. ;TEMP PLACE HOLERS
  160. #240=0
  161. #241=0
  162. #242=0
  163. #243=0
  164. #244=0
  165. #245=0
  166. #246=0
  167. #247=0
  168. #248=0
  169. #249=0
  170. #250=0
  171.  
  172.  
  173.  
  174. G18 G40 G49 G90 G94 G80
  175. M3
  176. G20
  177. G95
  178. S250
  179. F0.006
  180.  
  181. (JOB 1 ZERO NUMBER 1 CUTTER, RUN IT UP TO ZERO AND HIT ZERO)
  182. ;M0
  183. T1M6 ;LOAD CUTTER
  184. G0Z0.1
  185. ;M98 P10 L6( SUBPROGRAM CALL )
  186. o10 call
  187.  
  188. (JOB 2 FACE )
  189.  
  190.  
  191. G0 X[#3+#4]
  192. Z0
  193. G91
  194. G1 X-0.35
  195. G90
  196. G0 Z0.03
  197.  
  198. (JOB 2B DIA REDUCE )
  199.  
  200. F0.006
  201. G0 X[#3-.035]
  202. G0 Z0
  203. G1Z-0.03 X[#3-.005]
  204. G0 X[#3-.005]
  205. G1Z-0.575
  206. ;G91
  207. G1 X[2.95/2]
  208. Z-0.76
  209. ;G1 X-0.35
  210. ;G90
  211. G0 X[#3+#4]
  212.  
  213. G0 Z1.5
  214.  
  215.  
  216. (JOB 3 BORE ID)
  217.  
  218. T9M6
  219. F0.006
  220. G0X[2.51/2]
  221. Z#4
  222. G1Z-0.7
  223. G0 X[[2.51/2]-#4]
  224. G0 Z#4
  225.  
  226.  
  227.  
  228. (JOB 4 CUT FRONT STEP )
  229.  
  230. F.006
  231.  
  232. #240=[#1+#4] ;Z STARTING DEPTH
  233. #241=[2.536/2] ;#42 ;0.25 ;X STARTING RAIDUS
  234. #242=-0.09 ;Z END DEPTH
  235. #243=[2.774/2] ;#41 ;X END RAIDUS
  236. #244=4 ;NUMBER CUTS
  237. #245=0 ;LAST CUT DEPTH
  238. #246=0 ;TAPER START
  239. #247=0 ;TAPER END
  240.  
  241. ;G0Z#240
  242. ;X#241
  243. ;G1Z#241
  244.  
  245. M98 P20 (CALL BORING)
  246. G0Z#4
  247. ;CUT FRONT TAPER
  248.  
  249. G0 X[[2.774/2]+0.035]
  250. Z0
  251.  
  252.  
  253. Z-0.01G1 X[[2.774/2]+0.025]
  254.  
  255. G1 Z-0.1 X[2.774/2]
  256.  
  257. F0.004
  258. G1X[[2.533/2]+0.02]
  259. G1Z-0.12X[2.533/2]
  260. ;Z#4
  261. G1Z-0.7
  262. G0 X[[2.533/2]-#4]
  263. G0 Z#4
  264.  
  265.  
  266. ;G1 G91X-0.2
  267. ;G90
  268.  
  269.  
  270. G0 Z1
  271.  
  272. (JOB 5 ORING GROVE )
  273.  
  274.  
  275. T9898
  276. F0.002
  277.  
  278. G0X[[2.51/2]-#4]
  279. Z-0.406
  280. G1 X[2.718/2]
  281. G4 P500
  282.  
  283. F0.01
  284. G1X[[2.51/2]-#4]
  285. F0.004
  286. Z[-0.406-0.02]
  287. X[2.51/2]
  288. Z-.406X[[2.51/2]+.01]
  289.  
  290. F0.01
  291. G1X[[2.51/2]-#4]
  292. F0.004
  293. Z[-0.406+0.02]
  294. X[2.51/2]
  295. Z-.406X[[2.51/2]+.01]
  296. G0X[[2.51/2]-#4]
  297.  
  298.  
  299. G0
  300. Z0.25
  301.  
  302. (JOB 6 BACK STEP )
  303. T8M6
  304. F0.003
  305.  
  306. G0 X[#3+#4]
  307. Z-0.504
  308. G1 X[2.946/2]
  309. Z-0.635
  310. F0.01
  311. G1 X[#3+#4]
  312.  
  313. (JOB 7 CUTOFF )
  314. F0.002
  315. ;G0 X[#3+#4]
  316. ;Z-0.635
  317. G1 X[2.85/2]
  318. G0 X#3
  319. Z[-0.635+0.03]
  320. G1 X[2.95/2]
  321. G1 Z-0.635X[[2.95/2]-0.02]
  322. G1 X[2.45/2]
  323. F0.01
  324. G1 X[#3+#4]
  325. G0
  326. Z0.5
  327. X2.85
  328.  
  329. G00
  330. ;M98 P11 ( SUBPROGRAM CALL )
  331. G00
  332.  
  333. G00
  334. ;X0 Y0 A0
  335. M30
  336.  
  337.  
  338.  
  339. ;*******************************************
  340.  
  341. O11 (SUBPROGRAM STEP ADVANCE)
  342. G91
  343. #200=[#200+#251]
  344. M98 P12 L#244(CALL PECK)
  345. G90
  346. G0Z[#1+#4]
  347. ;M1
  348. G0Z[#200+#4]
  349. ;M1
  350. G91
  351. G1Z[#4*-1]
  352. ;M1
  353. G90
  354. M99 ( SUBPROGRAM RETURN )
  355. ;*******************************************
  356. ;*******************************************
  357.  
  358. O12 (SUBPROGRAM PECK)
  359. G91
  360.  
  361. G1Z#252
  362. ;M1
  363. G0Z[#243*-1]
  364. ;M1
  365. G1Z#243
  366. ;M1
  367. G90
  368. M99 ( SUBPROGRAM RETURN )
  369. ;*******************************************
  370. ;*******************************************
  371.  
  372. O20 (SUBPROGRAM BORING MULTI PASS)
  373. G90
  374. G0X#241
  375. G0Z#240
  376. #200=#240
  377. #201=#241
  378. #202=[[[#243-#241]-#245]/#244]
  379. #203=#202
  380.  
  381. M98 P21 L#244 (CALL SUB BORING)
  382. G0Z[#1+#4]
  383. ;M0
  384. G0Z#240
  385. G0X#243
  386. G1Z#242
  387. G0
  388. G91X-0.01
  389. G90
  390. ;M1
  391. G0Z#240
  392. G1
  393. G90
  394. M99 ( SUBPROGRAM RETURN )
  395. ;*******************************************
  396. ;*******************************************
  397.  
  398. O21 (SUB SUBPROGRAM BORING SINGLE PASS THEN GO TO START)
  399. G90
  400. G0Z#240
  401. G0X[#241+#203]
  402. G1Z#242
  403. G0
  404. G91X-0.01
  405. G90
  406. G0Z#240
  407. G1
  408. #203=[#203+#202]
  409. G90
  410.  
  411. G90
  412. M99 ( SUBPROGRAM RETURN )
  413. ;*******************************************
  414.  
  415. ;*******************************************
  416.  
  417. O22 (SUBPROGRAM BORING SINGLE PASS WITH 0.01 PULL BACK THEN GO TO START)
  418.  
  419. G90
  420. G0X#241
  421. G0Z#240
  422. G0X#243
  423. G1Z#242
  424. G91X-0.01
  425. ;F0.003
  426. ;G1Z0.15
  427. G90
  428. ;M1
  429. ;F0.003
  430. G0Z#240
  431. G90
  432. M99 ( SUBPROGRAM RETURN )
  433. ;*******************************************
  434.  
  435. O23 (SUBPROGRAM BORING SINGLE PASS STOP AT END CUT)
  436.  
  437. G90
  438. G0X#241
  439. G0Z#240
  440. G0X#243
  441. G1Z#242
  442. ;G91X-0.01
  443. ;G90
  444. ;M1
  445. ;F0.003
  446. ;G1Z#240
  447. G90
  448. M99 ( SUBPROGRAM RETURN )
  449. ;*******************************************
  450. ;*******************************************
  451.  
  452. O24 (SUBPROGRAM BORING SINGLE PASS AND BACK CUT 0.225 THEN PULL BACK 0.01 GO TO START)
  453.  
  454. G90
  455. G0X#241
  456. G0Z#240
  457. G0X#243
  458. G1Z#242
  459. G91
  460. F0.003
  461. G1Z0.225
  462. ;G90
  463. ;M1
  464. ;F0.003
  465. X-0.01
  466. G90
  467. ;G0Z#240
  468. G0
  469. G90
  470. M99 ( SUBPROGRAM RETURN )
  471. ;*******************************************
  472. O30 (LATHE FILLET INTERNAL BORING CORNER LATHE)
  473. G90
  474. X#301 Z#302
  475. G02 X[#301-[#303]] Z[#302-[#303]] I0 K[[#303]*-1] ;J2 [[#3/2]*-1]
  476. G80
  477. G90
  478. M99 ( SUBPROGRAM RETURN )
  479.  
  480. O31 (LATHE FILLET EXTERNAL CORNER LATHE)
  481. G90
  482. X#301 Z#302
  483. G03 X[#301+[#303]] Z[#302-[#303]] I0 K[[#303]*-1] ;J2 [[#3/2]*-1]
  484. G80
  485. G90
  486. M99 ( SUBPROGRAM RETURN )
  487. ;*******************************************
  488. ;*******************************************
  489.  
  490. O500 (CUTTING STOCK DOWN TO SIZE)
  491. #205=[#205+#202]
  492. G90
  493. G0X#203
  494. G0Z#200
  495. ;G91
  496. G0X[#203-#205] ;[#205*-1]
  497. ;G90
  498. G1Z#201
  499. G1X[#203+.01]
  500. G0Z#200
  501.  
  502. M99
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!