QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
6天前
查看: 9534|回复: 22
收起左侧

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

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

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

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

x
如何在AUTOCAD中画渐开线齿轮1 }* R6 `" I2 j2 A8 V: _
( b( `% x( F4 J7 f1 V0 `$ r/ Y& X
找到一篇论文,想贴出来
 楼主| 发表于 2006-10-20 12:23:11 | 显示全部楼层 来自: 中国安徽马鞍山
但是不知如何上传 pdf 文档
9 v- S' b6 T2 h; a7 x3 N6 v* L4 z# n# V
[ 本帖最后由 qjpl 于 2006-10-20 12:26 编辑 ]

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

95.98 KB, 下载次数: 558

autocad中绘制渐开线齿轮

发表于 2007-4-19 08:36:34 | 显示全部楼层 来自: 中国浙江宁波
我也一直在找,谢谢
9 y" h. [/ E* r7 d9 c有没有通过计算等方法来绘制的
发表于 2007-4-19 09:07:03 | 显示全部楼层 来自: 中国陕西
可以通过电子图板输入公式曲线,然后导入AUTOCAD; t) }- N- L7 K3 k/ }
也可以在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: H9 [/ m& k, q9 N) Y+ E
先画出齿廓,其余的不用说了
发表于 2007-6-1 08:23:54 | 显示全部楼层 来自: 中国江苏无锡

qq-5501297

有画渐开线的lisp啊- r% ^5 T0 Q* c
只是本人不懂怎么上传,5 ^5 Y& z+ [' g' F" g0 J

0 z$ J- v4 m" y2 G2 P- E. Z. F1.进入菜单:工具>宏>visual Basic编辑器;% G) r8 m) v/ [: L, h. p! f
2.在编辑器中选菜单:插入>模块;; T/ o7 H4 y. s0 z! p( e6 [% O3 P
3.把这部分程序拷贝到(代码)窗口中;+ c# I( q% p6 g7 g9 i7 ]& Q' t- N' Q
4.选择菜单:运行>运行子过程用户窗体;
0 b0 `4 j; y0 _: c4 ]) b/ e% F5.在AutoAcad绘图界面中可以看到结果.
. e' Y# _& D9 h! G+ x! {7 g2 w# w" @" N9 G( t: \$ z

) ]* k/ F8 u3 E) ^" C( t/ U& Z" d  z) x0 D
一个小程序搞定.
8 }7 J8 [$ t% o: z* m) [
8 W* Y8 m: G  D$ m; h2 e1 @Sub jkx()
, J7 W0 ~" p4 Q, z& t+ Q, l    Rem 绘制渐开线,By Sdh,2006-6-8
  [7 t: ^  l- Z, s& P6 j    Dim d As Double   '节圆直径
) X5 [( r- G" L    Dim r As Double   '节圆半径
3 ]$ Z1 m! v' W3 u- p    Dim A As Double   '总展开角度4 G7 d/ q/ M+ q2 ?, g* u
    Dim Ai As Double  '展开角度, ~$ [4 s$ f- q. V- p0 K' Q' N5 J
    Dim Li As Double  '展开弧长# j) B) M/ A+ ]4 D$ x& Y' q" O# d) y
    d = 100
& j/ V5 ^/ B0 T. I8 `7 p! |" v& a    A = 360
3 z8 }6 \7 J+ i! B2 d3 l  {    r = d / 2
, t, e1 }. ^! H+ C& s$ J& d, t. l    Dim Pnt1(2) As Double2 a/ K+ ?& K& M  u: z) X7 x6 v4 G
    Dim Pnt2(2) As Double
" B% I  N* [  d) {4 D7 t    Dim PntLst() As Double, N As Integer
3 g, F% s; d, _1 C0 c( j    ThisDrawing.ModelSpace.AddCircle Pnt1, r* Z$ z- k/ T& i) B. G8 V( t6 B
    For Ai = 0 To A * Atn(1) / 45# Step Atn(1) / 45#
# E, x3 ~9 \' w$ E8 ~* ~        Li = r * Ai
3 j: U& @% V5 S3 G  c        Pnt1(0) = r * Sin(Ai)
0 J5 M+ p! H, h. R& F- i" T        Pnt1(1) = r * Cos(Ai)4 A4 d9 w; i5 y7 n. p
        Pnt2(0) = Pnt1(0) - Li * Cos(-Ai)
' r3 {# D3 O: _* B1 q0 @$ b+ `/ _        Pnt2(1) = Pnt1(1) - Li * Sin(-Ai)$ v# ^  j! v: i; b6 z1 W' ?
        ThisDrawing.ModelSpace.AddLine Pnt1, Pnt2; z; t  V. F+ `  k; z
        N = N + 16 E  r; f) L, D1 r# B4 b. |
        ReDim Preserve PntLst(N * 2 - 1). l9 e7 F$ I' B6 `
        PntLst(N * 2 - 2) = Pnt2(0)
( b5 H# K$ E/ S% p  P; g9 D        PntLst(N * 2 - 1) = Pnt2(1)" ~; N7 h4 p2 c9 x4 m1 B
    Next
5 B. T9 T5 }. t+ d    If N > 1 Then3 o  ]2 \5 Y7 L! \) l
        ThisDrawing.ModelSpace.AddLightWeightPolyline PntLst1 ^; o) P& y6 e: ^
    End If9 m. Y, m/ q! w% M/ q
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

我来咯。。2 B( ^4 \- }- j/ Q0 U
这个我喜欢。。. {9 `+ x9 P$ \* [; F# \7 o: d
找了很久了。0 K8 G: i9 ?$ M) M
谢谢分享。。9 u" F3 o5 F: R2 B! ^7 `6 V. }
。。呵呵, T1 u# L+ C, h
要是我还不能看透的话,请楼主多多指教
头像被屏蔽
发表于 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 )

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