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

數(shù)控之巔

lukexc

曬曬程序，我們菜鳥學習學習！{:soso_e113:}

數(shù)控之巔

lukexc 發(fā)表于 2012-4-18 21:05
曬曬程序，我們菜鳥學習學習！

1 @& s* Q. |2 V: t. G" R這程序是學生辛辛苦苦編的，也算是個人財產(chǎn)呀！{:soso_e101:}。。你懂得

lukexc

數(shù)控之巔 發(fā)表于 2012-4-18 21:10
9 I6 R$ ^: \0 f$ U6 H* S這程序是學生辛辛苦苦編的，也算是個人財產(chǎn)呀！。。你懂得

: x$ k. c! v; `: T喔，原來如此！
那我來發(fā)個咋樣呢？
# s; [# C/ y& ~, f# V- e0 i# X
file:///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㎜。
加工起點的z值坐標為18.75mm
加工螺紋起點的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；                   （加工主程序）
   
2. 
   - ]5 _0 U" h" |6 ~2 ~( V. S
3. G99 T0101；               （轉進給）
   + w- c: `6 |, `, e
4. 
   
5. M41；                     （換主軸低檔）
   9 F7 \# e% @3 U8 [+ W
6. 
   
7. M03 S60；                 （主軸正轉）
   
8. 
   + t! h$ {2 |0 V4 Z' w+ p
9. G00 X100 Z-10；           （靠近工件到加工起點）
   3 n9 s6 y0 c9 {- E. x
10. 
    
11. #1=-0.5；                 （#1變量為第一刀的切深）
    
12. 
    
13. N10 G65 P9012 C18.75 K0.8 D-18.75 E#1 U-19.5 W-11.25 ；（宏程序非模態(tài)調(diào)用，并賦值C（#3）：起點的Z值；K（#6）：Z方向每次的遞減值；D(#7)：終點的Z值；E(#8):切深；U(#21):圓的原點在工件坐標系中X軸的坐標值；W(#23): 圓的原點在工件坐標系中Z軸的坐標值。）
    
14. 
    ; A6 m2 s6 S4 Z( S
15. #1=#1-0.2；                (變量切深每次遞減0.2mm)
    ; p# ]- D1 h  g5 [) [
16. 
    3 G( l) g( c/ Q$ c7 A
17. IF[#1GE-3] GOTO 10；      （切深判斷，當切深大于等于-5時轉移到N10程序段）
    # p( f: }% }5 T: k- z6 Q9 P6 Y* h* k
18. 
    . T/ Z, q4 u4 S$ F2 |) F6 t( R' c- t
19. G00 X200 Z10；            （加工完畢退刀）
      h( ^8 o& z+ I+ ?& G! l, _) e7 n
20. 
    9 Y& V* n+ I" ]6 H5 j9 }
21. M05；                     （主軸停止）
    6 w- X+ H+ v+ o9 @
22. 
    ) h. X' b/ d2 x6 ?6 {. W
23. M30；                     （程序結束）
    
24. 
    
25. O90012；                  （用戶宏程序名）
    
26. 
    - }2 X, z+ {, u, H9 g+ b# D; a- _/ C
27. G00 X[74.99+#8] Z7.5；       （進刀到加工起點）
    ) R' M( Z, N* L5 [: u# M
28. 
    7 f) {- d8 Q5 z) K
29. N1 #3=#3-#6；             （Z值遞減）
    7 u: u, a. H. A% i
30. 
    
31. #30=SQRT[3600-#3*#3]；（計算每部X值的坐標并賦值給#30）
    
32. 
    
33. G32 X[[#30+#8+#21]*2] Z[#3+#23] F7.5；（螺紋插補，并進行坐標轉換）
    1 I( j6 V% w. v& |
34. 
    
35. IF[#3GE#7] GOTO1；          （終點判斷，如果終點Z值大于等于#7，則轉移到N1程序段）
    / {7 h0 `9 E$ n  z  {
36. 
    
37. G00 X100；                  （徑向退刀）
    
38. 
    1 d3 R( b1 y- N8 H% h+ f
39. Z7.5；                      （軸向退刀）
    : Q2 F: t4 Z" ?* t; x
40. 
    
41. M99；                       （宏程序結束）

復制代碼

- x  o/ m' B% F. w

1 }/ M- Z/ t/ O! `6 v, j1 q

注意：

工件的原點選在了螺紋的右端面，因為該圖不完整，如果選的原點不再螺紋的右端面需要改正O0005程序N10中U和W值和O90012中進刀起點和退刀起點。

加工時由于各種機床的性能不同需要改正工件的轉速或者調(diào)整機床的一些必要參數(shù)，否則可能產(chǎn)生亂牙現(xiàn)象。

數(shù)控之巔

lukexc 發(fā)表于 2012-4-18 21:25
% q' _" k5 S% Z$ }! R喔，原來如此！
) i# v3 |9 Y9 K. f! t那我來發(fā)個咋樣呢？

成形刀加工的沒意思{:soso_e113:}

數(shù)控之巔

數(shù)控之巔 發(fā)表于 2012-4-18 21:31
2 B+ W, n5 q! {成形刀加工的沒意思

+ i/ }; }9 V! {{:soso_e101:}  我不懂包絡法  你遍吧  向你學習{:soso_e132:}

數(shù)控學習中

高手碰到高手了！�。。。�！期待..........................

02獵隼

宏程序看多啦--------------------還真有點意思

xvjie1978

樓主只發(fā)圖不發(fā)程序，是不是有點顯擺呀！

數(shù)控之巔

我顯擺有意思嗎？？1，這是學生做的不是我做的，2、我拿學生的程序發(fā)在這個上面算我侵權嗎？？ 3、我沒有通過它的同意發(fā)程序道德嗎？  4、你覺得我顯擺你可以自己做點JP的來顯擺，我可以向你學習。  5 、再說這個零件加工在這個論壇里高手會的多的是、像 一生、大壞蛋、數(shù)控達人、等高手
( E# v9 [$ h" X( `9 K, @! a, e
7 J, B' L% L& g8 x- w   我就發(fā)下我以前做的程序給大家共享 看看  注：有的地方省略的
: U3 M$ T: P* a" m$ X
#103=0
#104=0
0 F% x! ~, C/ O8 t$ aN1#1=0
#2=0
#3=0
#4=0
#7=0
#11=0
; R; \# l4 Y( f, Z/ s/ P, x% U: ?#12=0
$ B3 O7 O' k  R1 e" |& x" _3 z3 B% `#13=62
#14=4
6 ~, _: t5 @3 p1 d#15=#14-#1
5 l1 C/ x* e' n, _G0X#13Z#11
: _4 c& L. |# y, AN2#5=TAN[#3]*#2
5 j) S9 R% Y; G& M  e8 u#6=TAN[#4]*#2
2 x" l% \, R  D4 q( ^0 j2 C: F* uG0Z[#11-#5]
X[#7+#2*2]
G32Z-[#20+1+#1]F[#12]
# x) z; M  J3 I* z3 nG0X#13
4 w. X) _# u5 j3 P0 D" ~6 ]3 c0 IZ#11
4 \' [- e. G0 \) `1 hIF[#5GE#1]GOTO3
N12#8=TAN[#3]*#2
& n8 m- w1 F% M9 g9 j#9=TAN[#4]*#2
: a& V8 C; W9 j' L#21=#8+#14+#9
IF[#21GT[2*#1]]GOTO10
4 l3 o1 ?7 z+ n8 {+ X3 TN6G0X[#7+#2*2]
) |* W0 x3 y& y* V. OZ[#11+#14-#1+#6]
G32Z-[#20+1+#1]F[#12]
G0X#13
; f& N: U: d9 u6 m: ?9 w2 V4 G% [Z#11
IF[#6GE#1]GOTO4
N8#2=#2-0.05
IF[#2GE0]GOTO2
#103=#103+#104
6 l: m  X# h1 ]1 f7 pIF[#103EQ0]GOTO9
- z3 J5 q/ F1 g9 S8 u& qIF[#103LE360000]GOTO1
N9M
( n/ J0 }. Y( Q2 u6 n

N3#100=#1-1
N5G0X[#7+#2*2]
Z[#11-#5+#100]
: @+ m% c  m$ K& XG32Z-[#20+1+#1]F[#12]
7 y2 c5 z- f8 d. Z2 }! L2 x2 `- eG0X#13
Z#11
#5=#5-#100
  y+ i$ c0 v  s4 XIF[#5LT#100]T#100=#5
# q( @0 E6 |$ l  g9 P- t; OIF[#5GT0]GOTO5
3 w: M# i: l& O- v9 w6 {' q/ \( _GOTO12
N10#102=0
N11G00X[#7+#2*2]
Z[#11+#102]
G32Z-[#20+#1+1]F[#12]
G00X#13
Z#11
1 p7 n- n# x3 ?" D- yIF[#102EQ#15]GOTO6
#102=#102+[#1-1]
IF[#102GT#15]T#102=#15
IF[#102LE#15]GOTO11
N4#101=#1-1
9 w6 ]) Z3 q/ C2 H4 CN7G0X[#7+#2*2]
- h9 A; K4 U) Q' O6 y( X* \- }- e1 ]Z[#11+#14-#1+#6-#101]
! c! {7 n% Q- r: q+ b0 FG32Z-[#20+1+#1]F[#12]
G0X#13
Z#11
3 W1 {& l3 F% e4 N2 |# a: {#6=#6-#101
- I/ L0 L2 F3 S1 p; V4 j# k% iIF[#6LT#101]T#101=#6
IF[#6GT0]GO7
GOTO8
$ W0 Z" D% L5 b9 z) f, M% E$ J