學(xué)生課題《橢圓面上加工圓弧螺紋》

數(shù)控之巔

lukexc

曬曬程序,，我們菜鳥學(xué)習(xí)學(xué)習(xí),！{:soso_e113:}

數(shù)控之巔

lukexc 發(fā)表于 2012-4-18 21:05
4 J/ U/ A1 m0 g0 q. Y: ?9 V曬曬程序，我們菜鳥學(xué)習(xí)學(xué)習(xí),！

5 [# [! W3 _, d. a3 J5 k這程序是學(xué)生辛辛苦苦編的,，也算是個(gè)人財(cái)產(chǎn)呀！{:soso_e101:},。,。你懂得

lukexc

數(shù)控之巔 發(fā)表于 2012-4-18 21:10
' _0 B2 M' n9 `9 D- [這程序是學(xué)生辛辛苦苦編的，也算是個(gè)人財(cái)產(chǎn)呀,！,。。你懂得

喔,，原來如此,！
那我來發(fā)個(gè)咋樣呢？

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加工此工件時(shí),，已知橢圓方程為：（file:///C:/Users/ADMINI%7E1/AppData/Local/Temp/msohtml1/01/clip_image002.gif）螺旋線的導(dǎo)程為7.5㎜,，槽深為3㎜，槽寬為6㎜,。車螺旋槽時(shí)用R3的成型刀寬加工,。加工螺紋時(shí)刀具延長(zhǎng)7.5㎜和車過7.5㎜。
加工起點(diǎn)的z值坐標(biāo)為18.75mm
加工螺紋起點(diǎn)的X軸坐標(biāo)為：X=file:///C:/Users/ADMINI%7E1/AppData/Local/Temp/msohtml1/01/clip_image004.gif=56.995㎜

起點(diǎn)直徑：（56.995-（60-40.5））*2=74.99mm

程序編制如下：

1. O0005,；                   （加工主程序）
   
2. 
   % J& Z+ }" z4 p5 g1 s* l
3. G99 T0101,；               （轉(zhuǎn)進(jìn)給）
   
4. 
   * F( K5 e2 Z8 k# }7 ]$ D
5. M41,；                     （換主軸低檔）
   * r, ~6 O0 S. v
6. 
   + i& h8 i# O# s" K& c8 j
7. M03 S60,；                 （主軸正轉(zhuǎn)）
   
8. 
   " N: {$ E0 \1 {/ S
9. G00 X100 Z-10；           （靠近工件到加工起點(diǎn)）
   + o9 _" e0 g/ Q' z
10. 
    
11. #1=-0.5,；                 （#1變量為第一刀的切深）
    : P7 I, B, A9 {  C+ C
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）：起點(diǎn)的Z值；K（#6）：Z方向每次的遞減值,；D(#7)：終點(diǎn)的Z值,；E(#8):切深；U(#21):圓的原點(diǎn)在工件坐標(biāo)系中X軸的坐標(biāo)值,；W(#23): 圓的原點(diǎn)在工件坐標(biāo)系中Z軸的坐標(biāo)值,。）
    . _* P  h& N) G# P2 T, ]
14. 
    % }0 v  v% c9 M: @* `
15. #1=#1-0.2；                (變量切深每次遞減0.2mm)
    7 g) J- G+ M: b* T! |. X
