API tools faq
paste
Advertisement
Guest User

Untitled

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