国产精品乱码一区-性开放网站-少妇又紧又爽视频-西西大胆午夜人体视频-国产极品一区-欧美成人tv-四虎av在线-国产无遮挡无码视频免费软件-中文字幕亚洲乱码熟女一区二区-日产精品一区二区三区在线观看-亚洲国产亚综合在线区-五月婷婷综合色-亚洲日本视频在线观看-97精品人人妻人人-久久久久久一区二区三区四区别墅-www.免费av-波多野结衣绝顶大高潮-日本在线a一区视频高清视频-强美女免费网站在线视频-亚洲永久免费

機械社區

標題: 車蝸桿的宏程序 [打印本頁]
作者: wangfuqiang1123    時間: 2011-4-24 08:54
標題: 車蝸桿的宏程序

( K; A! }* a% H, |& P$ ^CALL 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' B" [3 Y. M( u, S
3 D% y" A0 o6 y4 b+ F# d
M30/ e4 D  l/ K  ~
" ^; x  `+ ]4 H, h  H
O2513' @( r% `5 ?6 @' h1 q
(V1=齒寬 V2=齒高 V3=齒形角 V4=倒角圓弧夾角 V5=倒角半徑  V8=Z1預留量 V9= Z2預留量 V10=大徑)- |( C3 _9 S* z
(V15=齒底過切量 V20=z~起點 V30=導程 V25=蝸桿~退刀角）& ^! f- l7 X/ {0 p2 d
(V31=X~變 V32=Z~變量 V40=z~終點 V41=X~退刀 V42=Z~起點 V50=刀補刀號 V51=主軸轉速 )
& E7 M) z& I0 L- `3 k. r% e
0 |" U) {" y7 n1 iV21=0. M7 F8 D$ s$ i( ]0 K1 |8 |
T=V50$ c) P% O, L# o7 i6 J
M014 c' ~" b6 U4 }; d; h
G97M03S=V51+ i: L0 M3 M0 K# I
G0X=V41Z=-V42M8( m+ W; I, Z- g( `" _! M
N90
: L) X7 d) K2 E( ^V21=V21+0.5
/ W3 B% s* N% X( q4 F' [V22=TAN[V3/2]*V21- T- f- U1 L  g* @; @' p  I: N
V31=V10-V21*26 O. ]8 J; O: d
V32=V20+V22+V8: B% A4 M# L1 ^! Q
V33=V20+V1-V9-V22$ R+ n5 X/ }5 ?) L! K8 U, S
N91! L' `, x7 V. B9 N8 ?8 [% J2 K
G0X=V31Z=-V32
5 ^3 N+ {- }# xG34Z=-V40F=V30" l0 Q! u1 ?& ~  x& Q4 e
G0X=V41
, ~4 O1 ~+ \$ e+ s$ A  j# QZ=-V42
) z+ t7 T8 e1 L1 LV32=V32+0.51 i: [' u+ o( S* J9 ^. k' c# }) n9 r
IF [ V32 LE V33 ] GOTO N91
. ~0 N5 P. }4 V  |IF [ V21 LE [V2-0.5] ] GOTO N90
  |, d3 V# m2 C
