機(jī)械社區(qū)

 找回密碼
 注冊會員

QQ登錄

只需一步,快速開始

搜索
查看: 13757|回復(fù): 31
打印 上一主題 下一主題

車蝸桿的宏程序

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
1#
發(fā)表于 2011-4-24 08:54:24 | 只看該作者 回帖獎勵 |倒序?yàn)g覽 |閱讀模式
+ [- Y& e" _, t* _
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! q7 J2 T1 @, i0 ?, m
* V5 X: E+ r  H+ T
M30
8 x4 h2 F3 d5 h; d! m3 t  W8 y1 Q; g+ Q' I2 y( A
O2513
4 E, P/ J  ~& Y* C, f) ~% ?0 ](V1=齒寬 V2=齒高 V3=齒形角 V4=倒角圓弧夾角 V5=倒角半徑  V8=Z1預(yù)留量 V9= Z2預(yù)留量 V10=大徑)/ f. j7 |0 U! {0 h; u& J
(V15=齒底過切量 V20=z~起點(diǎn) V30=導(dǎo)程 V25=蝸桿~退刀角)$ Z  J0 S- K& o" ?' ^+ W
(V31=X~變 V32=Z~變量 V40=z~終點(diǎn) V41=X~退刀 V42=Z~起點(diǎn) V50=刀補(bǔ)刀號 V51=主軸轉(zhuǎn)速 ). }4 t0 V1 H! e
1 b- G) @& W% L5 V! \4 Q
V21=0) |" D6 }% F# ~
T=V50& ?+ ?, q( e  L7 w& d8 N
M01
- B# [+ ^# b5 N' T" H" t  I; C; O3 pG97M03S=V51
. T2 j$ `: T# W# _' YG0X=V41Z=-V42M8
, L# h! Q1 `3 H2 B/ _4 pN90" A( R% l4 `, j/ w
V21=V21+0.5
# l7 U; a1 `5 R& w- D6 GV22=TAN[V3/2]*V21
; `& V% g. Q, nV31=V10-V21*21 k/ {4 a9 S0 L
V32=V20+V22+V8
% _( y  U& S1 W  u& TV33=V20+V1-V9-V22% c. R# z) ^6 U& w# P
N91' f4 D, ~% j0 O! w4 |, _
G0X=V31Z=-V321 C6 P3 ^# \; Q8 U& y, H0 V
G34Z=-V40F=V30/ Q  C4 z1 H5 n) k7 B4 s
G0X=V41$ \0 K2 Q7 c6 D- N' F# P
Z=-V42
! z' o( G- M$ gV32=V32+0.5# V+ u/ `- s3 H* N2 r0 K% \1 n6 D
IF [ V32 LE V33 ] GOTO N91/ K) s! M5 N" X* Z# y9 O( e
IF [ V21 LE [V2-0.5] ] GOTO N90- t, q# B$ N! K/ K) S( z

