螺距6以上的最好不要用G76 特别是机床刚性不是很好的情况下 更不要用
" K" G1 {$ a) V- I: ]0 V
% N; S1 j" k5 F; q- ^大螺距建议你用宏程序 下面这个是 一生有你 编写 的 我用过 效果很好- T) E, T" A- R+ g2 j3 H# Y3 |% }
: `" q* l+ K; M( `1 x
M3S200T101
j: i4 _; L4 e/ }/ qG0X100
G3 K& l% T3 x1 F! O' ^2 LZ10
D% [$ p6 A- N# _, V+ D hG65 P9003 A4 B3.1 C48 I20 J8.8 K70 T2.5 F0.08 D1
* s5 N0 t: F9 t) O+ \8 UA模数 B槽底宽 C齿顶外径 I 牙型角 J 全齿高 K螺纹长度 T 刀宽F进给D头数' o2 g* V+ z0 E, z1 |
G0X200 M5# K; D; E9 \1 q9 X+ \# s
Z10
5 J9 L) {# J4 W2 R" P- \M30/ L: l- {2 d; Z8 O2 v+ r4 O
%
& Y* n+ z: @: n. ^(******************************)
! C7 S# O7 B% vO9003 j4 d& E3 ^9 ]' r3 ^
#100=#4
* v9 l4 b! H5 C z* B- t. F. H#28=#5
" c8 d/ \ T- C' W9 e#144=#3
# \4 W' N7 G: ], F; gIF[#7LE1]THEN#7=1 8 F) {) @* s* U0 h$ `3 S) j; N
IF[#7EQ#0]THEN#7=1+ \: h) E" F& ^0 ?, ]) u
#10=#1*3.141593*#7
% m! o7 M) \1 Y; L; _#130=1
6 S8 @4 _; q$ a! N7 N$ CWHILE[#130LE#7]DO1
4 Y# m8 w. l7 u3 [( ~5 V8 e1 ^. d#131=#10/#7 / ?6 D9 U/ f" l# C7 z; o6 v/ w
#132=#130-1
5 q3 |0 S, w" _WHILE[#28GE0]DO2! ~/ k, {9 S2 U
#101=TAN[#100]*#28+#2/2-#20/2
$ g6 @3 S4 x/ r7 ?#30=1 - ?/ k& y7 b% Q% `# a5 L
WHILE[#30LE2]DO3, \" g0 w; Z3 s7 `! r
IF[#30EQ1]THEN#29=ABS[#101]
: ~( R; ^* G' d- \& K p& r' r8 ^IF[#30EQ2]THEN#29=-[ABS[#101]]. b2 k8 |, R% g5 w& a# w
#150=#10/2+#29+#132*#131
9 c5 h' ^3 I* m. p k#151=#6+#1/22 }; R% M- S, F8 ?7 k0 r: R
#152=#1*5+#3
L% v# F, h7 C6 AG0Z#150( A: ~0 d. H. [# J, ? e
X#3
5 e- L! G) I! t7 G1 yG32Z-#151F#10& j, B8 O+ [( f5 Y' h# L8 U$ p! ?
G0X#1521 ?- } s) U( z( e1 {
#30=#30+1
* l K) Z; G F0 S1 H# NEND3- _' {; m( N1 h0 E0 r& R1 Z
#3=#3-#9*2
) Z0 R8 \3 Z8 g7 O1 d#28=#28-#9
* D8 x0 w; O! U6 E: nEND2
& ], p' m( G v( a! G#28=#5 r; ?- `$ @) a% A3 z7 F+ }
#3=#144 7 m2 j. K% A; [0 V
#130=#130+1 . C7 K; [/ a6 A7 \. D2 M6 C
END1
1 |( W7 M' U1 O5 m' [% EM99 + E8 R/ T9 S) o
%$ O# B1 d2 K2 b! m( l9 {& p
这里的F进给不是螺距,是每次的切刀深度,一般0.08-0.12左右,根据你齿面粗糙度决定数据大小3 h5 ?6 F' B0 j( a0 T
- \7 \4 Y) R- F* ^ |
发表于 2012-5-12 21:40:27
