QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
10天前
查看: 9388|回复: 22
收起左侧

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

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

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

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

x
如何在AUTOCAD中画渐开线齿轮/ f/ Y- B" g: m- N
9 Z7 f2 H( l& w/ W. \3 C
找到一篇论文,想贴出来
 楼主| 发表于 2006-10-20 12:23:11 | 显示全部楼层 来自: 中国安徽马鞍山
但是不知如何上传 pdf 文档
7 n* I$ Y$ H0 O8 x, B- ^8 L) u5 r; ~. ^  R, U& z( k% Z  B
[ 本帖最后由 qjpl 于 2006-10-20 12:26 编辑 ]

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

95.98 KB, 下载次数: 558

autocad中绘制渐开线齿轮

发表于 2007-4-19 08:36:34 | 显示全部楼层 来自: 中国浙江宁波
我也一直在找,谢谢
, O- N& u+ V6 K( d3 z% l有没有通过计算等方法来绘制的
发表于 2007-4-19 09:07:03 | 显示全部楼层 来自: 中国陕西
可以通过电子图板输入公式曲线,然后导入AUTOCAD0 o6 p! D2 j" |  d( M
也可以在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
1 }% I5 X9 D$ E) b' |  n0 |% d4 T. {先画出齿廓,其余的不用说了
发表于 2007-6-1 08:23:54 | 显示全部楼层 来自: 中国江苏无锡

qq-5501297

有画渐开线的lisp啊# z0 }3 `6 b' m! w! Z8 B+ b
只是本人不懂怎么上传,
# h3 s' v) i3 m6 \4 s. k2 B+ C  A' {! R/ q  w5 c! b; {  k
1.进入菜单:工具>宏>visual Basic编辑器;& W" f) K; N9 A7 C  t' D
2.在编辑器中选菜单:插入>模块;- V- E0 v& q& O2 @( j) m4 D
3.把这部分程序拷贝到(代码)窗口中;( G( B/ Q3 C% ~+ X6 ~0 C/ _9 V
4.选择菜单:运行>运行子过程用户窗体;2 }2 T& J# I% h. S9 y% L* h
5.在AutoAcad绘图界面中可以看到结果.
! k5 L" u% x/ I2 a6 E' U
$ A. B4 S$ U/ J/ B) R6 e0 v
! H2 Z/ u8 ]) |: S: ]6 Y
9 D" x# V" ?- `! h5 s. w4 l5 N- R一个小程序搞定.. ~# ~* u! P8 F
2 h( _) {7 x8 z7 b# \! ^
Sub jkx()
5 _7 R0 B2 S" u( G8 f+ v6 K    Rem 绘制渐开线,By Sdh,2006-6-8: h0 q: E  K, }0 R2 K0 c0 X. l
    Dim d As Double   '节圆直径/ @& \8 H/ a$ N9 j% V/ x# n1 x# R
    Dim r As Double   '节圆半径
& ]- S3 I, h0 o' m2 N  s: c" @    Dim A As Double   '总展开角度, Q5 j2 a* R3 f% l4 f
    Dim Ai As Double  '展开角度- q( y  |( }# \. Y- Z+ |/ ]9 }
    Dim Li As Double  '展开弧长
. B5 @0 b5 A# K$ ^" M    d = 100
: W: Y; H6 L! R" v" x" K' |    A = 360
: P. I  f! |5 d3 e# l  Q    r = d / 2
, b! y; i% j& p: r1 Y, B    Dim Pnt1(2) As Double
" K# g% D( [1 |( B3 x% p8 r1 R    Dim Pnt2(2) As Double
3 [# d6 j* H: L8 {6 w; `% d: }    Dim PntLst() As Double, N As Integer
6 b5 l  T. t; q& D0 i    ThisDrawing.ModelSpace.AddCircle Pnt1, r
" G0 t! G8 U  n- o) P. _. f    For Ai = 0 To A * Atn(1) / 45# Step Atn(1) / 45#4 z) p: r% F$ h+ g- j$ m% Y% `7 A* T
        Li = r * Ai, @5 D0 g7 l1 D$ w/ t  e# |" y/ L
        Pnt1(0) = r * Sin(Ai)+ L3 q1 l6 j3 K3 _
        Pnt1(1) = r * Cos(Ai)3 y4 ^% g, Y( s; @" p
        Pnt2(0) = Pnt1(0) - Li * Cos(-Ai)
/ [% h: e# i) k( `9 W# |8 g5 N5 k        Pnt2(1) = Pnt1(1) - Li * Sin(-Ai). j  G: a5 }8 a7 ~/ m& p
        ThisDrawing.ModelSpace.AddLine Pnt1, Pnt29 S1 ?8 g- H+ W8 R
        N = N + 1
5 E  ?- U& a" U; }        ReDim Preserve PntLst(N * 2 - 1)
- @. d8 m6 A% p/ F        PntLst(N * 2 - 2) = Pnt2(0)! C) n7 D" {- x6 i2 [& y
        PntLst(N * 2 - 1) = Pnt2(1)
: T1 s5 t+ I) r# Z6 J3 |! X; L5 y8 V    Next) u1 N, Q( b. q7 |
    If N > 1 Then& J0 e/ A/ W$ W! U! o4 J
        ThisDrawing.ModelSpace.AddLightWeightPolyline PntLst
' L( K- r* r7 B% {, m/ {+ P( n6 |    End If
& ?9 L% i, A4 Y/ ?7 AEnd 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

我来咯。。5 @, ~# g8 W5 `
这个我喜欢。。
: m& y/ Q( ~$ g- A$ Y! E找了很久了。* Y# p- V) y8 F; K: p% I
谢谢分享。。0 M5 u  l. y2 I! u8 @  f7 _, R
。。呵呵
2 ?+ w+ q3 _6 ]% m+ y/ w要是我还不能看透的话,请楼主多多指教
头像被屏蔽
发表于 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 )

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