( g2 o- D1 r3 ]V11=0+ E+ P# ^. Y8 C/ m# w! Q
V4=90-V3/2. E2 G$ m* B$ E# k
T=V50( b8 R8 c9 d! p7 G& \# X- q" V
M01
2 o, Q3 i3 _$ ^  U' a4 \1 nG97M03S=V51+ Q3 g4 |2 H$ x# r5 i
G0X=V41Z=-V42M8* E+ \+ D8 q$ X3 L5 w6 E, H( Y
N100* ]5 z- Z2 z$ I+ U) C+ ~# j6 U) a/ H
V11=V11+2.
8 V: `8 J2 S) B9 {/ IV12=COS[V11]*V5+ r+ s! ?# ^; d/ |% c
V13=SIN[V11]*V5, T, U' e  ^; U
V31=V12*2+V10-V5*2; E7 K/ q3 i# e) _( n) p9 W: {
V32=V20+V13' L3 ]3 C; O8 K$ U4 J
G0X=V31Z=-V32
# h. J$ ]* `1 `! q! JG34Z=-V40L=V25F=V30
% f& i* m% L! v5 Q3 rG0X=V41/ d6 _4 C2 }: _9 {, r9 y1 Y' H2 e
Z=-V42
2 X+ c8 h, ~+ a3 _6 K' _! ?IF [ V11 LE V4 ] GOTO N100
9 z- _% _* L3 S& z1 u1 S5 K* M( _, K7 A) F& y8 S
V21=0
5 D9 V' a9 ~* H4 G, ]4 E; v3 _T=V50
) U7 {) z8 V9 p" x3 zM019 l$ h) R7 ~$ g+ P2 L( t* O% S
G97M03S=V51
) R9 x! T7 V2 d% jV100=[V2-[V5-COS[V4]*V5]]
* X5 K2 V% J! m  PN2002 n' r4 W0 ^8 {' C, L( B4 {
V21=V21+0.18 I3 Z& F# ^# E1 e8 s. j
V22=TAN[V3/2]*V21
# n! J: A: M) i  t/ k$ [V31=[V10-2*V5+COS[V4]*V5*2]-V21*22 g3 @4 x) f; F  q6 m. S% ]: ]# u
V32=V20+V13+V22# ]! X5 x6 T3 d3 {& v2 V
G0X=V31Z=-V32. E4 F% H* y9 t. }$ }! I
G34Z=-V40L=25F=V303 {: s+ V* ]* Q- J, d0 A" O
G0X=V41
, k% c$ L( j: D' |* k' e, HZ=-V426 Q5 P; K" _1 j' ]/ x' @0 R7 ]
IF [ V21 LE V100 ] GOTO N200* M# A' A7 R; r3 f" Z

+ C0 u9 N% u( ]  ~' AV35=0/ {  c  o- d$ b8 p5 i$ o% @4 X
T=V509 `7 t: L) n4 |3 x/ L$ I# L4 O. f
M01, ^$ ~1 }4 _6 w2 t
G97M03S=V514 |  m0 j( c% x. i7 ?
N201
6 a8 o4 [2 S4 O; O; b$ AV33=V32+V352 U3 C' F- d0 `7 j
G0X=V31Z=-V33) N- l1 ?, g& s4 ^3 @
G34Z=-V40L=V25F=V30
3 A/ [$ K( b& g4 b0 J: Y+ lG0X=V41
, ^7 V, h5 N6 D. \: nZ=-V42
/ g% g7 g+ _- {$ U; DV35=V35+0.15% V1 B+ N1 G6 I1 v* R9 p
IF [ V35 LE V15 ] GOTO N201
% q% \  N/ I- D7 n6 K2 N6 l* K% H5 H* m) q- ~- H
V11=09 I  J6 u5 ^6 J6 g  p. v5 P
V4=90-V3/2
. m, M+ }8 z7 n6 [T=V508 @: R& a6 o# p: O/ F, w
M01) Q" z& k2 i1 i6 i( X
G97M03S=V51
( [* u6 V6 l, g) S2 XG0X=V41Z=-V42M8
* c0 Y9 p1 n. U9 |5 `& ZN300
* i1 o2 K; P+ K5 pV11=V11+1
" g% U1 n7 }) K8 z9 ^; `9 B* mV12=COS[V11]*V5! B8 c) I) G! y
V13=SIN[V11]*V5
2 ^$ U/ `3 L% fV31=V12*2+V10-V5*2
% ~2 Y, _# t+ U' X; H5 oV32=V1+V20-V13* x) J* c: ?$ S) h' C4 `
G0X=V31Z=-V32
% ]/ T8 y% S* c& \8 c% J8 g- `G34Z=-V40L=V25F=V30
7 S5 V( z2 F. |% ?$ M% tG0X=V411 c5 P( k, i) w% q9 T9 l- T
Z=-V42* D$ i2 k& L+ n$ G
IF [ V11 LE V4 ] GOTO N300
4 H/ Y7 e# U3 C  j3 O
4 M8 E/ b/ R# L6 f8 YV21=0
5 E( H. Y& U& `T=V50$ P* A  V! D( b- J! U
M01& d' i9 r$ U4 Z; ^: L6 r
G97M03S=V51' J$ a- h% l$ L
V100=[V2-[V5-COS[V4]*V5]]1 a- c. C3 h% l- I% t' h( v
N400
* b9 G3 {; B0 l" \' H' C" cV21=V21+0.1
, ]: S0 t9 U  ?/ IV22=TAN[V3/2]*V21
, W+ k' M! n9 z# i  C8 G5 S; l4 qV31=[V10-2*V5+COS[V4]*V5*2]-V21*2" G3 |/ G6 f- c
V31=[V10-2*V5+COS[V4]*V5*2]-V21*28 z4 l) p$ x# h( [3 R: t: b
V32=V1+V20-V13-V22- G3 v( V- [. M& v5 [" m
G0X=V31Z=-V324 ^# N* r  e: j' B3 U2 R  z
G34Z=-V40L=V25F=V302 z# n& f$ ~, s4 B% r
G0X=V41
" }% R5 l0 e$ l$ T: Z6 g8 ^4 ^Z=-V42
# g( c9 R$ M  E5 OIF [ V21 LE V100 ] GOTO N400
8 z6 s6 e# ]$ T  I4 a) s% {& P4 P4 D3 X
V35=0
* S: h3 K5 k$ ?0 q# VT=V50# H6 O* M3 y1 Q; X9 K/ ^; {
M01# ?" J4 H1 k; X  w2 c
G97M03S=V51
" H: C( l! D) W% T9 b7 DN401# h' L1 H% I4 O0 `7 i" N
V33=V32-V35
/ F, M9 [- s- X: L8 a2 DG0X=V31Z=-V33( ~4 L# p7 N% z( k+ g7 _
G34Z=-V40L=V25F=V301 t4 g' b, ?5 l0 ^
G0X=V41
6 U! Q0 {3 i3 c4 L0 ]1 ^! MZ=-V42
1 P9 S& J- c$ ?7 p/ J- mV35=V35+0.15$ O! y- h6 ~+ m0 ]8 j
IF [ V35 LE V15 ] GOTO N4012 n, h1 T  Y3 n7 V6 s* N* Q1 a& G
G0X555.2 C& l- W+ e  C/ H8 D) o
RTS" J) G& ~! ~- C" ^$ U) m
作者: wubaoxi0618    時間: 2011-4-24 16:40
你寫的真好 太全面了 ，什么 都顧及到了 真是很好！~！~我就是沒看懂 頂你下吧 ~！~！
作者: yyjj77    時間: 2011-4-25 10:39
不頂對不住樓主的勤奮!!!!!!!!!!!!!!
作者: yyjj77    時間: 2011-4-25 10:41
再頂,更希望樓主能發更多好帖!!!!!!!!!
作者: bzsSB    時間: 2011-4-25 19:12
不過圖紙 發出來 會 更 全面
作者: 秋水狂刀    時間: 2011-4-26 21:50
不知道數控車最大能加工多大模數的蝸桿啊
作者: rqsyk    時間: 2011-4-26 23:13
你寫的真好 太全面了 ，什么 都顧及到了 真是很好！~！~我就是沒看懂 頂你下吧 ~！~！
作者: ssxko88    時間: 2011-4-26 23:45
想學，可惜只會入門的編程！復雜的看不懂
作者: 劍舞狂沙    時間: 2011-4-27 18:32
這是什么系統的程序？
作者: kx333    時間: 2011-4-27 19:33
書到用時方恨少，上學時PASCAL語言沒學好，不然看這不是小菜一碟。不地還是謝樓主
作者: chenhang1101    時間: 2011-4-27 22:41
wubaoxi0618 發表于 2011-4-24 16:40 9 x3 Y  r- o/ K
你寫的真好 太全面了 ，什么 都顧及到了 真是很好！~！~我就是沒看懂 頂你下吧 ~！~！
0 J. F! q( W( m+ k' l7 z6 n
首先頂個樓主，看2樓這哥們兒也太強大了嘛，都沒看懂就說 “太全面了”，呵呵，
作者: 江帆    時間: 2011-4-27 22:56
頂。幸苦樓主了啊呀                    
作者: wubaoxi0618    時間: 2011-4-28 20:33
回復 chenhang1101 的帖子
- ]% }, I6 |$ U& j2 S6 T! G0 v7 {; v  F- @
哥們 我說的全面  是說她編的 程序占我的電腦全部屏幕  所以全面！~！~
作者: ymf381241440    時間: 2011-4-28 20:57
看不懂 能到后面解釋一下嗎？還是感的
作者: chenhui1021    時間: 2011-4-29 20:21
樓主是個高手，這么全的宏程序很難見到了
作者: wangfuqiang1123    時間: 2011-5-1 21:44
程序還不是太完善~~我用它加工出蝸桿8個模數的改天發個零件給你們瞧瞧9 |/ F3 q* P2 V/ p6 Y
不是用趕的  是用仿形車刀車的
作者: wangfuqiang1123    時間: 2011-5-1 21:47
這個還可以車t牙  大家好好研究一下  這只是個雛形~~~
作者: liming344    時間: 2011-5-2 14:35
頂下，好東西~~~~~~~~~~~~~
作者: 學了兩年    時間: 2011-5-3 10:45
哎、、、、何必這樣擺自己了！！！按照你編程在中國的50、60年代的人怎么加工啊！！！別人用普車就搖出來了！！！磨個成型刀多少啊！！！
作者: zy1367223    時間: 2011-5-9 13:56
宏程式用V來表達是奧克馬的吧
作者: 6704288848    時間: 2011-5-9 21:18
我也好想學習一下編宏程序！雖然我沒有看懂，但還是謝謝樓主！
作者: jiangssli    時間: 2011-5-11 16:47
澳柯瑪系統的???我看著V開頭的變量號特別扭!!!1
作者: 35070504    時間: 2011-5-11 18:48
好貼啊，頂一下，最好有圖紙和尺寸
作者: yyjj77    時間: 2011-5-11 19:09
萬分感謝分享!!!!!!!!!!!!!
作者: yfs123    時間: 2011-8-26 23:12
好東西呀,,,認真學習下,,,,樓主辛苦了
作者: 爽歪歪沙    時間: 2013-11-8 23:07
樓主考慮的很周到   
作者: zss123    時間: 2013-11-10 19:12
不知是什么系統的，不是法難克也不是西門子，海德漢
作者: tianye373737    時間: 2013-11-12 18:13
頂下
作者: 刀鋒365    時間: 2013-11-12 19:38
有意思 研究下
作者: 刀鋒365    時間: 2013-12-5 20:16
這是啥系統的
作者: zyy6061715    時間: 2014-1-3 23:33
請樓主幫忙編一個發那科系統，用切刀加工蝸桿的程序吧，這個看不懂
作者: 青島劉lxl    時間: 2014-1-7 14:59
謝謝，好東西



歡迎光臨 機械社區 (http://www.whclglass.com.cn/) Powered by Discuz! X3.5