学生课题《椭圆面上加工圆弧螺纹》

数控之巅

lukexc

晒晒程序，我们菜鸟学习学习！{:soso_e113:}

数控之巅

lukexc 发表于 2012-4-18 21:05
晒晒程序，我们菜鸟学习学习！

这程序是学生辛辛苦苦编的，也算是个人财产呀！{:soso_e101:}。。你懂得

lukexc

数控之巅 发表于 2012-4-18 21:10
! W5 \! L' j. F8 h) h( R这程序是学生辛辛苦苦编的，也算是个人财产呀！。。你懂得

喔，原来如此！
( p: {) r% c' m' k! A* H7 o+ L那我来发个咋样呢？

- O6 y' Y. h' ]) P) Q4 [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㎜。
6 T; F$ v2 z; f6 j& T4 N加工起点的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；                   （加工主程序）
   ; U- y& Y5 }+ V5 b  F2 S
2. 
   0 g: H( J1 I. {, q6 Y, d
3. G99 T0101；               （转进给）
   - @2 ?0 \& z- ~2 Q% _
4. 
   
5. M41；                     （换主轴低档）
   : h$ V1 c+ @1 E0 R0 c
6. 
   
7. M03 S60；                 （主轴正转）
   
8. 
   
9. G00 X100 Z-10；           （靠近工件到加工起点）
   
10. 
    3 [0 V. s" n$ ?1 d3 Q0 h# y4 L8 \( `$ F6 l
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轴的坐标值。）
      C4 n3 J( B( l" {. A% v- {+ ^
14. 
    ! n1 K! b. _$ N) L& p
15. #1=#1-0.2；                (变量切深每次递减0.2mm)
    : E2 x2 ?+ ]3 E) z) C
16. 
    
17. IF[#1GE-3] GOTO 10；      （切深判断，当切深大于等于-5时转移到N10程序段）
    
18. 
    9 i/ d' `% d5 A+ W6 x
19. G00 X200 Z10；            （加工完毕退刀）
    6 c3 U' X  v  I4 C3 t
20. 
    
21. M05；                     （主轴停止）
    8 m; [' i0 _0 }8 _, s
22. 
    , D8 e3 B* Q3 |% o& m& w3 P
23. M30；                     （程序结束）
    
24. 
    " M2 K# `5 s& |0 c3 j1 o4 }3 ~& v
25. O90012；                  （用户宏程序名）
    
26. 
    
27. G00 X[74.99+#8] Z7.5；       （进刀到加工起点）
    4 c% [. |; J3 d) j2 F
28. 
    ' D. B  T! j# Z% X/ C
29. N1 #3=#3-#6；             （Z值递减）
    $ c1 c6 B1 E) |7 ^; W5 T
30. 
    : c7 I6 h- N& V9 ~- ~" @
31. #30=SQRT[3600-#3*#3]；（计算每部X值的坐标并赋值给#30）
    
32. 
    0 g8 _' P9 a) ^% G, l$ a
33. G32 X[[#30+#8+#21]*2] Z[#3+#23] F7.5；（螺纹插补，并进行坐标转换）
    
34. 
    " h8 Y: h1 A1 E: p/ C) z+ \
35. IF[#3GE#7] GOTO1；          （终点判断，如果终点Z值大于等于#7，则转移到N1程序段）
    3 l7 g2 u6 W" A+ Q: g* B; S
36. 
    # q. m& l; b5 y: I) C, O
37. G00 X100；                  （径向退刀）
    
38. 
    , \+ L- q0 O0 j
39. Z7.5；                      （轴向退刀）
    
40. 
    
41. M99；                       （宏程序结束）

复制代码

" A8 H# u7 Q5 o' m

注意：

工件的原点选在了螺纹的右端面，因为该图不完整，如果选的原点不再螺纹的右端面需要改正O0005程序N10中U和W值和O90012中进刀起点和退刀起点。

加工时由于各种机床的性能不同需要改正工件的转速或者调整机床的一些必要参数，否则可能产生乱牙现象。

9 U/ s9 h2 v/ W- D- M/ @
& W  h' t4 i* O+ c: e8 E

数控之巅

lukexc 发表于 2012-4-18 21:25
$ f4 ~# c0 ~- e% D0 Z/ O喔，原来如此！
那我来发个咋样呢？

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

数控之巅

数控之巅 发表于 2012-4-18 21:31
3 Z/ K8 b& D  H; t1 o- g成形刀加工的没意思

6 E7 {& L& [& F- J2 ?/ U0 }, ^{:soso_e101:}  我不懂包络法  你遍吧  向你学习{:soso_e132:}

数控学习中

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

02猎隼

宏程序看多啦--------------------还真有点意思

xvjie1978

楼主只发图不发程序，是不是有点显摆呀！

数控之巅

我显摆有意思吗？？1，这是学生做的不是我做的，2、我拿学生的程序发在这个上面算我侵权吗？？ 3、我没有通过它的同意发程序道德吗？  4、你觉得我显摆你可以自己做点JP的来显摆，我可以向你学习。  5 、再说这个零件加工在这个必威APP精装版下载里高手会的多的是、像 一生、大坏蛋、数控达人、等高手
, e( Y9 h0 Y' M9 S. l4 d
0 u0 h4 G; v3 [0 r   我就发下我以前做的程序给大家共享 看看  注：有的地方省略的

  ?; V' N; ~+ |+ v#103=0
#104=0
! q; a: L& K* M( u: M* UN1#1=0
. M: b% e& R# V2 z#2=0
( i3 q# w' A+ m- n3 F#3=0
#4=0
& u+ p% l7 ~0 z2 `  p  K#7=0
#11=0
3 m) d4 P. z0 F8 z+ a5 W#12=0
#13=62
#14=4
: v  @6 Y$ ~0 q0 T$ o# r1 _' k#15=#14-#1
+ E6 r9 @# _: v# ^2 ]G0X#13Z#11
3 N: z% l# R) F& d1 L( `N2#5=TAN[#3]*#2
* A  r9 S' m0 t! y#6=TAN[#4]*#2
! T9 J# m; s2 ^, aG0Z[#11-#5]
% U/ v! R* s: p+ kX[#7+#2*2]
G32Z-[#20+1+#1]F[#12]
; e' N, H2 F% |* Z' S" `G0X#13
Z#11
/ C1 \% j9 K0 @3 g3 h  cIF[#5GE#1]GOTO3
N12#8=TAN[#3]*#2
#9=TAN[#4]*#2
" \# E2 K$ a5 Y$ }4 C#21=#8+#14+#9
IF[#21GT[2*#1]]GOTO10
0 ~* h  }! }4 j& QN6G0X[#7+#2*2]
Z[#11+#14-#1+#6]
' Q( X6 d3 t8 v# I; ]0 N7 q2 ^7 vG32Z-[#20+1+#1]F[#12]
G0X#13
Z#11
IF[#6GE#1]GOTO4
N8#2=#2-0.05
IF[#2GE0]GOTO2
#103=#103+#104
IF[#103EQ0]GOTO9
IF[#103LE360000]GOTO1
: y6 G* @# V* Z  B$ @; m9 GN9M
/ d8 M( C% u. E; _( E' z
2 j- q% E, `. A: c, t
/ Y* L4 ?# @. @, t7 Y- {7 n6 L% iN3#100=#1-1
N5G0X[#7+#2*2]
/ X" \9 O$ e& i  C' o4 a2 o" QZ[#11-#5+#100]
  S$ [% C; X- m. Q1 ?9 zG32Z-[#20+1+#1]F[#12]
5 w$ |7 W: ]9 u5 z8 K: E. B4 LG0X#13
- l8 V0 u/ l& F, R5 ~5 FZ#11
! r# ~5 {( Z, B1 }#5=#5-#100
5 O8 p# }: n! l! w8 A8 y6 tIF[#5LT#100]T#100=#5
IF[#5GT0]GOTO5
GOTO12
N10#102=0
N11G00X[#7+#2*2]
) b) Y! N3 c- w2 z3 AZ[#11+#102]
5 v& E/ G7 T3 `7 W3 @) jG32Z-[#20+#1+1]F[#12]
) M/ D0 o: e6 C9 C+ q5 h; CG00X#13
Z#11
IF[#102EQ#15]GOTO6
8 F1 c/ J/ Q2 \& X0 r#102=#102+[#1-1]
& F: `. Y; A9 d7 ^; L8 {3 gIF[#102GT#15]T#102=#15
IF[#102LE#15]GOTO11
N4#101=#1-1
N7G0X[#7+#2*2]
Z[#11+#14-#1+#6-#101]
G32Z-[#20+1+#1]F[#12]
G0X#13
3 @& ^  ?+ t* d$ k% W, RZ#11
#6=#6-#101
" ]* y- W  ]# d( y3 Z- J0 Y1 VIF[#6LT#101]T#101=#6
0 ]5 ?2 ]7 q# s5 XIF[#6GT0]GO7
GOTO8