QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 9402|回复: 22
收起左侧

[原创] 如何在AUTOCAD中画渐开线齿轮

[复制链接]
发表于 2006-10-20 12:22:12 | 显示全部楼层 |阅读模式 来自: 中国安徽马鞍山

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
如何在AUTOCAD中画渐开线齿轮
/ }" ~  t6 _- ?1 N5 v* V. V  N
9 r1 U) d( ]3 U0 ], ~% ~( Z4 ^" z找到一篇论文,想贴出来
 楼主| 发表于 2006-10-20 12:23:11 | 显示全部楼层 来自: 中国安徽马鞍山
但是不知如何上传 pdf 文档
# G% q5 W; o3 I* j+ m; [
8 w4 [* x/ J3 R7 Z! P' O[ 本帖最后由 qjpl 于 2006-10-20 12:26 编辑 ]

用AutoCAD生成渐开线齿轮齿廓的方法.pdf

95.98 KB, 下载次数: 558

autocad中绘制渐开线齿轮

发表于 2007-4-19 08:36:34 | 显示全部楼层 来自: 中国浙江宁波
我也一直在找,谢谢( t5 D  e$ N! `7 J2 @: m0 U8 t
有没有通过计算等方法来绘制的
发表于 2007-4-19 09:07:03 | 显示全部楼层 来自: 中国陕西
可以通过电子图板输入公式曲线,然后导入AUTOCAD
6 e& g7 L3 z- `& x/ o1 P也可以在AUTOCAD下视精度直接插入若干点,用样条曲线拟合
发表于 2007-5-28 21:32:02 | 显示全部楼层 来自: 中国浙江宁波
VBA开发的渐开线圆柱直齿轮绘制的高变位内啮合齿轮啮合图

gear.rar

174.24 KB, 下载次数: 299

发表于 2007-5-31 16:48:55 | 显示全部楼层 来自: 中国四川成都
http://www.3dportal.cn/discuz/vi ... &extra=page%3D3) D' L+ Z2 L% C$ n( X+ T4 L: _
先画出齿廓,其余的不用说了
发表于 2007-6-1 08:23:54 | 显示全部楼层 来自: 中国江苏无锡

qq-5501297

有画渐开线的lisp啊: Q, l$ O: H6 R9 X( G  R0 p2 E! S
只是本人不懂怎么上传,! \* ]/ m% d  u8 g+ J% F# k
. e. X' B. X& K9 \6 H: ]! ~3 `
1.进入菜单:工具>宏>visual Basic编辑器;6 o& |- r2 Z6 c4 ]7 D& V
2.在编辑器中选菜单:插入>模块;
. W$ `4 v. R9 p8 j2 W( [/ |! ?: s3.把这部分程序拷贝到(代码)窗口中;
1 V% C) y& c; H: v% I+ v- K) q4.选择菜单:运行>运行子过程用户窗体;) X) I6 `) x2 G3 q
5.在AutoAcad绘图界面中可以看到结果.
: @" }2 Q8 ]; D( {5 D
( r. \: Z) p4 B7 z6 N5 f5 o
, ^) `, r6 p3 [- r& k: h
" A' _; K( i- D* E  k一个小程序搞定.
* K( c9 N; O' H0 m2 A" v7 ~; w% g
Sub jkx()
: P# J; u; a( {    Rem 绘制渐开线,By Sdh,2006-6-8/ ]1 e0 ?5 D) }/ f* U
    Dim d As Double   '节圆直径
& {6 B. y  M& N6 J    Dim r As Double   '节圆半径
- l9 u8 o  z$ m    Dim A As Double   '总展开角度
1 e! H& A& B. u    Dim Ai As Double  '展开角度
4 i* \& n- t% {    Dim Li As Double  '展开弧长5 u6 q7 |. A) m7 |6 a
    d = 100
; H. s) O) P9 [0 [: h    A = 360: }8 L% d# Y6 `8 \8 \, ]
    r = d / 2
0 J7 y" B$ I& r1 s6 K# F8 M/ r) T    Dim Pnt1(2) As Double
% M& r" N- s; n" p    Dim Pnt2(2) As Double1 C% T  u+ H/ t: U% J' J6 x
    Dim PntLst() As Double, N As Integer
