久久久国产一区二区_国产精品av电影_日韩精品中文字幕一区二区三区_精品一区二区三区免费毛片爱

機械社區

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

( m4 E0 Z* m* I! `" T: w; d: FCALL 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
& o* D. d) Q% O" Z
, Z' a, y6 C8 S" j& a# m, ^* c1 mM30
# x5 G% e$ s& B. T5 M4 q: `9 a1 ~  l, I4 S5 d0 u  b
O2513
3 \0 m& ]  s) R6 U(V1=齒寬 V2=齒高 V3=齒形角 V4=倒角圓弧夾角 V5=倒角半徑  V8=Z1預留量 V9= Z2預留量 V10=大徑)* |, c" f' k0 g: V+ D6 X5 e5 }3 l9 H
(V15=齒底過切量 V20=z~起點 V30=導程 V25=蝸桿~退刀角）
; z' T( y6 u' U* f6 v- Q(V31=X~變 V32=Z~變量 V40=z~終點 V41=X~退刀 V42=Z~起點 V50=刀補刀號 V51=主軸轉速 )- H- M3 |/ B# \; b- R- y7 ?: N* I

8 [* D, |5 y! ?4 l2 m; Z( mV21=0
# D+ u) c5 f' q2 {5 v( ET=V50
1 Z$ l' x0 ?! K8 r- H1 TM01, g/ ]' ?5 r8 @0 F
G97M03S=V51
. m; V; c. u( O" bG0X=V41Z=-V42M8& I' T+ h. K% M. @" ~+ j
N90
) R3 [3 Y1 D7 T; v8 p+ gV21=V21+0.5- r+ v5 I5 w; ]0 M
V22=TAN[V3/2]*V21
+ T5 f; f- Q- c+ J# ?V31=V10-V21*2* q% X# T2 Q$ X
V32=V20+V22+V8
$ U; ^2 }& G5 L1 j; I& vV33=V20+V1-V9-V22: I: G. H: j) q# N' ]) }; f
N91
* g3 U: n% N. `$ m- o' i$ @) XG0X=V31Z=-V32
+ y) c4 _# G( V3 dG34Z=-V40F=V30) l; ~5 l" m8 ^; P% J% _2 r
G0X=V41
' b: B0 {  Q6 R# ?' M# ?4 k; FZ=-V42! T- O1 k& L3 F+ ~' Q
V32=V32+0.5
+ W8 D+ V. i* p7 M6 q4 K4 dIF [ V32 LE V33 ] GOTO N91) Q' Z- s& w6 V/ l. ~) z
IF [ V21 LE [V2-0.5] ] GOTO N90* u6 J1 ]4 O; l" z3 @+ \) C4 u
+ I4 L6 D, C7 A. f* z. t9 r# ]
V11=0, \- p) X: _) n* K' V6 u7 t. ?7 j
V4=90-V3/20 Z( J8 y- }! d6 g
T=V50
# ~; g8 R/ A5 q, H0 J. _M01
3 A+ P4 i; D9 D" H; s6 q5 ]% kG97M03S=V51
9 g. E2 \& \% O( KG0X=V41Z=-V42M8
/ @) R' ^! q# Q$ B& zN100. y3 a, L" ]8 h/ D
V11=V11+2.$ S6 C* M0 F9 g9 A  l* a
V12=COS[V11]*V5( a6 l! t) @$ @9 X1 }, b
V13=SIN[V11]*V5
6 k2 B4 e) V) V/ X: t+ o6 JV31=V12*2+V10-V5*2' e$ y7 V2 Z# d4 R  k0 j) z3 ^
V32=V20+V13
9 t2 O2 m4 e  u3 U- Y) a9 r. h" QG0X=V31Z=-V326 b' h# z; F: ^2 b5 R* H
G34Z=-V40L=V25F=V30- H0 r2 }4 n* O0 X: c1 |2 Y
G0X=V41
2 W6 s5 L% H$ o/ l! v$ e. F3 ^Z=-V42
% l* g- f  d! q8 BIF [ V11 LE V4 ] GOTO N100
! y2 n' u; @; I; r* y3 e* G7 d  v( h( k$ ~7 R
V21=0. f. p& b/ r2 e7 L% ]
T=V50
1 @' T& }$ c4 }- _4 @6 IM01
' V4 x$ g" g; x/ h( A) N& A+ U% IG97M03S=V51! v! T% B( i+ R: K6 p- Q. g) f
V100=[V2-[V5-COS[V4]*V5]]
0 u! L8 a! Z  O( I0 o, p6 f. ~N200
7 v/ B' P! Z8 WV21=V21+0.1/ m6 I" `, p0 J; h/ u3 y
V22=TAN[V3/2]*V21
4 v& F: @# `0 B- R1 FV31=[V10-2*V5+COS[V4]*V5*2]-V21*2: T. [7 ?7 O; h8 y8 C+ `& |& J" d
V32=V20+V13+V227 ?# Q8 D% a3 z$ T/ F6 d
G0X=V31Z=-V326 t, ~! }# m" Y, U
G34Z=-V40L=25F=V30
* O% x' P( T9 v$ H6 dG0X=V415 y. c% [6 Q' c' k& ~7 ^
Z=-V42
' U* y$ s" Y9 E9 z/ dIF [ V21 LE V100 ] GOTO N200
) l% w/ X- m" M( @. L; ~" H  g9 w, n2 ~: B5 \( h' c( S
V35=0( x2 ~0 l1 L, Y- M
T=V502 G1 H6 ]& e  P& L- O8 c2 P
M01
, T* C  F, \7 ^" c5 oG97M03S=V51
) U/ y, C- D5 ^1 i8 C6 lN201
6 A4 e. H) p  e" K: @V33=V32+V35
5 i& R  Q# g# }- t& RG0X=V31Z=-V33
9 ]+ O0 [( W, f! H! BG34Z=-V40L=V25F=V309 w3 M+ s' G. T) R3 _5 Q
G0X=V41
( S/ A5 b, O7 p0 tZ=-V422 E5 [; e  n; I- f- O: R
V35=V35+0.15
  G5 v, _/ r+ K7 e" Z/ b  ^0 j2 l$ tIF [ V35 LE V15 ] GOTO N201
+ Q3 w/ P8 }) y3 _2 M" m9 R/ Z! ~) W6 ^* h6 C9 E  ~
V11=0( G( O# |& F# S9 z( ~0 u3 f  ?0 `
V4=90-V3/2
  K; g" v1 Y( z8 k% z# y4 ?T=V50) k7 I- _) Q- _8 ?3 V
M016 @+ W# W% \0 T4 v- g5 @/ a
G97M03S=V51
  i9 I& q2 J8 @4 r% F4 E! dG0X=V41Z=-V42M8
9 B( F1 m  ?1 ZN300
' b5 G1 a7 @8 p! c/ d9 |" ]' BV11=V11+1' \  P  v: w/ p$ n) a
V12=COS[V11]*V5
8 d6 _- k4 j9 S0 A: nV13=SIN[V11]*V5
) i, L( N9 G. I/ |: G/ \- J( wV31=V12*2+V10-V5*25 l" x1 {" l8 Q7 w* J1 E  v! v
V32=V1+V20-V130 O- T: p( f1 z+ Q! r3 c
G0X=V31Z=-V326 u+ P$ y& `2 i. K
G34Z=-V40L=V25F=V301 ?1 f) G5 b- g. \0 S& o% M, B$ N6 V
G0X=V41
3 w; k' H! c0 p1 ^$ bZ=-V42
6 D. u% J% O! ~" ^  K) A6 lIF [ V11 LE V4 ] GOTO N300
# K2 Q. O' E4 t) G7 V
$ M2 H! c( a3 |9 X3 FV21=0
2 ~1 P3 g/ B# P( nT=V500 s6 `( w: l7 v0 s8 ~7 q+ v" ^& U
M019 S+ ?& d$ j; r5 O# J8 ]
G97M03S=V51
. b2 ?0 U6 S( |9 ]! E5 TV100=[V2-[V5-COS[V4]*V5]]! N6 m& {/ t, D, {% B$ U4 h
N400* ]/ F3 Y" c; T: b- D- Q7 c
V21=V21+0.1/ I. o) N8 U5 E* g
V22=TAN[V3/2]*V21
- Q) A1 a8 j2 V7 G& I/ gV31=[V10-2*V5+COS[V4]*V5*2]-V21*2
. k3 \9 U6 u3 @8 _* S: V6 Y- [6 QV31=[V10-2*V5+COS[V4]*V5*2]-V21*2
6 L7 C0 ?; ]! c; H' I. q3 sV32=V1+V20-V13-V22* b- }  `5 k, W2 X/ q
G0X=V31Z=-V32
" z& j# ]# Y# d: KG34Z=-V40L=V25F=V30
5 f6 {! a5 D- ~$ J% G  F; eG0X=V41/ U$ U+ w6 m  G. H$ P4 @! c1 @
Z=-V422 Z8 ?  Y. x/ m1 D+ A1 K1 D
IF [ V21 LE V100 ] GOTO N400: m0 i3 H0 C* C- _7 E# ^

$ v* S# q/ e/ k9 y- `V35=0
: F: l" _- C3 e  V6 l# `1 rT=V50
6 g! d$ a8 Y9 jM01
/ ^5 F; W/ _! l# ?G97M03S=V51  X1 m, U  e9 Y
N401) Z# u! B) d9 y. y( `/ @
V33=V32-V35* U( a% h6 k9 V. [5 \7 `
G0X=V31Z=-V331 t7 G6 t' H, c* n, b
G34Z=-V40L=V25F=V30
3 _& U3 S: s* v7 ~& OG0X=V41
, U) W( k2 |4 z6 o( AZ=-V42& ?7 h2 B: Q' a2 `$ X! j# X! Z
V35=V35+0.15
! _) n3 G$ @+ |/ D  @8 @2 l  p( kIF [ V35 LE V15 ] GOTO N401' i* K# x7 S& q
G0X555.
4 v5 n: T, l7 T* S9 Q* h; s8 k8 dRTS
$ d; V) I+ a. `# Y6 j" M8 d
作者: 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 ' x' ]; s; U& _/ V4 ?
你寫的真好 太全面了 ，什么 都顧及到了 真是很好！~！~我就是沒看懂 頂你下吧 ~！~！
* q/ t9 b* G7 Q7 ^
首先頂個樓主，看2樓這哥們兒也太強大了嘛，都沒看懂就說 “太全面了”，呵呵，
作者: 江帆    時間: 2011-4-27 22:56
頂。幸苦樓主了啊呀                    
作者: wubaoxi0618    時間: 2011-4-28 20:33
回復 chenhang1101 的帖子
% ~! N5 U/ w% @: s; H% C. f' _8 w6 v- g: Q5 v, u
哥們 我說的全面  是說她編的 程序占我的電腦全部屏幕  所以全面！~！~
作者: ymf381241440    時間: 2011-4-28 20:57
看不懂 能到后面解釋一下嗎？還是感的
作者: chenhui1021    時間: 2011-4-29 20:21
樓主是個高手，這么全的宏程序很難見到了
作者: wangfuqiang1123    時間: 2011-5-1 21:44
程序還不是太完善~~我用它加工出蝸桿8個模數的改天發個零件給你們瞧瞧
* U6 c$ L: L) G  |不是用趕的  是用仿形車刀車的
作者: 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.ytsybjq.com/) Powered by Discuz! X3.5