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

數控之巔

lukexc

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

數控之巔

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

' t  k2 g: e3 P; m( x9 ?: z這程序是學生辛辛苦苦編的，也算是個人財產呀！{:soso_e101:}。。你懂得

lukexc

數控之巔 發表于 2012-4-18 21:10
這程序是學生辛辛苦苦編的，也算是個人財產呀！。。你懂得

( J$ n0 |# y9 t喔，原來如此！
8 k7 s7 m5 |6 G/ }$ o! F6 V那我來發個咋樣呢？

/ L+ V, ]5 ^! h. O& R4 r: Y/ U8 bfile:///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㎜。
5 D* t$ F: m$ @4 U$ S9 i加工起點的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. 
   
3. G99 T0101；               （轉進給）
   
4. 
   3 I" |' h$ e9 t7 D
5. M41；                     （換主軸低檔）
   
6. 
   5 S4 J: @: O# `( [. M: H
7. M03 S60；                 （主軸正轉）
   
8. 
   8 O0 z. _  K2 R2 j
9. G00 X100 Z-10；           （靠近工件到加工起點）
   0 w6 v7 A# s0 _# c! g
10. 
    2 ?( d! X' g. w% s$ Q9 F% p
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 ；（宏程序非模態調用，并賦值C（#3）：起點的Z值；K（#6）：Z方向每次的遞減值；D(#7)：終點的Z值；E(#8):切深；U(#21):圓的原點在工件坐標系中X軸的坐標值；W(#23): 圓的原點在工件坐標系中Z軸的坐標值。）
    7 B  |' [& f$ p0 A! _
14. 
    
15. #1=#1-0.2；                (變量切深每次遞減0.2mm)
    " ^4 \* y. d( A7 j! k0 k- Z' D
16. 
    
17. IF[#1GE-3] GOTO 10；      （切深判斷，當切深大于等于-5時轉移到N10程序段）
    6 Q  {' q2 A1 F4 s7 _7 d. s
18. 
    7 [* D6 {4 q6 K+ g% |  q! G
19. G00 X200 Z10；            （加工完畢退刀）
    & [2 P) U: M) H2 C8 F, f
20. 
    
21. M05；                     （主軸停止）
    
22. 
    " g% P. S9 K" g' b
23. M30；                     （程序結束）
    
24. 
    
25. O90012；                  （用戶宏程序名）
    1 F' u; i; Q# e3 j% f1 j
26. 
    
27. G00 X[74.99+#8] Z7.5；       （進刀到加工起點）
    5 \. P/ f; W. K) J. |2 ~
28. 
    # p4 Q% z5 V: n: a3 E; B- `
29. N1 #3=#3-#6；             （Z值遞減）
    2 j7 Y7 s& x3 P4 M
30. 
    
31. #30=SQRT[3600-#3*#3]；（計算每部X值的坐標并賦值給#30）
    4 W; s- k  y% b: B
32. 
    
33. G32 X[[#30+#8+#21]*2] Z[#3+#23] F7.5；（螺紋插補，并進行坐標轉換）
    
34. 
    
35. IF[#3GE#7] GOTO1；          （終點判斷，如果終點Z值大于等于#7，則轉移到N1程序段）
    
36. 
    
37. G00 X100；                  （徑向退刀）
    7 T% c6 J; s  F  f" e/ v
38. 
    % B% W7 X/ z' R3 [: C
39. Z7.5；                      （軸向退刀）
    - m/ I- H$ V/ A3 J2 [
40. 
    6 H0 O0 T! b) O& u+ \, w' u
41. M99；                       （宏程序結束）

復制代碼

; x/ @+ M* b: B* n

注意：

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

加工時由于各種機床的性能不同需要改正工件的轉速或者調整機床的一些必要參數，否則可能產生亂牙現象。

數控之巔

lukexc 發表于 2012-4-18 21:25
. Z( L0 Q* v5 N5 k$ K4 s2 W2 M: l( {喔，原來如此！
" m9 `: {! g' m: U% t% u0 Q* K那我來發個咋樣呢？

/ ?5 j: e( {7 M6 W# E6 ~+ w成形刀加工的沒意思{:soso_e113:}

數控之巔

數控之巔 發表于 2012-4-18 21:31
成形刀加工的沒意思

{:soso_e101:}  我不懂包絡法  你遍吧  向你學習{:soso_e132:}

數控學習中

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

02獵隼

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

xvjie1978

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

數控之巔

我顯擺有意思嗎？？1，這是學生做的不是我做的，2、我拿學生的程序發在這個上面算我侵權嗎？？ 3、我沒有通過它的同意發程序道德嗎？  4、你覺得我顯擺你可以自己做點JP的來顯擺，我可以向你學習。  5 、再說這個零件加工在這個論壇里高手會的多的是、像 一生、大壞蛋、數控達人、等高手
2 ~5 q0 W& I* Z" L2 `. X6 R
* [0 i. {) n  Y0 ]# H   我就發下我以前做的程序給大家共享 看看  注：有的地方省略的
% \* a; G2 y/ X5 v( x0 l9 M
- ^3 g0 O* B2 x* r% l- ]. o/ H#103=0
#104=0
% Y$ H+ I$ f3 l( z) IN1#1=0
. K0 I, q# `' ]7 A* G#2=0
! k5 D" q; K- \* C#3=0
% ]$ w' a- t) \% x3 h8 N#4=0
% a3 ?# U+ n+ ^% `( e3 N# j#7=0
#11=0
#12=0
#13=62
- a4 |8 V' a; ]  U, Y8 G#14=4
2 L- p. ^7 a0 F! ]' n" f#15=#14-#1
, Q3 U+ }3 u. g; h* g5 |5 hG0X#13Z#11
N2#5=TAN[#3]*#2
" k; V: h7 Z0 E8 @( M9 I* g#6=TAN[#4]*#2
! \- j: y/ U) b& ?G0Z[#11-#5]
X[#7+#2*2]
0 {5 \1 H9 l6 U& C# CG32Z-[#20+1+#1]F[#12]
  Y" V$ F& V# kG0X#13
! M8 F( y2 c9 {9 wZ#11
* V# _; z8 g0 [IF[#5GE#1]GOTO3
N12#8=TAN[#3]*#2
( @5 @( r: v9 i( O#9=TAN[#4]*#2
/ n9 q3 H/ r( ]/ S& c" Y#21=#8+#14+#9
IF[#21GT[2*#1]]GOTO10
N6G0X[#7+#2*2]
: O6 O8 J& j; F0 d) J4 |+ L0 r2 Z$ gZ[#11+#14-#1+#6]
6 ^6 E5 m/ @7 ?' J& a  Q" s  KG32Z-[#20+1+#1]F[#12]
/ S# s' A$ K% {+ M, x$ \' _G0X#13
1 w1 X2 z; P, ^4 iZ#11
; U7 }( S+ ?$ U8 \IF[#6GE#1]GOTO4
9 n! {- x% y, W3 cN8#2=#2-0.05
IF[#2GE0]GOTO2
#103=#103+#104
IF[#103EQ0]GOTO9
) c; V! B  o' E1 YIF[#103LE360000]GOTO1
& w+ x' R) u% R8 G  d, K7 t- EN9M
8 |  R# _: J; D( f- {

N3#100=#1-1
N5G0X[#7+#2*2]
3 ?0 D; S0 L/ S! I9 L8 D# MZ[#11-#5+#100]
G32Z-[#20+1+#1]F[#12]
6 X, s% S& R+ i7 r# KG0X#13
7 w" n$ C. i: l2 ZZ#11
#5=#5-#100
IF[#5LT#100]T#100=#5
IF[#5GT0]GOTO5
GOTO12
N10#102=0
) O  T- b4 X: oN11G00X[#7+#2*2]
9 D' p% O0 h3 E& g, tZ[#11+#102]
G32Z-[#20+#1+1]F[#12]
G00X#13
Z#11
9 ?% s/ n" |6 M# b: O. HIF[#102EQ#15]GOTO6
* A3 X: T7 C/ P/ q" U. k#102=#102+[#1-1]
IF[#102GT#15]T#102=#15
IF[#102LE#15]GOTO11
' ~  s# Q5 w" {/ HN4#101=#1-1
, M  L# P% O. DN7G0X[#7+#2*2]
% _6 E( e, y6 ~; H" aZ[#11+#14-#1+#6-#101]
G32Z-[#20+1+#1]F[#12]
0 l# L: `, m5 }- i8 JG0X#13
5 O8 {  ^3 f  A; _Z#11
#6=#6-#101
6 o  Z( N# ~- Z! f) \/ L# rIF[#6LT#101]T#101=#6
IF[#6GT0]GO7
GOTO8
/ j8 B8 R3 z7 o# ~6 U( y, o