/ x& R, d- p" ], u& ^, I0 U, p7 O; \* {    ThisDrawing.ModelSpace.AddCircle Pnt1, r" F6 p4 I& \6 {7 r* b3 N/ m
    For Ai = 0 To A * Atn(1) / 45# Step Atn(1) / 45#& a+ S2 M4 h( T
        Li = r * Ai  }& x8 M. D" I
        Pnt1(0) = r * Sin(Ai)! x" R8 E3 L7 v) J+ h+ o* X
        Pnt1(1) = r * Cos(Ai)
7 A: W2 @# J" n( }6 n        Pnt2(0) = Pnt1(0) - Li * Cos(-Ai)
1 }; Q( Z9 X# e* v8 G        Pnt2(1) = Pnt1(1) - Li * Sin(-Ai): v) Z$ z) i) U5 j" d# x; @
        ThisDrawing.ModelSpace.AddLine Pnt1, Pnt2# j& {. V( c5 @5 d- R+ _
        N = N + 1
" w7 P$ R8 I4 ?% R, ?# f        ReDim Preserve PntLst(N * 2 - 1)
+ x  T+ V% `  b$ Z4 Y        PntLst(N * 2 - 2) = Pnt2(0)# Y. z- M% R1 _$ {! b! Q
        PntLst(N * 2 - 1) = Pnt2(1)
  b9 v) _' d& j% r    Next
5 R4 b; h& y2 k+ _4 |8 r% t  U    If N > 1 Then
' `  f3 f& S3 }/ ?        ThisDrawing.ModelSpace.AddLightWeightPolyline PntLst8 r2 X/ a+ k; h4 y! L( S% u
    End If. @: p! i" a4 o9 b8 T" V/ i
End Sub
发表于 2007-6-1 17:26:22 | 显示全部楼层 来自: 中国湖北武汉
8楼大哥太高深了,小弟我看不懂.
发表于 2007-6-1 17:46:24 | 显示全部楼层 来自: 中国河南平顶山
在图纸中画齿轮齿廓,还没有实践过
发表于 2007-6-4 15:28:38 | 显示全部楼层 来自: 中国浙江台州
CAXA电子图板和AutoCAD那个更好用??
发表于 2007-6-19 12:07:57 | 显示全部楼层 来自: 中国河南安阳
真是专业啊,能具体到每个部位了,看来要学习的东西太多了!
发表于 2007-12-11 17:10:18 | 显示全部楼层 来自: 中国山西太原
非常感谢 我正需要呢
发表于 2007-12-11 17:16:40 | 显示全部楼层 来自: 中国山西运城
可以用CAXA转到CAD里面啊
发表于 2007-12-12 13:47:36 | 显示全部楼层 来自: 中国黑龙江哈尔滨
通过电子图板输入公式曲线
发表于 2007-12-12 15:09:37 | 显示全部楼层 来自: 中国山东东营
好东西啊,尤其是那个lisp程序,谢谢了,值得研究一下
发表于 2007-12-13 15:21:20 | 显示全部楼层 来自: 中国山东莱芜

谢谢

此问题大家给于了好的解决方法,值得学习!
发表于 2008-6-8 17:19:36 | 显示全部楼层 来自: 中国山西太原

fdf

我来咯。。* i% z/ h4 z8 y' y5 j3 h# D
这个我喜欢。。
3 M; e' }# {% d9 h2 w4 C! j找了很久了。
9 w0 a1 g. X+ w! @$ y5 r7 L谢谢分享。。
& v: O/ \$ R' P' K。。呵呵
% {( v- B1 _! o$ R要是我还不能看透的话,请楼主多多指教
头像被屏蔽
发表于 2009-4-25 21:29:30 | 显示全部楼层 来自: 中国湖北武汉
提示: 作者被禁止或删除 内容自动屏蔽
发表于 2009-5-12 13:34:59 | 显示全部楼层 来自: 中国内蒙古通辽
很好,我正需要呢
发表于 2010-6-15 12:19:08 | 显示全部楼层 来自: 中国山东
7楼的lsp有乱码,给个附件传上来吧
发表于 2010-12-10 18:04:01 | 显示全部楼层 来自: 中国江苏徐州
不知道能不能勇敢啊
发表于 2013-1-12 16:11:11 | 显示全部楼层 来自: 中国北京
可以试试,应该有更好的办法.
发表于 2013-2-21 23:12:11 | 显示全部楼层 来自: 中国广东东莞
谢谢楼主分享,收藏着学习
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表