螺距6以上的最好不要用G76 特别是机床刚性不是很好的情况下 更不要用6 j# K; n; `1 O4 q3 B
S5 F% l3 I+ S% x5 F( Z" Y
大螺距建议你用宏程序 下面这个是 一生有你 编写 的 我用过 效果很好; `& M$ r, Z! c( ]; u# u/ }
9 K( U k8 s. _
M3S200T101
7 h: O/ R% z) pG0X1003 Q* F$ }7 u0 E& U' A2 v( X( J" H
Z10$ T/ D# t5 {$ @5 V# g
G65 P9003 A4 B3.1 C48 I20 J8.8 K70 T2.5 F0.08 D1
. f$ L! b: n- Y3 [6 X" UA模数 B槽底宽 C齿顶外径 I 牙型角 J 全齿高 K螺纹长度 T 刀宽F进给D头数
, ~! ?. {& R+ ?2 `7 hG0X200 M5. G" a4 M6 {; ~0 }7 s- p
Z10) M6 R2 M* }/ c
M30 d4 \; { r5 _8 U, U% I5 [
%4 ~8 x# J S ?5 b) }4 I
(******************************)
8 o4 ~* [- ~# C& nO9003 + D z6 V7 }4 l6 }* C7 \: g
#100=#4 8 |, b/ E2 [, G0 _7 L
#28=#5
8 [& Z, z0 e3 M) K2 x: V+ P' I6 ^* B#144=#3 / q( o" k7 m, C/ e. I" P5 _ p
IF[#7LE1]THEN#7=1 $ |/ ~1 |, c! n& H8 Y/ Z
IF[#7EQ#0]THEN#7=1
3 ]' }+ v. i) {0 @#10=#1*3.141593*#7" r: x/ e ~ D' M" q; L" X% R
#130=1
6 T+ w7 x! S0 a6 z3 nWHILE[#130LE#7]DO1
; R6 ]* `* j3 t3 @#131=#10/#7 9 t) Y% i; f# {0 F6 J* p) c
#132=#130-1
5 H U) {7 K* ~$ U/ QWHILE[#28GE0]DO2% x9 _# q) r2 e% V y
#101=TAN[#100]*#28+#2/2-#20/2
' Y3 d( r: R% l6 Z* t) \/ E#30=1 - z4 ?) c2 I9 V& T, @$ J4 f7 o
WHILE[#30LE2]DO3
) E; D* t9 @) L! O7 {. rIF[#30EQ1]THEN#29=ABS[#101]
, X2 B9 r3 q; J2 t) @IF[#30EQ2]THEN#29=-[ABS[#101]]
% a r# d M% ~#150=#10/2+#29+#132*#131
' O, @: ~! x. j0 a+ a: ^#151=#6+#1/2; ^( U$ i4 l1 X# Y+ R4 g4 A+ `& g
#152=#1*5+#3
0 Q) J, E0 d( f6 p1 h- l% \G0Z#150
+ ^. Y* n) t. }: ?: i1 VX#3 - g) w$ j" D3 m6 y5 Q G
G32Z-#151F#10
( [8 @; H. ^% u4 W3 cG0X#152
6 @3 o4 M( Y! ?& G* [8 h. [#30=#30+1 ; `* |; ~0 w; x! }
END3
5 |3 Z6 U9 n1 U! g' E1 V4 u#3=#3-#9*2
/ t8 _3 Q ?8 {$ o" j5 g$ C5 \#28=#28-#9
# e0 T, t W' ^% d, [! ?0 |END2
; Y0 \$ S1 {3 g) o) s#28=#59 i4 X7 y/ K9 G8 z3 I% U0 P
#3=#144 ! F, y1 p3 i1 x d0 `
#130=#130+1 , S) n8 X5 Z7 J; {( G( h
END1' j8 s& U1 ]7 |5 X" ]0 n
M99 1 M; ]( Z9 }. `: r0 w
%0 n9 |3 Z5 K9 b+ E, [1 b* v
这里的F进给不是螺距,是每次的切刀深度,一般0.08-0.12左右,根据你齿面粗糙度决定数据大小
) l( M% g' B1 w0 D. u& H# }' @# Z7 ^4 q% O
|
发表于 2012-5-12 21:40:27
