机械社区

 找回密码
 注册会员

QQ登录

只需一步,快速开始

搜索
查看: 11080|回复: 27

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

[复制链接]
发表于 2012-4-18 21:02:52 | 显示全部楼层 |阅读模式

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册会员

x
回复

使用道具 举报

发表于 2012-4-18 21:05:28 | 显示全部楼层
晒晒程序,我们菜鸟学习学习!{:soso_e113:}
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-4-18 21:10:19 | 显示全部楼层
lukexc 发表于 2012-4-18 21:05 8 \, d, h; i! K0 L
晒晒程序,我们菜鸟学习学习!
7 x0 K$ l! b% D, k
这程序是学生辛辛苦苦编的,也算是个人财产呀!{:soso_e101:}。。你懂得
回复 支持 反对

使用道具 举报

发表于 2012-4-18 21:25:57 | 显示全部楼层
数控之巅 发表于 2012-4-18 21:10
* V9 v  X3 E/ i/ _- q! s8 B. D% G这程序是学生辛辛苦苦编的,也算是个人财产呀!。。你懂得

8 x0 r6 t  m% S# N喔,原来如此!; z" @4 h# P. d% P& H0 Q5 z2 L
那我来发个咋样呢?
+ @8 {4 x* ^3 R" O0 R* X; w
. m% }" d# A2 x9 l1 dfile:///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㎜。3 u3 s+ ?. w( i- i
加工起点的z值坐标为18.75mm
+ `+ B3 }: v8 ~$ b
加工螺纹起点的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;                   (加工主程序), X; F/ G2 K$ _

  2. % ?- N! F& ~5 I" M' K5 J9 X
  3. G99 T0101;               (转进给)
    - `  V; @" H9 u& Y8 X
  4. 8 p$ u# o/ G5 C% @* Q9 F
  5. M41;                     (换主轴低档)
    5 D; |6 A, A# B3 I2 ~+ Z

  6. 4 {% E4 S% A* P! V& m$ Y
  7. M03 S60;                 (主轴正转)" Z( v. a. ~! o! E. Q/ q' X/ T
  8. 7 T$ V# t6 W2 e3 o
  9. G00 X100 Z-10;           (靠近工件到加工起点)0 g9 R" u! n5 C

  10. $ O9 f; k$ a3 _. X
  11. #1=-0.5;                 (#1变量为第一刀的切深)$ q  ?1 H& x3 R3 g7 B6 G6 [$ Q

  12. + ^! p' o, ~5 G% h
  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轴的坐标值。)6 L9 w3 J. B+ p% r8 H
  14. 0 u- Z0 P8 `0 \% y: ?
  15. #1=#1-0.2;                (变量切深每次递减0.2mm)
      O! n* L( C: m- _
  16. . Z3 z/ a5 N' J
  17. IF[#1GE-3] GOTO 10;      (切深判断,当切深大于等于-5时转移到N10程序段)' J, E  @1 J3 b: _* h( o
  18. ! k. G8 |6 s# F7 F) U8 l7 ?
  19. G00 X200 Z10;            (加工完毕退刀); T9 t$ E& z: m8 T
  20. , m4 T: T2 b, N) @
  21. M05;                     (主轴停止)9 G7 E) ^* V3 r" ^1 [. p4 ~/ ]9 O
  22. + a2 w( Y, R9 [; w' Z' _2 |0 v
  23. M30;                     (程序结束)+ R( }( f' J) v; h
  24. 6 _. [, ]7 r( @$ `: ~
  25. O90012;                  (用户宏程序名)
    . `+ L& r5 P: h+ j2 {- ?! k: S

  26. - p3 G$ Z. x4 p0 E$ s; t$ s
  27. G00 X[74.99+#8] Z7.5;       (进刀到加工起点)% g0 J; |7 k0 e6 R

  28. 3 L1 D; H5 W  o# b/ x! g* M
  29. N1 #3=#3-#6;             (Z值递减)
    ) m1 x! b0 ~. w# L& |, H7 _+ ]; o8 I

  30. 1 a. D6 u# ]& x& w
  31. #30=SQRT[3600-#3*#3];(计算每部X值的坐标并赋值给#30)( }1 @, F8 k6 d* m3 }9 O
  32. " N5 T# |5 N* H4 k% m7 B+ O! N0 k
  33. G32 X[[#30+#8+#21]*2] Z[#3+#23] F7.5;(螺纹插补,并进行坐标转换)7 c6 n/ B2 a' V9 e! h9 j
  34. " |" x$ n( S8 |' E1 ^0 H
  35. IF[#3GE#7] GOTO1;          (终点判断,如果终点Z值大于等于#7,则转移到N1程序段)
    3 q1 y8 P# X: C" r; j# `5 }4 Y' D

  36. ) y  j, |& [- g9 T1 D3 _/ ^
  37. G00 X100;                  (径向退刀)
    ) r8 q# m( n- p+ y" r

  38. ; }' R5 R- n- j. s
  39. Z7.5;                      (轴向退刀)
    / `  q- V$ W8 @! M/ ~2 [
  40. ( V3 B7 X  j; f5 E+ {5 F
  41. M99;                       (宏程序结束)
复制代码

- m( U3 o' ~- f! \

1 V# A. `( i( W& n5 s+ q
注意:
工件的原点选在了螺纹的右端面,因为该图不完整,如果选的原点不再螺纹的右端面需要改正O0005程序N10中U和W值和O90012中进刀起点和退刀起点。
加工时由于各种机床的性能不同需要改正工件的转速或者调整机床的一些必要参数,否则可能产生乱牙现象。
, N* ?+ ^8 E+ B% {2 s

) {2 @! ]8 z; Z; C3 M9 G- a

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册会员

x
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-4-18 21:31:48 | 显示全部楼层
lukexc 发表于 2012-4-18 21:25 . N! Q" ]9 q9 X+ H  [8 {
喔,原来如此!
4 X, p- `" _& [& V2 }那我来发个咋样呢?

9 w5 Z' a. T, w( A2 }成形刀加工的没意思{:soso_e113:}

点评

游客
  发表于 2012-4-18 21:40
用宏程序把R3编写出来,包络法加工!  发表于 2012-4-18 21:40
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-4-18 21:44:50 | 显示全部楼层
数控之巅 发表于 2012-4-18 21:31
) g% O, A" V' P8 z# W  y, L5 w成形刀加工的没意思

) x" k7 ^/ @+ [( K2 E1 E6 P8 p{:soso_e101:}  我不懂包络法  你遍吧  向你学习{:soso_e132:}
回复 支持 反对

使用道具 举报

发表于 2012-4-19 12:28:08 | 显示全部楼层
高手碰到高手了!!!!!!期待..........................
回复 支持 反对

使用道具 举报

发表于 2012-4-19 14:42:43 | 显示全部楼层
宏程序看多啦--------------------还真有点意思
回复 支持 反对

使用道具 举报

发表于 2012-4-19 17:47:22 | 显示全部楼层
楼主只发图不发程序,是不是有点显摆呀!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-4-19 19:24:08 | 显示全部楼层
我显摆有意思吗??1,这是学生做的不是我做的,2、我拿学生的程序发在这个上面算我侵权吗?? 3、我没有通过它的同意发程序道德吗?  4、你觉得我显摆你可以自己做点JP的来显摆,我可以向你学习。  5 、再说这个零件加工在这个论坛里高手会的多的是、像 一生、大坏蛋、数控达人、等高手6 R" F8 B4 l, h  o

, W  j% b% D$ j   我就发下我以前做的程序给大家共享 看看  注:有的地方省略的
9 R4 @# L2 C& `& w4 ]) j; h; p  r
#103=0
5 T7 G' T  I- D5 e+ L: {! ~#104=0 7 a, W& b6 p8 d7 ~# {/ d7 v, U3 a! R
N1#1=0
2 S3 J. r5 M. Y- H0 [! a#2=0
( Q! {' F, P- ?* l. K* W' V9 v#3=0 0 M  q  t7 V1 l/ G
#4=0
, J0 C# x7 X$ c: t* `#7=0 / P" H, }- ^5 T: o, X( h7 N
#11=06 c  i1 p9 j- {- t( {( l
#12=03 p  ~2 b7 J$ _; @. q( L
#13=62 * l9 ?0 S5 u% C! Y
#14=4
' r9 O( b. x: k* `#15=#14-#1 5 ]# L. e3 P- N5 s: r# U" D5 q) @2 s- H
G0X#13Z#11 7 G" f7 D6 J% k+ c5 Q) u: Y. T
N2#5=TAN[#3]*#2; p5 R1 o9 H/ P* m
#6=TAN[#4]*#2
: w" _3 W$ r+ K9 u3 W8 LG0Z[#11-#5]
2 W, H2 o7 W# M* BX[#7+#2*2]
4 m" m. {" s5 x3 @' h4 zG32Z-[#20+1+#1]F[#12]
  a# V2 |+ \* D5 ?G0X#13 5 n6 K( L  Y$ U5 V, B3 r5 Y# x
Z#11
9 }, ]; F$ y( {. Z: P, D2 _IF[#5GE#1]GOTO3- m2 ~# z0 M8 G
N12#8=TAN[#3]*#2
. {" `7 f9 ^9 v8 A#9=TAN[#4]*#2
4 m. `7 L% ~2 V2 ]5 ^( S7 P" q+ X#21=#8+#14+#9
# b( q3 k7 u6 l- g0 `IF[#21GT[2*#1]]GOTO102 J9 c* W0 P( I4 p- L6 @& w' r6 P
N6G0X[#7+#2*2]
. s% n, M8 I  V/ N) e' f& b9 |Z[#11+#14-#1+#6] ; Z9 b; `1 E5 P; X8 q
G32Z-[#20+1+#1]F[#12]% m4 O/ C0 E2 f7 Z
G0X#13 ( i; `$ p' \7 y, y# j
Z#11
1 P" K* G  Y/ i* d: PIF[#6GE#1]GOTO4
5 j, T9 y4 j) f" z; EN8#2=#2-0.05
& \/ l% }+ N& O% U; VIF[#2GE0]GOTO2
% V6 n! S" ^" [- C#103=#103+#104 6 k' R- D5 ?/ K7 @
IF[#103EQ0]GOTO9
/ s. }7 X+ c; b  WIF[#103LE360000]GOTO18 J2 g8 _! K! S5 K/ f
N9M( O1 H2 V  d5 U9 \# V8 F3 A1 W

/ Z5 d2 K; ?& b& `+ v1 c
8 y6 m8 h: {3 L9 {N3#100=#1-10 [( w$ P6 ?3 p9 T) v
N5G0X[#7+#2*2]
, a# H8 d) v( ]; R3 Z/ FZ[#11-#5+#100]
) n5 U( V0 s$ Q9 j, Q' cG32Z-[#20+1+#1]F[#12]+ Q& s: q. ]+ q( Y, c( e' d- [1 v0 s
G0X#13
- D# F5 r# u: e( N  OZ#11 ; M% Y$ u, A$ b/ @7 c! ?2 [
#5=#5-#100
0 t3 }/ j2 R/ tIF[#5LT#100]T#100=#5
1 A, e  R$ H" f; vIF[#5GT0]GOTO5 % P( z3 {- q5 a1 K6 d4 \% f
GOTO12
1 R* S# F; `6 {! c( v. i# wN10#102=09 ^0 i. G  S, {6 {; H) a! W
N11G00X[#7+#2*2]
9 k2 H* W/ r3 x* CZ[#11+#102]6 ^5 z: W$ }7 i
G32Z-[#20+#1+1]F[#12]
' m5 H) w/ i8 ]G00X#13$ U' \5 G4 o6 d1 H
Z#11 4 v# S( M8 y5 ]( s$ c
IF[#102EQ#15]GOTO6 / H2 K$ R2 ]5 U/ L* @9 H) \  U
#102=#102+[#1-1]
, d9 X7 I" u6 |, S2 wIF[#102GT#15]T#102=#15
3 R- ^& h6 X+ D- r9 g/ n3 RIF[#102LE#15]GOTO116 N5 C7 O# H0 k! K7 _
N4#101=#1-1+ g% d- x$ g1 ?- d9 {/ q
N7G0X[#7+#2*2]
8 a2 O5 M! Q8 G6 y9 `, h7 D  TZ[#11+#14-#1+#6-#101]; n3 Z8 b8 {  W
G32Z-[#20+1+#1]F[#12]
" U# q) E" Y' X& G% `7 H% oG0X#13
- R" s1 n- R1 ?: |Z#11
% \1 p1 r1 U9 i- u#6=#6-#101
4 Q% z, s" `9 I4 `, B% [IF[#6LT#101]T#101=#6
  B9 v# p0 @& t' u0 \- |! jIF[#6GT0]GO7 ' Q, `1 ]5 S6 y
GOTO8
$ k$ X& U9 V% _* H3 n+ Y$ T) o
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

小黑屋|手机版|Archiver|机械社区 ( 京ICP备10217105号-1,京ICP证050210号,浙公网安备33038202004372号 )

GMT+8, 2024-12-23 15:36 , Processed in 0.057167 second(s), 21 queries , Gzip On.

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表