機械社區(qū)

 找回密碼
 注冊會員

QQ登錄

只需一步,快速開始

搜索
查看: 10875|回復: 27
打印 上一主題 下一主題

學生課題《橢圓面上加工圓弧螺紋》

[復制鏈接]
跳轉到指定樓層
1#
發(fā)表于 2012-4-18 21:02:52 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式

本帖子中包含更多資源

您需要 登錄 才可以下載或查看,沒有帳號?注冊會員

x
回復

使用道具 舉報

2#
發(fā)表于 2012-4-18 21:05:28 | 只看該作者
曬曬程序,我們菜鳥學習學習!{:soso_e113:}
回復 支持 反對

使用道具 舉報

3#
 樓主| 發(fā)表于 2012-4-18 21:10:19 | 只看該作者
lukexc 發(fā)表于 2012-4-18 21:05
- l2 I5 s( x# ]: Y' T曬曬程序,我們菜鳥學習學習!
2 q" Z+ J. T4 W" `
這程序是學生辛辛苦苦編的,也算是個人財產呀!{:soso_e101:}。。你懂得
回復 支持 反對

使用道具 舉報

4#
發(fā)表于 2012-4-18 21:25:57 | 只看該作者
數控之巔 發(fā)表于 2012-4-18 21:10
5 b2 i& R+ b8 y/ g這程序是學生辛辛苦苦編的,也算是個人財產呀!。。你懂得
3 n9 s2 ?& R6 T3 R
喔,原來如此!
: |2 H& N7 d; U# F4 b; A那我來發(fā)個咋樣呢?( p/ F9 i* o, ^0 h. k+ \% J/ x

4 s1 G' s$ S* R$ Ffile:///C:/Users/ADMINI%7E1/AppData/Local/Temp/msohtml1/01/clip_image002.jpgfile:///C:/Users/ADMINI%7E1/AppData/Local/Temp/msohtml1/01/clip_image002.jpg加工此工件時,已知橢圓方程為:(file:///C:/Users/ADMINI%7E1/AppData/Local/Temp/msohtml1/01/clip_image002.gif)螺旋線的導程為7.5㎜,槽深為3㎜,槽寬為6㎜。車螺旋槽時用R3的成型刀寬加工。加工螺紋時刀具延長7.5㎜和車過7.5㎜。" g' h8 G1 K( G# r
加工起點的z值坐標為18.75mm
. \/ @! [7 j& {
加工螺紋起點的X軸坐標為:
X=file:///C:/Users/ADMINI%7E1/AppData/Local/Temp/msohtml1/01/clip_image004.gif=56.995
起點直徑:(56.995-(60-40.5))*2=74.99mm
程序編制如下:
  1. O0005;                   (加工主程序)6 W3 B0 B  h1 f" M
  2. # O4 x/ P, ?- C$ x/ F  _  N& {' n0 |
  3. G99 T0101;               (轉進給)
    0 g! z) |/ ]* ^# _, p0 C: H
  4. ! D3 F2 o  R* r) I! M; d5 y2 W
  5. M41;                     (換主軸低檔)
    0 X/ V: p0 p4 o5 [6 Q5 {% F- p
  6. ) ^8 w9 e: b! t6 p$ C, {1 p' @' S) l
  7. M03 S60;                 (主軸正轉)& j% L: q4 p' d7 a( M) M" {

  8. % x% F! U( Z  I. ~
  9. G00 X100 Z-10;           (靠近工件到加工起點)
    $ x! m/ L. m  K( y

  10. 8 I8 J+ e% l5 t3 _) q. Q  ?* Y
  11. #1=-0.5;                 (#1變量為第一刀的切深)& [) H8 K6 i3 r) C

  12. 2 F4 H( v# `' Z
  13. N10 G65 P9012 C18.75 K0.8 D-18.75 E#1 U-19.5 W-11.25 ;(宏程序非模態(tài)調用,并賦值C(#3):起點的Z值;K(#6):Z方向每次的遞減值;D(#7):終點的Z值;E(#8):切深;U(#21):圓的原點在工件坐標系中X軸的坐標值;W(#23): 圓的原點在工件坐標系中Z軸的坐標值。)
    1 b: K( w$ A1 y: D, ^$ i

  14. 4 ?  F& c0 W/ d5 Q, b. l% ^" U
  15. #1=#1-0.2;                (變量切深每次遞減0.2mm)
    4 h% A/ Q& l) W% k, Z8 ?2 \7 [
  16. ) c. g% N  V% H: t8 j2 q
  17. IF[#1GE-3] GOTO 10;      (切深判斷,當切深大于等于-5時轉移到N10程序段)6 D, E( O0 [! D. I2 E8 e: a
  18. 8 U5 ^& v) \, k
  19. G00 X200 Z10;            (加工完畢退刀)$ D% X6 `. R" \3 H* d
  20. 1 l3 v& q9 q  t: W& K
  21. M05;                     (主軸停止)0 F/ C' j+ w1 b; p  s+ d! Y( ~, D
  22. " o% C% s$ c2 g0 w2 f
  23. M30;                     (程序結束)
    8 D" p* h" O' K( b% Y$ y) L: I
  24. 0 k7 O# v2 `9 _# C7 A
  25. O90012;                  (用戶宏程序名)
    8 T9 ~4 r( b8 O6 K; l# @

  26. ' b! {8 u. o8 n+ ~# x* C" F* g% c
  27. G00 X[74.99+#8] Z7.5;       (進刀到加工起點)1 E/ l% {0 |7 S6 O7 |

  28. - r9 c4 G& g" j3 y7 {! ~3 g
  29. N1 #3=#3-#6;             (Z值遞減)" J+ ~& g/ M, m/ b5 P# s

  30.   L9 G& ~, v6 U
  31. #30=SQRT[3600-#3*#3];(計算每部X值的坐標并賦值給#30)7 u3 x% ~/ H& f) o3 D
  32. 1 k: i& \6 G$ j" h1 R' P& S* s- c2 n
  33. G32 X[[#30+#8+#21]*2] Z[#3+#23] F7.5;(螺紋插補,并進行坐標轉換)
    % H$ F1 i+ q  n5 X
  34. : b4 h- ^+ @/ y' j
  35. IF[#3GE#7] GOTO1;          (終點判斷,如果終點Z值大于等于#7,則轉移到N1程序段)
    1 Q3 G+ w; A3 R1 ]& b& p2 W& {% u( I0 j

  36. 5 q& ^4 m3 @9 m( u; w7 x0 M4 \
  37. G00 X100;                  (徑向退刀)8 W. A* j; e, Y1 {" S$ b( J( p6 O- W
  38. 1 H/ P, \) [" J+ L# w
  39. Z7.5;                      (軸向退刀)
    * t+ u, f! G# q, G5 A  d! h
  40. 2 A- W1 J1 U+ ^- J* A
  41. M99;                       (宏程序結束)
復制代碼
$ Q/ D9 K  Q4 \, M  S2 K+ V

0 z! j; ~- |( J3 q) S9 J! f
注意:
工件的原點選在了螺紋的右端面,因為該圖不完整,如果選的原點不再螺紋的右端面需要改正O0005程序N10中U和W值和O90012中進刀起點和退刀起點。
加工時由于各種機床的性能不同需要改正工件的轉速或者調整機床的一些必要參數,否則可能產生亂牙現象。
) d8 v; O% {* P. Z) T8 q# B! I2 S7 D

3 j: m6 n2 o, i

本帖子中包含更多資源

您需要 登錄 才可以下載或查看,沒有帳號?注冊會員

x
回復 支持 反對

使用道具 舉報

5#
 樓主| 發(fā)表于 2012-4-18 21:31:48 | 只看該作者
lukexc 發(fā)表于 2012-4-18 21:25
2 N* _# {/ V) g: \2 o喔,原來如此!
2 s* D- W) l" \  I- u) |那我來發(fā)個咋樣呢?

0 Q: x% A9 H" {5 ]2 \成形刀加工的沒意思{:soso_e113:}

點評

游客
  發(fā)表于 2012-4-18 21:40
用宏程序把R3編寫出來,包絡法加工!  發(fā)表于 2012-4-18 21:40
回復 支持 反對

使用道具 舉報

6#
 樓主| 發(fā)表于 2012-4-18 21:44:50 | 只看該作者
數控之巔 發(fā)表于 2012-4-18 21:31 ! h9 G" ~( X) O$ @
成形刀加工的沒意思

. u  K# u) u0 v: u! V1 p{:soso_e101:}  我不懂包絡法  你遍吧  向你學習{:soso_e132:}
回復 支持 反對

使用道具 舉報

7#
發(fā)表于 2012-4-19 12:28:08 | 只看該作者
高手碰到高手了。。。。!期待..........................
回復 支持 反對

使用道具 舉報

8#
發(fā)表于 2012-4-19 14:42:43 | 只看該作者
宏程序看多啦--------------------還真有點意思
回復 支持 反對

使用道具 舉報

9#
發(fā)表于 2012-4-19 17:47:22 | 只看該作者
樓主只發(fā)圖不發(fā)程序,是不是有點顯擺呀!
回復 支持 反對

使用道具 舉報

10#
 樓主| 發(fā)表于 2012-4-19 19:24:08 | 只看該作者
我顯擺有意思嗎??1,這是學生做的不是我做的,2、我拿學生的程序發(fā)在這個上面算我侵權嗎?? 3、我沒有通過它的同意發(fā)程序道德嗎?  4、你覺得我顯擺你可以自己做點JP的來顯擺,我可以向你學習。  5 、再說這個零件加工在這個論壇里高手會的多的是、像 一生、大壞蛋、數控達人、等高手; c) P! E5 k2 _8 w; A  j& G. E  f

8 S" F* J6 y% W   我就發(fā)下我以前做的程序給大家共享 看看  注:有的地方省略的* t3 A* i* F' Z9 N9 l

  G& T! u3 H  _2 `5 w: q8 S6 b#103=0
8 a( u7 V  h( |7 f0 X. H#104=0
; F, \% O* B2 \( RN1#1=0
/ Q7 B  o2 f; c' v#2=0   x7 ]1 U' [! H% C- X4 L9 B
#3=0 7 I2 m* e/ I& c" |9 L9 A- B) U" @
#4=0
' W: j- f# q/ J1 r5 _#7=0 3 N: D+ I! ^1 X6 z
#11=0- L  i* W# _  Y( n/ [+ b! ~5 w4 F& t
#12=08 f8 i& Z  }4 _  }6 i
#13=62
( ]9 F5 \; e+ f$ E1 s( {#14=4! ^1 h; Q. z( r" n
#15=#14-#1
. {% \$ G. F6 Z. zG0X#13Z#11 / @% `7 ^1 X; b; Q, v3 R1 |
N2#5=TAN[#3]*#2
5 ]+ Z  l; O! z#6=TAN[#4]*#20 C2 L5 s7 D& q# ?
G0Z[#11-#5]5 l# H+ [1 `  q+ w% ^
X[#7+#2*2] , H  Y2 N% _1 x* W0 z) U
G32Z-[#20+1+#1]F[#12]
4 }  \5 t  j- Y! m0 n9 u5 tG0X#13 & N/ W5 P5 q; U; q& q
Z#11 - S6 Q- z9 Y  T, V$ H
IF[#5GE#1]GOTO3
: m( U# P4 S+ fN12#8=TAN[#3]*#2
) u9 g( e9 L4 Y( M3 l#9=TAN[#4]*#2* ?4 S) `, g9 B5 j. B5 x$ c
#21=#8+#14+#95 f- W5 Z3 d& E, ^
IF[#21GT[2*#1]]GOTO105 [% c3 g, d( C/ a3 t
N6G0X[#7+#2*2]
& u" L& o& j; LZ[#11+#14-#1+#6]
6 [! Z5 ~0 ~! R2 [1 @7 P: q' TG32Z-[#20+1+#1]F[#12]) d1 R! g7 |5 G, k1 j2 F
G0X#13
  y  ]4 k! S) J/ |+ FZ#11 3 }  x; N) M/ N5 z+ o
IF[#6GE#1]GOTO44 B- h, R9 w. ?: [0 b. ~" p
N8#2=#2-0.05
7 \, W' i$ J& v/ x2 G, ?, oIF[#2GE0]GOTO2 ( q% U& j. d. Q5 O0 m8 p) n
#103=#103+#104 ' g3 v$ b1 y2 H
IF[#103EQ0]GOTO9
8 ^' z% ~1 h* M: T$ ?IF[#103LE360000]GOTO1! u4 y7 \8 e" G' Z0 n
N9M
" l" C- }* h0 N# l# Y+ ]. _% O7 R. r# N
, _* F/ x4 B4 {# X  P
N3#100=#1-1
, e" ~6 H: Y( }8 G. {/ NN5G0X[#7+#2*2]
/ o1 \/ F! g9 M' }! _5 kZ[#11-#5+#100]
7 `0 O: X8 u5 I/ I: V5 |6 c" QG32Z-[#20+1+#1]F[#12]- U# f6 v3 ~% c# B7 x% j) b
G0X#13
, ?  T1 G) T! Z6 p; l, m: ^Z#11 1 q( r' o" l' F2 l. `
#5=#5-#100 $ |2 P% T' j1 W5 R5 k5 l5 O
IF[#5LT#100]T#100=#5' d3 x) O7 H$ G+ d' t5 x
IF[#5GT0]GOTO5 0 _1 x$ U' [& {" y' A0 J! ^2 H
GOTO12
/ v2 I+ r- U6 J5 R: ?/ ?! @N10#102=0
$ d( B( l1 f; P' \5 UN11G00X[#7+#2*2]
; l: ?) s; u8 a% U! q$ T( X9 L/ `. SZ[#11+#102]
, Z- x& g* \6 X% V. FG32Z-[#20+#1+1]F[#12]
. a3 n7 w0 H6 J2 eG00X#136 T( M7 j) {# b- G5 ~+ n
Z#11
( B$ n* e5 g0 p2 g( `* g3 YIF[#102EQ#15]GOTO6
2 O, T" k" g* v' l#102=#102+[#1-1]
/ n' k7 e, F# G4 M# ]9 m' r; S4 EIF[#102GT#15]T#102=#15
- n- D& m0 ?8 k6 C4 }, o1 ?5 mIF[#102LE#15]GOTO11& e. ?5 R0 P0 n% M& h+ y0 u! b$ ^
N4#101=#1-1; W3 g- l# v' E5 c# W
N7G0X[#7+#2*2]
- ]$ z+ J. k% }! B& q( t& WZ[#11+#14-#1+#6-#101]
( O% J5 ], N. I& ~7 fG32Z-[#20+1+#1]F[#12]
( W1 p) X! |8 o* S) U! mG0X#13 ! j; {; Q/ \+ }6 y/ P9 n* r$ _
Z#11
: B# c% p9 n* s0 C5 K#6=#6-#101 / ^+ |4 ^, u0 p! N+ c0 X
IF[#6LT#101]T#101=#6! Q( f0 P8 G) X9 j* y# y
IF[#6GT0]GO7
2 h- u1 t0 d- t" V) RGOTO8
% G& l2 ^! c3 b3 o7 X( U
回復 支持 反對

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 注冊會員

本版積分規(guī)則

小黑屋|手機版|Archiver|機械社區(qū) ( 京ICP備10217105號-1,京ICP證050210號,浙公網安備33038202004372號 )

GMT+8, 2024-11-16 14:40 , Processed in 0.059571 second(s), 20 queries , Gzip On.

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回復 返回頂部 返回列表