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

機械社區

標題: 齒輪漸開線畫法 [打印本頁]
作者: lioney    時間: 2009-5-6 09:56
標題: 齒輪漸開線畫法
[attach]129127[/attach]
2 E. m' O4 `9 F5 A/ i  I& b[attach]129128[/attach]: u6 e# y8 A, E% z. }) Q+ h
[attach]129129[/attach]
; T# ]" M  g$ X3 E; J6 h$ G關于齒輪漸開線畫法的一些文章
作者: tjwj    時間: 2009-5-16 15:21
有編號的LSP程序嗎？
作者: 拓隆機械    時間: 2009-5-22 07:26
N年前沒處找。現在找到了！謝謝樓主提供！
作者: 史鳳宏    時間: 2009-5-27 15:46
謝謝樓主。學習了。
作者: 胡志勇    時間: 2009-5-27 20:43
本人對此也正在研究中，現在除了齒根過渡曲線部分沒有完成，其他部分已經完全解決了。如有需要交流的，請及時聯系：huzhiyong000@163.com。
作者: wxd080607    時間: 2009-6-13 04:27
謝謝啦     我們親愛的樓主
作者: ct1123    時間: 2009-6-17 15:02
謝謝樓主的辛勤勞動！
作者: 莘莘學子    時間: 2009-9-23 23:32
太感謝樓主啦，去看看
作者: FLEI200410    時間: 2009-9-24 10:29
謝謝樓主資料喲
作者: hj9370    時間: 2009-9-27 15:01
齒輪的制造過程不是數控加工，不需要做CAM
$ Y$ o( E1 J/ S齒輪的設計有一套經典的計算方法，也不需要做CAE8 H- ^) C9 I% v1 F
所以研究齒輪的精確三維造型方法沒太大意義
作者: hyji2006ren    時間: 2009-9-28 13:22
呵呵，可以學習
作者: shang123445    時間: 2009-9-30 14:41
謝謝LZ，好東東
作者: 今世緣分    時間: 2009-11-29 18:49
不錯哦！值得借用。。。。。。。。。。。。。。。。。。。。。。。
作者: wdn36409    時間: 2009-11-29 19:41
(defun c:jkxcl()( A/ [+ c* d; e1 D. k
  (setq os(getvar "osmode"))0 {( h+ l* @  Z1 w1 i- k
  (setvar "osmode" 0)
: ^  W- N/ v; T" J* `8 B* J  (setq m(getreal"輸入模數：M=")3 g/ i& S  o$ f9 r2 E, U
z(getint"輸入齒數：Z=")* [" m% U: H# K# l
h(getreal"輸入齒輪寬度：H=")9 M0 w' E6 b; e0 D7 ]
zj(getreal"輸入齒輪軸徑：ZJ=")
" u% V+ E" X" O2 T lf(getreal"輸入輪輻厚度（無輪輻結構時輸入齒輪寬度）：LF=")  U0 ^1 |7 i. G+ V6 p
  )* C. u9 l+ G2 ?1 F/ Q# @, O
  (if (> h lf) (progn5 o  z8 l+ h1 C8 M
   (setq gr(getreal"輸入輪轂端面半徑：gr="))4 {8 y  c9 F8 d1 ^# _* X- B
   (setq yr(getreal"輸入輪緣端面半徑：yr="))7 r' P! ]. b  b+ n3 ~
   (setq s(/ (- h lf) 2))
+ Z6 Q& ~* N5 y$ x# I. [8 c   (setq l(- h s))
% X& _8 B, A5 b" w        )7 X1 l% H' }; l0 }$ H
  )
/ f1 l4 m0 K  x- S( K  (setq rf(/ (* (- z 2.5) m) 2)
2 p' D" \3 {* W1 v2 y& s6 }+ z rj(/ (* m z 0.939693) 2)
2 c5 S2 D. a. X! e% C r (/ (* z m) 2)% t' x( C2 U+ R; H5 `# ~1 o; ?) a9 r
ra(/ (* (+ z 2) m) 2)0 Y+ w; ?' K( I5 x
tt(* m pi)3 ~0 P8 z% F9 K7 s; e* k
pj(/ 36.0 z). j/ f$ P5 c+ F  e- _3 i
a (/ (* 1.25 m) (cos (* 20 (/ pi 180))))) T6 B" E. g& V; X7 {- Z/ W
pt0(list 200.0 30.0 0.0)7 @( y  H+ p$ H) \* ^4 [) }: ~
pt1(polar pt0 0 (/ tt 4))3 v8 J, l4 ?& t
pt2(polar pt0 pi (/ tt 4))
6 C5 u' Q6 }. |+ o8 A5 j5 K( B, p pt3(polar pt1 (* 110 (/ pi 180)) a). d1 d# _4 U2 p/ D
pt5(polar pt1 (* -70 (/ pi 180)) a)
) Y6 O! J" c2 X. e( o# y0 W2 W pt4(polar pt2 (* 70 (/ pi 180)) a)% [$ Q: x" W) p. A
pt6(polar pt2 (* 250 (/ pi 180)) a)  _3 i' e; h8 D. K1 \
pt7(polar pt6 (* -90 (/ pi 180)) 2)& p! L4 u* ^; w! j
  )
( x2 ?6 h0 W, Q  (command "layer" "m" "11" "c" 1 "" ""; [% F- D7 w, \! F6 ^* P
    "layer" "m" "12" "c" 2 "" ""/ C2 D/ n+ e' F9 |2 O* I1 z! k- M
    "layer" "m" "13" "c" 252 "" ""
( t5 q7 M' x' O' ]1 b    "layer" "s" "13" ""
1 [: N9 t4 E4 `- _  B    "pline" pt7 pt6 pt4 pt3 pt5
! _7 o; H3 [- c' T" }* I+ }  )
( E) l  S* h  b+ y) e' `) U/ r4 u  (setq i 1)7 X% O, w* o& p, }# Z
  (while (<= i 7)
4 f; L' y/ V9 K) l% J    (setq pt6(polar pt6 0 tt)
9 x( S0 s5 [$ n& t# B   pt4(polar pt4 0 tt)* n' T, ~2 T# a
   pt3(polar pt3 0 tt)6 u; K; x8 Z3 r  K2 @% l* j
   pt5(polar pt5 0 tt)
+ F. y) z. l- l, S; E; w    )
! `$ `1 ^1 n' I& d    (command pt6 pt4 pt3 pt5)# V* ?$ `) P; w8 s3 s
    (setq i(+ i 1))
0 X1 o: D6 M, {& d$ \) ?# O  )
8 o; P! J  P4 ]0 K5 ~' u  (setq pt8(polar pt5 (* -90 (/ pi 180)) 2))  J: X5 O/ A8 ?: N  B
  (command pt8 "c")
8 l8 O5 A. m/ S0 d* t2 G  (setq pt(polar pt0 (* 180 (/ pi 180)) (* 4 tt)))
8 K5 X" P! [0 o5 @  ^, l! F  (command "move" "l" "" pt0 pt)
9 A) V0 _7 d: {9 _# V- |; f+ a+ j8 d  (setq e0(entlast))( t4 |# P+ }& r% \' p- p
  (command "layer" "s" 11 "")
/ U' _7 I! y) G/ M  d- z# q& L7 F2 E  (setq p0(polar pt0 (* 90 (/ pi 180)) r))1 ~  \$ y  k: U0 G  x1 v
  (command "circle" p0 ra)7 |3 e" m! i& W' ~. N
  (command "region" "l" "")
: U" U+ N, U% {: c; \  (setq e10 (entlast))& l8 f: w, @; k; b+ c  z
  (command "layer" "s" "12" "")
. P+ g3 S; I! [- n  (setq j 1)) U9 U3 T+ x  a, s1 R0 Q
  (while (<= j z)
; b) N3 y& K+ m. b    (setq i 1)
) W1 w6 h8 c0 W: f0 i. X    (while (<= i 10)! [! G8 E$ u& o4 W  y. I& u
      (command "rotate" e10 "" p0 pj)
0 m  q: m9 R: J# J      (setq yd(* r pj (/ pi 180) i))& n2 Y  H% H* H+ }; a5 i; Z6 g- ]
      (setq pt(polar pt0 0 yd))5 f/ {# s4 o" d  _1 R7 [
      (command "copy" e0 "" pt0 pt)( @/ Y, c) K7 g0 B# M$ a% ~
      (command "region" "l" ""); L+ S0 X' W3 ^2 R1 [. i1 ^
      (setq e1(entlast))
9 C! z0 @7 M7 l/ V5 d' k      (command "subtract" e10 "" e1 "")
; v5 E2 ], J! B! q      (setq i (+ i 1))
2 k5 Z, D; J+ V    )6 t5 X! I& V- n4 x: n! b& I
    (setq j(+ j 1))
( x! X5 r6 I+ }$ F, e7 Z% I& j  )# @6 U: ^, j" y0 x- U( d- s* p
  (command "layer" "s" "11" "")/ i3 v4 n) c1 A
  (command "extrude" e10 "" h 0)
% G4 @7 h" _, W) {( @  (setq e5 (entlast))
% U5 D8 V+ v3 \2 D  G3 U  (command "erase" e0 "")
- s9 [9 E2 }8 Y& `5 s5 i  (if (> h lf)(progn& p+ j. p7 s! v. A) e6 k0 X/ G
  (command "circle" p0 yr)* k% n8 a* U6 C, ?6 ?
  (setq e1(entlast))
3 _, O0 M6 z& U/ _7 h8 J  (command "extrude" e1 "" s 5)1 f3 _7 E9 D" ~; X# O/ t* e
  (setq e1(entlast))
( g# |  W9 g, j7 r4 A  (command "circle" p0 gr)( Q1 \7 @/ J3 ~2 Z6 ]- |7 Y
  (setq e2(entlast))
) c- t# [& ~( N. n2 s# i6 X  (command "extrude" e2 "" s -5)
: ]+ R- z: H+ S2 I  ?6 V  (setq e2(entlast))% L" {) A9 J7 e' B3 v$ @8 N$ d
  (command "subtract" e1 "" e2 "")
- j' g- T' R4 H" P' A  (setq pt(list (car p0) (car (cdr p0)) h))6 m( S8 W9 Z, f; K8 R
  (setq s(- 0 s))1 B! a; \5 x) \; R& O! B! p9 l+ {
  (command "circle" pt yr)- |0 U" S. Z# p, i* i  y+ Y- M9 j
  (setq e3(entlast)): \# k5 ~6 Z( X/ e
  (command "extrude" e3 "" s 10)
. A+ w0 o3 N: B4 w4 K, p+ x- @' c  (setq e3(entlast))1 ^2 r0 z3 K, W0 F
  (command "circle" pt gr)% Q  ^& I, Z( H, g! P
  (setq e4(entlast))
  h& g! d) M. U6 o$ X: y  (command "extrude" e4 "" s -10). `' _; r) ~* `  n
  (setq e4 (entlast))' J2 W+ _8 Z0 u- v/ [9 }
  (command "subtract" e3 "" e4 "")
0 C& i* u; x( ~$ L1 o  (command "cylinder" p0 (/ zj 2) h)
, w. m( s) H$ A# `0 ?/ u  (setq e4(entlast))
: b* G9 `) E1 B  l: B# n# {$ @  (command "subtract" e5 "" e1 e3 e4 "")
( z6 a! `3 U& s3 ]5 n5 m        )
) q4 E6 P1 c+ C- L$ F% a- ]               (progn (command "cylinder" p0 (/ zj 2) h)
7 T: O: S; W; M8 C   (setq e4(entlast))- d4 F! z/ l7 K
   (command "subtract" e5 "" e4 "")
- X( h( c, [8 H% w        )4 h4 j4 M# s% x; |
    )' T+ [% r0 N0 I2 M# s. }
  (setvar "osmode" os)" b' H7 ~: K4 W8 m1 F7 w5 t5 t0 g# e
)
作者: wwy123    時間: 2009-11-29 21:36
厲害，值得學習！
作者: lioney    時間: 2009-12-1 11:58
本人對此也正在研究中，現在除了齒根過渡曲線部分沒有完成，其他部分已經完全解決了。如有需要交流的，請及時聯系：huzhiyong000@163.com。
5 o8 ]( v& D% Z, o. C胡志勇 發表于 2009-5-27 20:43

5 k( R0 n0 v6 o不錯呀,我現在也是齒根過渡過曲線找不到相應的資料來解決,其他的都解決了,后來我是用圓弧+spline做的齒根過渡曲線
作者: 梟龍    時間: 2009-12-2 09:34
二維圖畫漸開線做什么？
作者: 見習生小王    時間: 2009-12-3 09:07
感謝樓主共享。
作者: 怕瓦落地2011    時間: 2009-12-12 18:34
謝謝樓主！！！！
作者: 恁老廝    時間: 2009-12-12 21:02
我是AutoCAD家族MDT(2005已絕版)用戶,軟件內包含標準件工具包,齒輪鏈輪軸承緊固件等諸多標準件都不需畫輪廓,只要輸入參數或選取即可快速成型,估計其工具包也會轉移到接手的INVENTOR軟件
作者: 怕瓦落地2011    時間: 2009-12-13 10:57
最好有個程序！！！！
作者: 江誠興    時間: 2009-12-19 14:08
謝謝樓主。學習了
作者: mayong211    時間: 2010-1-16 23:29
有點難度，看不懂！
作者: 長者    時間: 2010-4-1 20:40
怎么下不了哦 漸開線是怎么回事
作者: azrael90    時間: 2010-4-11 14:17
感謝 找很久了 下載看看！
作者: gaosb4728    時間: 2010-4-12 22:26
xiexielouzhu
作者: wenwude1985    時間: 2010-4-14 13:43
看看，學習下，一直在找這個，謝謝
作者: 韓紫炎    時間: 2010-4-20 13:30
謝謝樓主了，，，，，，，
作者: lipeng19871130    時間: 2010-4-20 20:57
看看咯！！！！！！！！
作者: ch402    時間: 2010-4-25 19:25
好，謝謝啊！！！！！！！！！！！！！！！
作者: hengry    時間: 2010-5-2 23:49
威望又不夠了啊，想看點東西真難啊。。
作者: xuelin103    時間: 2010-5-10 15:36
有人能幫幫忙么！~
# f9 j) b  h2 o  S/ O6 w我的qq504891432
5 r0 {" s  W  @" j/ n7 S齒輪怎么畫啊
作者: ch402    時間: 2010-5-12 09:36
謝謝！！！！！！！！！！！！！！！
作者: 車銑铇加工    時間: 2010-5-13 21:15
謝謝樓主資料喲！！！！！！！！！！
作者: 守望著    時間: 2010-5-13 23:01
找了好久啊！非常非常的感謝…
作者: 542236522    時間: 2010-5-22 19:49
謝謝樓主分享。。。。。
作者: 金鷹他弟    時間: 2010-11-5 21:34
謝謝樓主。學習了。 " ^9 |4 \& T) n( Z# M; H# h0 r
作者: cuibo_2000    時間: 2010-11-5 23:48
謝謝樓主的資料下走學習了
作者: 金線球    時間: 2010-11-7 16:35
怎么看不了啊  浪費了我的威望啊
作者: Tiida1234567890    時間: 2010-11-9 21:45
謝謝啦     我們親愛的樓主
作者: 高進    時間: 2010-11-10 21:48
謝謝樓主了           . i3 H. _$ C5 n7 v  X
作者: dagger24    時間: 2010-12-12 17:37
謝謝樓主。學習了。。。。。。。。。。。。。。。。。。。
作者: kingsky120    時間: 2010-12-13 14:18
很不錯的一份資料  謝謝lz了
作者: cadlouis    時間: 2010-12-28 10:43
為了樓主的資料特意注冊，謝了。。
作者: zb850917    時間: 2011-4-25 13:30
回復 tjwj 的帖子! _' h: Y: I0 k/ L
. S- Z1 R- e/ a' A
謝謝我要用啊,HEHE DUOHAO D DONGXI HEHEH   SANUNCK,  CSNCLKENC         
作者: 前度壞人    時間: 2011-4-25 21:25
謝謝樓主分享，最近剛在學。。。。。。。
作者: momei    時間: 2011-5-1 18:17
頂啦  學了,我正需要做齒輪啊。
作者: wu650818    時間: 2011-5-3 06:30
謝謝樓主了  ............................................
作者: wangzhihui    時間: 2012-2-22 12:51
找了好久，終于找到了，謝謝樓主！
作者: 開心流浪    時間: 2012-2-22 17:03
下不了阿，怎么辦，哪位大俠教教+ M- o( a. L7 S" A3 r( {




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