* G, {& G) J7 @) n7 Q% _% fV11=0
+ x' N3 X# v2 K2 OV4=90-V3/2
+ U2 @* A5 h! h2 Y4 FT=V50
! s& I2 }6 Q* G% uM012 y7 v/ t, }8 X$ z1 I
G97M03S=V51
; Y( ]8 G- ?1 Z# T2 B7 }& cG0X=V41Z=-V42M8
+ l% U  Z% |3 I" fN100. h; F+ S! J8 \8 I
V11=V11+2.
+ |* b: B# D1 n4 Z$ hV12=COS[V11]*V5
  P- y( F- i7 tV13=SIN[V11]*V5& A! k! N5 ^/ I. Z
V31=V12*2+V10-V5*29 u. {* g- g5 J& K8 `
V32=V20+V13& j  k0 G5 K4 U) F% t: o6 C
G0X=V31Z=-V322 ?6 C! X  B) D4 M% {2 e/ o8 B
G34Z=-V40L=V25F=V30) }1 U4 e( W- Y5 ~# Q& n! X
G0X=V41( {4 W# d# d1 T; {& N5 W6 G! ^3 S
Z=-V42" ~3 H% Z, n! @+ C* o, S
IF [ V11 LE V4 ] GOTO N100
% J8 l( s& P& Y4 d/ h  D$ T- W8 A' ^
V21=06 i- m$ a8 D0 P& A' J
T=V50
* Y6 B1 I& w! }1 u4 @5 ?/ vM01
, S: T5 a& r5 {% J* H9 FG97M03S=V51, ]( n! e4 Q6 X' x( F& _
V100=[V2-[V5-COS[V4]*V5]]
. A5 f4 `, T7 _/ yN200
: g0 i4 k- N; cV21=V21+0.1/ _  N/ ~' e1 B) ?) q4 e- n$ V
V22=TAN[V3/2]*V21) T0 M) Z4 E, E! c: p6 S
V31=[V10-2*V5+COS[V4]*V5*2]-V21*25 V8 ]( k. B4 l2 J$ ~
V32=V20+V13+V22: ^- X& v% O& j0 g' t9 C/ Z& e
G0X=V31Z=-V32' ?1 ^$ N' e" f, R2 h
G34Z=-V40L=25F=V30- B9 w+ ~/ @5 Z9 g5 m
G0X=V41
5 O2 K/ C% A( T; `- kZ=-V42- N3 u% c9 V+ ]  u8 S; ~; U3 ~) W
IF [ V21 LE V100 ] GOTO N200( E. E3 }6 G' n$ m7 [6 J4 K- K

3 _7 X; R1 r2 b$ gV35=0  p( f' r9 V) [1 s& c. i3 }2 c- w
T=V50  A/ Q5 B" m. u
M010 N8 J" O5 a. P, s. O  j& v
G97M03S=V519 |& z5 v$ i4 \+ p
N201
9 \/ _" w* ~* E/ zV33=V32+V351 Z$ D% z6 `0 g% ?3 N5 N6 {0 y( W4 k- f
G0X=V31Z=-V331 a# m( \2 U" Y. x. r7 Z4 m3 B7 i
G34Z=-V40L=V25F=V30
: N+ u8 c* i( m* F; b0 ^# oG0X=V41
' A! k% \1 y, p7 ^3 v& ZZ=-V42
8 T6 p% `2 U- r; I* j3 cV35=V35+0.15
+ J/ y7 _6 i4 |, _3 Q! DIF [ V35 LE V15 ] GOTO N201
7 N( H$ ^9 u3 A( b+ S; W& J$ G  g5 b$ k( M: d: W
V11=0
: K9 M5 k) F/ f6 LV4=90-V3/2
! ^% c/ b1 h  d! d2 q! n, _T=V50$ q, M3 X3 l6 I3 v% l0 Q
M01; W, M' V; D  u5 |7 Z* y
G97M03S=V51$ C0 B' B& O+ s6 {. _3 h% e
G0X=V41Z=-V42M8
" O% w7 X! ?. l! TN3001 R2 Z9 f# }; d! u: e
V11=V11+1
" b8 n5 n& j5 r5 D9 C, s3 V# gV12=COS[V11]*V5
0 u; R7 }5 n3 a# ]+ C8 N, [* hV13=SIN[V11]*V5
; a2 [  w8 A, p, Y( ?V31=V12*2+V10-V5*2
6 L& q3 }* I2 sV32=V1+V20-V13: q7 _% s" N2 U" U2 u  G2 Q
G0X=V31Z=-V32" B$ S' x. H2 u& z  B  {
G34Z=-V40L=V25F=V30/ S( J0 i2 Y3 ^7 I" I8 B
G0X=V416 y6 R# h8 i4 a
Z=-V42
7 ]' B4 j. x# v9 \( HIF [ V11 LE V4 ] GOTO N300
9 H) [  z2 d0 A8 {% i- [
' h7 s- Q  x2 C+ yV21=0
3 @% E3 f6 Q9 I; v) H5 J4 z& V) G% ST=V50. i* q4 u& `3 y% {) S
M01  @1 t& v6 e& o/ y/ Z
G97M03S=V51
6 Y. e: m/ g/ g& w' F# ~) D& M$ ]V100=[V2-[V5-COS[V4]*V5]]
5 S/ X. Z6 Z6 J. Q% ]% |1 LN4000 J" m- J$ }8 n& e0 \/ u
V21=V21+0.1% {3 w3 F1 l# p( t/ m( U
V22=TAN[V3/2]*V21
0 _/ A; d$ h  y- E' s: d& C2 hV31=[V10-2*V5+COS[V4]*V5*2]-V21*2+ R" U9 O& r% P. ~
V31=[V10-2*V5+COS[V4]*V5*2]-V21*2( `7 |3 w  S5 [/ G5 p1 B1 m
V32=V1+V20-V13-V229 v: f4 g8 c! X# p( |3 W
G0X=V31Z=-V32+ `6 U4 E& H9 ~1 ~* _7 {4 J) @' Z
G34Z=-V40L=V25F=V30: H- I. L9 E; N" Z1 \3 `* |7 D, p! T0 S
G0X=V41& F! r% j/ y1 Z% L7 M* X
Z=-V42
2 v/ d2 v1 V; P8 k- uIF [ V21 LE V100 ] GOTO N4007 Y2 ?" e9 G- C! S, \' t- H

% S* J$ N9 H; ^& E; r, U( N# QV35=0
3 W9 P+ d$ {6 e8 q; g1 UT=V50) h& D6 l/ z5 |4 `' T0 n# |0 b
M01
( i+ u; ^1 A  n- B! BG97M03S=V51
% Y5 \6 C' \) {& R, ON401; s: A6 _; A; e% [  K: x
V33=V32-V35/ d& J9 _$ }4 b6 X6 r) X; k* X
G0X=V31Z=-V33! Q8 K- c9 |; I: [
G34Z=-V40L=V25F=V30
( P: a4 M% O% H, H6 f+ oG0X=V41
4 ]' O, T! p% E) ~Z=-V420 n5 c5 C. o' {7 k! O
V35=V35+0.15
& ]: b9 }" @' {2 z6 }IF [ V35 LE V15 ] GOTO N4019 e: x1 D: ^$ a8 \0 Q" ~) x
G0X555.
! Z3 t. \- P  x' |4 RRTS
# L0 ~. y& `. F; e8 E

評分

參與人數(shù) 1威望 +1 收起 理由
飛翔123原野 + 1

查看全部評分

回復(fù)

使用道具 舉報

2#
發(fā)表于 2011-4-24 16:40:24 | 只看該作者
你寫的真好 太全面了 ,什么 都顧及到了 真是很好!~!~我就是沒看懂 頂你下吧 ~!~!
回復(fù) 支持 反對

使用道具 舉報

3#
發(fā)表于 2011-4-25 10:39:21 | 只看該作者
不頂對不住樓主的勤奮!!!!!!!!!!!!!!
回復(fù) 支持 反對

使用道具 舉報

4#
發(fā)表于 2011-4-25 10:41:08 | 只看該作者
再頂,更希望樓主能發(fā)更多好帖!!!!!!!!!
回復(fù) 支持 反對

使用道具 舉報

5#
發(fā)表于 2011-4-25 19:12:17 | 只看該作者
不過圖紙 發(fā)出來 會 更 全面
回復(fù) 支持 反對

使用道具 舉報

6#
發(fā)表于 2011-4-26 21:50:45 | 只看該作者
不知道數(shù)控車最大能加工多大模數(shù)的蝸桿啊

點(diǎn)評

我一定會回來的。  發(fā)表于 2013-12-6 20:27
好久沒有看見你了。、  發(fā)表于 2013-12-5 20:46
回復(fù) 支持 反對

使用道具 舉報

7#
發(fā)表于 2011-4-26 23:13:56 | 只看該作者
你寫的真好 太全面了 ,什么 都顧及到了 真是很好!~!~我就是沒看懂 頂你下吧 ~!~!
回復(fù) 支持 反對

使用道具 舉報

8#
發(fā)表于 2011-4-26 23:45:34 | 只看該作者
想學(xué),可惜只會入門的編程!復(fù)雜的看不懂
回復(fù) 支持 反對

使用道具 舉報

9#
發(fā)表于 2011-4-27 18:32:45 | 只看該作者
這是什么系統(tǒng)的程序?
回復(fù) 支持 反對

使用道具 舉報

10#
發(fā)表于 2011-4-27 19:33:57 | 只看該作者
書到用時方恨少,上學(xué)時PASCAL語言沒學(xué)好,不然看這不是小菜一碟。不地還是謝樓主
回復(fù) 支持 反對

使用道具 舉報

您需要登錄后才可以回帖 登錄 | 注冊會員

本版積分規(guī)則

小黑屋|手機(jī)版|Archiver|機(jī)械社區(qū) ( 京ICP備10217105號-1,京ICP證050210號,浙公網(wǎng)安備33038202004372號 )

GMT+8, 2024-11-18 14:45 , Processed in 0.056208 second(s), 15 queries , Gzip On.

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回復(fù) 返回頂部 返回列表