机械必威体育网址

标题: 车蜗杆的宏程序 [打印本页]
作者: wangfuqiang1123    时间: 2011-4-24 08:54
标题: 车蜗杆的宏程序
5 d5 o; @0 w6 N3 s) Z/ B- @
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* V) ^% S' w. o/ x/ s+ d( c& H

, h5 G: L2 D( s* }( lM309 q) e$ X3 P& _+ N
+ V* r6 a' l$ p& M2 M! Z
O2513+ K" t, a. L& e* I% p
(V1=齿宽 V2=齿高 V3=齿形角 V4=倒角圆弧夹角 V5=倒角半径  V8=Z1预留量 V9= Z2预留量 V10=大径)
6 J4 s% S# M6 b) k% y# u" b(V15=齿底过切量 V20=z~起点 V30=导程 V25=蜗杆~退刀角）
; y: C4 Q+ Q4 ?  c$ G(V31=X~变 V32=Z~变量 V40=z~终点 V41=X~退刀 V42=Z~起点 V50=刀补刀号 V51=主轴转速 )' c9 }/ i1 n0 \1 h' h

' y& A; n; P4 r* }4 VV21=08 x# L/ G; `" x7 i
T=V50! f- M+ D6 y& G5 p+ s8 e
M01# J1 i, C1 s5 V# X
G97M03S=V51% }$ @) @# \& ~) `! v* G
G0X=V41Z=-V42M8- N5 D( T& R# Y; g- v2 `
N90* v; X1 w2 w$ V1 h; v1 O
V21=V21+0.59 r/ N' `& c: o1 d  `! v
V22=TAN[V3/2]*V217 p; @% h1 u& S
V31=V10-V21*2: P" ]3 L/ n2 w0 N: o, N; [9 T4 Z
V32=V20+V22+V8  C& l3 H, [& t
V33=V20+V1-V9-V22
8 F: s& ?5 q9 E+ O& s/ LN91
6 v0 y8 p: a. S7 mG0X=V31Z=-V32' Y# X: {( c0 h( E9 f0 v
G34Z=-V40F=V306 F6 ?; G; n+ s; _% x; M8 G
G0X=V41' z2 h( W/ ~& [, J8 l. `( P( @4 F
Z=-V42
7 [; e4 F/ q" ^& G$ C- WV32=V32+0.5
7 _5 L: i7 r8 B- X/ iIF [ V32 LE V33 ] GOTO N91
7 y5 t7 }' {' x6 |$ ]5 TIF [ V21 LE [V2-0.5] ] GOTO N90/ Y5 O+ z- G3 E3 i

6 F8 l" h0 m* l( EV11=0
1 H7 s' {0 ~$ L6 M" dV4=90-V3/2) N  V3 N9 i- v% [& t
T=V509 I8 F. C$ K7 k! ^) n
M014 y) u( d, M1 U4 ]5 H; d9 e1 c
G97M03S=V51& e7 q- F! [' p- g1 u
G0X=V41Z=-V42M8
9 t* P3 ~% b7 i7 [9 ?# fN100
3 Y- N- P1 v- z0 D7 yV11=V11+2.
' x1 B" p4 v4 {V12=COS[V11]*V5; s) y$ H. s3 r
V13=SIN[V11]*V5
4 Z3 a# l; \! s4 {& |8 }2 H' p3 {+ qV31=V12*2+V10-V5*21 b+ T6 m: b* k5 ~3 e
V32=V20+V13! A3 V4 V3 V, t3 V
G0X=V31Z=-V32
+ N  H/ `, X* ?G34Z=-V40L=V25F=V30, a" W$ K$ {; Z9 Y5 m  H3 D
G0X=V41
0 j0 T$ X* c& ~/ b* MZ=-V42
0 T5 A: g4 _! v1 Z* gIF [ V11 LE V4 ] GOTO N100
) n7 f. u# }9 v) H0 K0 W7 A, g# S2 W7 ^
V21=0+ q9 C8 w9 [/ e
T=V508 h7 p1 P' k, N. G
M01
' P" V6 q2 v7 _/ E& ^9 TG97M03S=V510 C' u' y5 S) T/ h( Q
V100=[V2-[V5-COS[V4]*V5]]
% W* s8 I% J+ {, [+ U& b/ `N200
3 Q. ^& N( |" y* M8 xV21=V21+0.1
, y% l1 q* A+ _) K' h. a4 }# AV22=TAN[V3/2]*V21
: n; c' h. c+ U, v6 k# W  U- p3 t6 fV31=[V10-2*V5+COS[V4]*V5*2]-V21*2
$ m% v' Q# Q5 {& GV32=V20+V13+V22
4 R- K6 x* p' z0 p. P7 F# {G0X=V31Z=-V32
2 m. h5 h, r& y3 u  q$ gG34Z=-V40L=25F=V30
* ]/ I) {" `8 p3 a# U0 }: nG0X=V41
: X/ e. q, X1 U. e- ^Z=-V428 l# B7 [9 K# }2 L
IF [ V21 LE V100 ] GOTO N200
0 I, ]  u# F$ K! ^) q/ i# p- N; z& E' R8 i
V35=06 A- [  }; e3 G% L) G; [: }. B3 }
T=V50
( a9 M8 W/ ^5 \: @; [4 n, xM01
4 d5 r* _% A( Y$ y+ OG97M03S=V511 ^+ l% \/ x5 u* @$ t4 n9 K
N201
' M9 S3 [' q' j2 i$ K0 iV33=V32+V35
6 `8 ]4 ]: S3 g1 A& ~0 J7 {; zG0X=V31Z=-V33
& N( h, l. E7 ?4 c0 M3 uG34Z=-V40L=V25F=V30. }$ I* Q: Y# ^+ H- e  @& y/ a5 T+ q0 }
G0X=V41
; ?- G1 u/ l4 j3 p3 a& f9 kZ=-V421 \% d& t" W6 I0 G* Q6 w/ S: o% G
V35=V35+0.151 u- Y( S+ z# R
IF [ V35 LE V15 ] GOTO N201# M6 P* u5 `- D6 N
" w" n1 @0 J( X/ V+ Q
V11=0+ [- J1 {6 ^% S' r9 h
V4=90-V3/2
9 @7 i4 `! X. V1 Y. Y8 H0 ^4 v7 |7 oT=V508 u4 w8 v! a- i6 w. [; k& U
M01& a6 L; S5 J6 p) Q/ x! m4 c
G97M03S=V516 G+ g. H; h6 I0 {
G0X=V41Z=-V42M8
8 s2 ~" T# k2 O, T; [8 ^N300
) W8 ~4 `9 g. z- a( P2 D: e9 g# J) ~V11=V11+17 n& d7 X/ v) B. g1 }, ?  m
V12=COS[V11]*V54 H- I, k6 ^# N6 F9 I
V13=SIN[V11]*V5
9 G4 v" g; O$ c( pV31=V12*2+V10-V5*2& A) N3 z5 l8 _
V32=V1+V20-V13$ r% z/ F) O' ]% e* Q
G0X=V31Z=-V32; N, [8 d) Z2 h: ~9 t+ D: z
G34Z=-V40L=V25F=V30
. N! X+ `) e0 V- u1 ]+ c5 K. z! ]G0X=V41
5 A  ?. U8 ]* TZ=-V423 p: k; e" E+ S- z+ [
IF [ V11 LE V4 ] GOTO N3004 R- u. E# D# d5 ]; b. ?5 A# E

1 x- |1 H' n! x* EV21=0
. D& A  B/ }  J" o- KT=V502 D3 K/ U$ c) K9 N) B" f
M01
5 t- b, m# L2 R( n7 ]6 P" ?G97M03S=V51+ R7 N% x2 M6 q3 |) {& g! O. N
V100=[V2-[V5-COS[V4]*V5]]
3 g0 p  @6 n# K6 D) @( SN400/ E) P2 X8 M  D) P  }& A
V21=V21+0.16 E. x: ]! I5 p' X
V22=TAN[V3/2]*V21& ]3 O2 f! I1 T0 E3 o- X
V31=[V10-2*V5+COS[V4]*V5*2]-V21*2
: s9 J6 }9 l2 n( j( X5 BV31=[V10-2*V5+COS[V4]*V5*2]-V21*2
5 T# K! S; l7 H( z2 m6 X% IV32=V1+V20-V13-V22
! ^; a) U  y4 A2 V# O! }; pG0X=V31Z=-V327 f3 m/ ~$ W% Q
G34Z=-V40L=V25F=V30
. h" k# j1 L) oG0X=V41
$ ~" s+ x  |" Z# o. x% C# sZ=-V42' n1 u& A# L' t0 T, T. X$ ]$ |9 H* R
IF [ V21 LE V100 ] GOTO N400! r; Z9 p/ u# s, r0 b! v5 r
* Z7 b! v; A" z1 v2 r9 ]1 @
V35=0
$ m  T0 N9 I/ IT=V50
$ O' d9 n4 A2 iM01  e6 }5 t- [; i* M1 j, _+ q
G97M03S=V51
9 g" c3 x8 s4 S- e( }N4018 z9 ~2 @/ ~0 ]
V33=V32-V35: O7 C3 {1 j, L0 M1 N* i
G0X=V31Z=-V33) }# p8 F6 i* M) ^! p
G34Z=-V40L=V25F=V309 W" a8 B6 ^2 `  C4 A* j
G0X=V41
3 ~$ k" P2 @2 y' Q; E3 bZ=-V42* j+ I3 l9 j! W: t; Z
V35=V35+0.156 h5 d% C8 s" [
IF [ V35 LE V15 ] GOTO N401
- |; ^  ?9 a" U  r; LG0X555.3 n( s3 `/ v  Q: v
RTS
0 D6 C' V: I: O4 D2 g( O% S9 L
作者: 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 4 _0 _! w) A/ ?! ^
你写的真好 太全面了 ，什么 都顾及到了 真是很好！~！~我就是没看懂 顶你下吧 ~！~！
; u! B3 z* P/ Y6 k/ R
首先顶个楼主，看2楼这哥们儿也太强大了嘛，都没看懂就说 “太全面了”，呵呵，
作者: 江帆    时间: 2011-4-27 22:56
顶。幸苦楼主了啊呀                    
作者: wubaoxi0618    时间: 2011-4-28 20:33
回复 chenhang1101 的帖子" ^$ w# w/ L/ x- N) Q# n: B" w( @
; S( X) `+ }* _3 L. c
哥们 我说的全面  是说她编的 程序占我的电脑全部屏幕  所以全面！~！~
作者: ymf381241440    时间: 2011-4-28 20:57
看不懂 能到后面解释一下吗？还是感的
作者: chenhui1021    时间: 2011-4-29 20:21
楼主是个高手，这么全的宏程序很难见到了
作者: wangfuqiang1123    时间: 2011-5-1 21:44
程序还不是太完善~~我用它加工出蜗杆8个模数的改天发个零件给你们瞧瞧
* D) e9 M$ c' \4 {& e, t不是用赶的  是用仿形车刀车的
作者: 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
谢谢，好东西



欢迎光临 机械必威体育网址 (//www.szfco.com/) Powered by Discuz! X3.4