車蝸桿的宏程序

wangfuqiang1123

) u! X! l  }4 H! v" |" T! ACALL O2513 V1=12 V2=15 V3=40 V5=1 V8=1.3 V9=1.3 V10=80 V15=4 V20=20 V30=25.13 V25=6 V40=180 V41=82 V42=V20 V50=0101 V51=900

4 C3 Y/ {$ k9 r" V5 ]  lM30

' J; O8 ?( }! h0 I7 ^+ eO2513
, N$ P% d3 e  q2 E: p/ `(V1=齒寬 V2=齒高 V3=齒形角 V4=倒角圓弧夾角 V5=倒角半徑  V8=Z1預(yù)留量 V9= Z2預(yù)留量 V10=大徑)
(V15=齒底過切量 V20=z~起點 V30=導(dǎo)程 V25=蝸桿~退刀角）
. r5 g3 A, I. E1 c1 R) Q; w(V31=X~變 V32=Z~變量 V40=z~終點 V41=X~退刀 V42=Z~起點 V50=刀補(bǔ)刀號 V51=主軸轉(zhuǎn)速 )

V21=0
T=V50
2 Z/ M8 j, _9 n7 F& d/ U" tM01
) f$ I* p, v+ F. D& `5 F) RG97M03S=V51
G0X=V41Z=-V42M8
, l, _7 D8 e2 H4 N3 ^5 dN90
, |. ]5 y" ~2 g; E$ g7 _V21=V21+0.5
V22=TAN[V3/2]*V21
& I- u# r( K8 n4 L7 CV31=V10-V21*2
# `2 U4 z% \5 y8 f, nV32=V20+V22+V8
V33=V20+V1-V9-V22
7 j' B8 u1 }3 I+ @. r4 `5 A: UN91
4 J+ Q3 w$ w# ^# L1 q+ E8 W" NG0X=V31Z=-V32
1 E# x/ W' ^; H+ Z0 z" p5 G7 bG34Z=-V40F=V30
: x/ B3 z$ k1 `# f; {% |0 zG0X=V41
Z=-V42
9 D4 Z! J6 e8 T- K5 ^+ \. i. X8 o5 HV32=V32+0.5
IF [ V32 LE V33 ] GOTO N91
IF [ V21 LE [V2-0.5] ] GOTO N90
, e* @6 F/ A5 U, T6 C
. m7 ?$ ^+ s4 |2 \: ?! U4 yV11=0
0 C9 }! _" J8 LV4=90-V3/2
T=V50
M01
- Y& v$ |7 U- L% h# t6 U/ lG97M03S=V51
G0X=V41Z=-V42M8
N100
/ g1 X* F, ]: Z1 J: u2 hV11=V11+2.
3 `5 r) v8 }' ~2 k' G7 }1 ZV12=COS[V11]*V5
V13=SIN[V11]*V5
% b: D) L2 C  r5 b! Z& g4 o0 ?V31=V12*2+V10-V5*2
V32=V20+V13
8 M$ ~* i9 @( v% xG0X=V31Z=-V32
/ F4 {8 f& j5 G8 b  RG34Z=-V40L=V25F=V30
G0X=V41
) t. g$ Y# A; \# i, q( UZ=-V42
, z/ d( T1 D1 i8 E1 jIF [ V11 LE V4 ] GOTO N100

" u  T. l) g, |( lV21=0
T=V50
M01
4 x& D7 v. g$ K: N3 p5 vG97M03S=V51
8 i2 b" \8 o9 }" R1 Y. A# [( o8 R4 WV100=[V2-[V5-COS[V4]*V5]]
. J6 }6 @( D8 @8 i  Z% nN200
V21=V21+0.1
V22=TAN[V3/2]*V21
, L% a  Y/ t$ E) FV31=[V10-2*V5+COS[V4]*V5*2]-V21*2
% W. _/ I( _: `* k1 N" w  ?V32=V20+V13+V22
G0X=V31Z=-V32
) ?0 x$ a0 o; L. u3 @  qG34Z=-V40L=25F=V30
5 G2 M; q7 R7 r: n; }# nG0X=V41
Z=-V42
$ W# Q" M  x9 f+ m9 ~IF [ V21 LE V100 ] GOTO N200
  P  G( a& W( m$ H- S
V35=0
" J, N. V6 E' }T=V50
M01
G97M03S=V51
N201
! ^9 T5 N: b: |( I* i' Q, W, @V33=V32+V35
G0X=V31Z=-V33
4 v  Z- m$ \9 G8 ^. LG34Z=-V40L=V25F=V30
- s+ W  [! r$ ?% Q% E% J; }/ }G0X=V41
% z4 ^- q& E8 `: YZ=-V42
6 b6 \! w# _+ ^/ J& ^4 `. b8 N/ hV35=V35+0.15
. j3 [/ N, B7 XIF [ V35 LE V15 ] GOTO N201
, M' D) F$ V3 q2 \! _4 |1 d
V11=0
V4=90-V3/2
1 }! O: a5 @9 Q: @6 v' q+ @5 hT=V50
M01
G97M03S=V51
G0X=V41Z=-V42M8
+ t8 f+ S: @$ DN300
V11=V11+1
5 Z9 e( U4 P+ j5 m3 YV12=COS[V11]*V5
! n0 Q. l3 }1 [2 L; y2 xV13=SIN[V11]*V5
7 C! r; a) `. C$ b, g0 jV31=V12*2+V10-V5*2
V32=V1+V20-V13
G0X=V31Z=-V32
G34Z=-V40L=V25F=V30
G0X=V41
% E& Y% D/ t# z6 x* h" b+ _6 Z1 }( T# xZ=-V42
! _" P6 l8 q; O1 f1 t/ RIF [ V11 LE V4 ] GOTO N300

V21=0
- g& D  ]9 V5 l- NT=V50
M01
G97M03S=V51
5 E- ^9 b. c) SV100=[V2-[V5-COS[V4]*V5]]
% i3 K# h$ e1 o' z# R' ^N400
# V4 ]1 j  ?3 V( j& |* jV21=V21+0.1
* e0 k, U2 q# `& ?) H+ mV22=TAN[V3/2]*V21
! R( D! ~/ c8 l* j7 m* H& C2 e/ m3 dV31=[V10-2*V5+COS[V4]*V5*2]-V21*2
9 z$ P% \1 ]$ D6 W3 X0 }7 Q! I" GV31=[V10-2*V5+COS[V4]*V5*2]-V21*2
V32=V1+V20-V13-V22
( n9 q4 }* |5 i, ?0 [/ a- E- TG0X=V31Z=-V32
G34Z=-V40L=V25F=V30
G0X=V41
5 H2 _" Y- k" s3 pZ=-V42
IF [ V21 LE V100 ] GOTO N400
6 `) K! p, @/ L$ Q  u3 x; p" S
V35=0
T=V50
4 o! y3 }3 Y4 T* ^1 P2 m& OM01
+ v9 w  g% B4 b7 k7 ZG97M03S=V51
+ ]$ A" Y4 ]- `* s1 V) k5 Y( N7 XN401
) E" t- r2 o' |! A. Z% V" PV33=V32-V35
' q" o. @. s$ s$ c9 `8 _G0X=V31Z=-V33
G34Z=-V40L=V25F=V30
G0X=V41
) f% u9 X! J5 u: m" HZ=-V42
V35=V35+0.15
IF [ V35 LE V15 ] GOTO N401
- k6 ?3 Z+ t! jG0X555.
RTS
4 L, K/ p% C. n% O& Z" H

wubaoxi0618

你寫的真好 太全面了 ，什么 都顧及到了 真是很好,！~,！~我就是沒看懂 頂你下吧 ~！~,！

yyjj77

不頂對不住樓主的勤奮!!!!!!!!!!!!!!

yyjj77

再頂,更希望樓主能發(fā)更多好帖!!!!!!!!!

bzsSB

不過圖紙 發(fā)出來 會 更 全面

秋水狂刀

不知道數(shù)控車最大能加工多大模數(shù)的蝸桿啊

rqsyk

你寫的真好 太全面了 ,，什么 都顧及到了 真是很好！~,！~我就是沒看懂 頂你下吧 ~,！~！

ssxko88

想學(xué),，可惜只會入門的編程,！復(fù)雜的看不懂

劍舞狂沙

這是什么系統(tǒng)的程序？

kx333

書到用時方恨少,，上學(xué)時PASCAL語言沒學(xué)好,，不然看這不是小菜一碟。不地還是謝樓主