16. 
    ' m  ~' o2 ]2 j2 {3 q* T9 q
17. IF[#1GE-3] GOTO 10,；      （切深判斷,，當(dāng)切深大于等于-5時(shí)轉(zhuǎn)移到N10程序段）
    
18. 
    
19. G00 X200 Z10；            （加工完畢退刀）
    
20. 
    
21. M05,；                     （主軸停止）
    
22. 
    6 Y! [' _8 ~; H% ~/ L- J- `' }
23. M30,；                     （程序結(jié)束）
    
24. 
    9 i7 g; K" B0 _& A
25. O90012；                  （用戶宏程序名）
    % A9 c) S! V: u* H" Y. ]
26. 
    
27. G00 X[74.99+#8] Z7.5,；       （進(jìn)刀到加工起點(diǎn)）
    - B. G8 K6 {  j
28. 
    
29. N1 #3=#3-#6,；             （Z值遞減）
    
30. 
    
31. #30=SQRT[3600-#3*#3]；（計(jì)算每部X值的坐標(biāo)并賦值給#30）
    
32. 
    
33. G32 X[[#30+#8+#21]*2] Z[#3+#23] F7.5,；（螺紋插補(bǔ),，并進(jìn)行坐標(biāo)轉(zhuǎn)換）
    
34. 
    * g1 f7 d. G$ `
35. IF[#3GE#7] GOTO1；          （終點(diǎn)判斷,，如果終點(diǎn)Z值大于等于#7,，則轉(zhuǎn)移到N1程序段）
    - F. Z+ m7 T& z; ]7 p! I/ W
36. 
    
37. G00 X100；                  （徑向退刀）
    + h. ^+ L/ o/ R) F
38. 
    
39. Z7.5,；                      （軸向退刀）
    
40. 
    
41. M99,；                       （宏程序結(jié)束）

復(fù)制代碼

' J" f0 ]/ C# l  ?! ?

注意：

工件的原點(diǎn)選在了螺紋的右端面，因?yàn)樵搱D不完整,，如果選的原點(diǎn)不再螺紋的右端面需要改正O0005程序N10中U和W值和O90012中進(jìn)刀起點(diǎn)和退刀起點(diǎn),。

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

$ H+ x" L, }, p8 T9 O) ^( a

數(shù)控之巔

lukexc 發(fā)表于 2012-4-18 21:25
喔,，原來如此,！
6 j* I  v$ S% y# _  n0 ]0 c9 l那我來發(fā)個(gè)咋樣呢？

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

數(shù)控之巔

數(shù)控之巔 發(fā)表于 2012-4-18 21:31
成形刀加工的沒意思

{:soso_e101:}  我不懂包絡(luò)法  你遍吧  向你學(xué)習(xí){:soso_e132:}

數(shù)控學(xué)習(xí)中

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

02獵隼

宏程序看多啦--------------------還真有點(diǎn)意思

xvjie1978

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

數(shù)控之巔

我顯擺有意思嗎,？,？1，這是學(xué)生做的不是我做的,，2,、我拿學(xué)生的程序發(fā)在這個(gè)上面算我侵權(quán)嗎？,？ 3,、我沒有通過它的同意發(fā)程序道德嗎？  4,、你覺得我顯擺你可以自己做點(diǎn)JP的來顯擺,，我可以向你學(xué)習(xí)。  5 ,、再說這個(gè)零件加工在這個(gè)論壇里高手會(huì)的多的是,、像 一生、大壞蛋,、數(shù)控達(dá)人,、等高手
( Q/ i$ B- ]0 q$ P0 l6 Q
   我就發(fā)下我以前做的程序給大家共享 看看  注：有的地方省略的

#103=0
#104=0
' t/ s# \! ?! X/ q3 LN1#1=0
) h- ]. c7 L, [: f1 N#2=0
4 ~6 e0 I: n0 r7 t' y, I#3=0
4 f+ s) X6 Y* J( |! C#4=0
- ?) e$ e* N' r/ c8 N#7=0
! s, C8 G2 e3 y0 T#11=0
1 O9 `1 j* n9 P5 K#12=0
#13=62
$ p! ~& e  k2 R' u#14=4
$ O# D9 {1 w& y#15=#14-#1
G0X#13Z#11
; N/ ?$ P! ~& N8 t0 z" g" X7 eN2#5=TAN[#3]*#2
6 D8 ^% s9 ]) T8 p) o) m- k8 H#6=TAN[#4]*#2
G0Z[#11-#5]
2 q* x+ S. W/ J) `4 a. e* mX[#7+#2*2]
5 }) T4 c- A3 [+ X- b# f1 ^3 }G32Z-[#20+1+#1]F[#12]
G0X#13
Z#11
' n3 _' l) v0 u0 WIF[#5GE#1]GOTO3
N12#8=TAN[#3]*#2
#9=TAN[#4]*#2
$ A: L* x/ ^5 o, K#21=#8+#14+#9
IF[#21GT[2*#1]]GOTO10
N6G0X[#7+#2*2]
Z[#11+#14-#1+#6]
G32Z-[#20+1+#1]F[#12]
G0X#13
$ ]$ p/ u4 X- \9 GZ#11
IF[#6GE#1]GOTO4
' G& Y  y- u( d2 vN8#2=#2-0.05
IF[#2GE0]GOTO2
#103=#103+#104
IF[#103EQ0]GOTO9
+ F1 [2 U  L  U3 O" ZIF[#103LE360000]GOTO1
N9M


N3#100=#1-1
& S: F( Z; d. a; [, HN5G0X[#7+#2*2]
. x- }3 R! B" h( oZ[#11-#5+#100]
G32Z-[#20+1+#1]F[#12]
G0X#13
4 L4 H/ n- S% \# w( x8 J  [7 P* ZZ#11
#5=#5-#100
IF[#5LT#100]T#100=#5
IF[#5GT0]GOTO5
# ~  U0 [1 H( @8 F7 u# _5 XGOTO12
8 H1 A' Q/ E& m( f/ lN10#102=0
, N$ U0 v6 x4 g3 s7 b! I# k  ?% ON11G00X[#7+#2*2]
: Z- Z$ }/ ^; E# G: S& H. V5 Y1 @Z[#11+#102]
G32Z-[#20+#1+1]F[#12]
, e/ O" f5 ?: Y. RG00X#13
6 S* W0 P  x$ a  G! VZ#11
IF[#102EQ#15]GOTO6
: p1 p/ H+ W* g#102=#102+[#1-1]
. F& e+ l7 W! z3 UIF[#102GT#15]T#102=#15
4 E3 h  P4 f, F& n8 C* w; MIF[#102LE#15]GOTO11
- B! g9 L: J# }2 m/ nN4#101=#1-1
N7G0X[#7+#2*2]
Z[#11+#14-#1+#6-#101]
G32Z-[#20+1+#1]F[#12]
2 A3 o+ C( |5 L9 lG0X#13
Z#11
# v& M4 }0 |0 h. R2 f#6=#6-#101
IF[#6LT#101]T#101=#6
: J2 x7 T0 Z' g0 P' g  S  \IF[#6GT0]GO7
GOTO8
; Y6 L6 u1 d+ l+ M$ o