QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
如何在AUTOCAD中画渐开线齿轮
8 A3 N% v8 g, ]7 ~' E; M6 c1 o5 z. K% n
找到一篇论文,想贴出来
 楼主| 发表于 2006-10-20 12:23:11 | 显示全部楼层 来自: 中国安徽马鞍山
但是不知如何上传 pdf 文档' r0 J$ s  }4 q! Y3 q0 ^
$ ^8 G: @, R2 U) q: D; j
[ 本帖最后由 qjpl 于 2006-10-20 12:26 编辑 ]

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

95.98 KB, 下载次数: 558

autocad中绘制渐开线齿轮

发表于 2007-4-19 08:36:34 | 显示全部楼层 来自: 中国浙江宁波
我也一直在找,谢谢( E3 ^" R$ v0 Q! V% e1 I
有没有通过计算等方法来绘制的
发表于 2007-4-19 09:07:03 | 显示全部楼层 来自: 中国陕西
可以通过电子图板输入公式曲线,然后导入AUTOCAD
, s9 P- i$ P% X6 C也可以在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%3D31 w* j& s1 _7 }1 ]" b
先画出齿廓,其余的不用说了
发表于 2007-6-1 08:23:54 | 显示全部楼层 来自: 中国江苏无锡

qq-5501297

有画渐开线的lisp啊
* a: a" l5 v& L只是本人不懂怎么上传,
7 I$ M: ]+ B. N( _9 H8 L, D' Q( |' n" i! c/ H" r
1.进入菜单:工具>宏>visual Basic编辑器;
% e1 {+ @0 i4 [# y9 j2.在编辑器中选菜单:插入>模块;$ A$ [  v3 F$ e
3.把这部分程序拷贝到(代码)窗口中;
. m$ v/ [7 @2 |9 Q( e! u5 a5 X4.选择菜单:运行>运行子过程用户窗体;
* Q- |; N' Q0 o2 N" t5.在AutoAcad绘图界面中可以看到结果.
; l! [% A) q- O& ~
. ?, r3 }( Q3 ~: H. g- M
6 N3 m9 E$ F- K3 }# v
) o" p& W% n3 X一个小程序搞定.+ c8 u: D, |" ^1 m
( q" R3 [' M  ^: v9 x
Sub jkx()) K7 }# p6 R* [) k
    Rem 绘制渐开线,By Sdh,2006-6-8
8 r; F) H7 T7 s1 j$ K    Dim d As Double   '节圆直径
: Y( t! I, q! H/ Z1 L    Dim r As Double   '节圆半径' v3 l0 c5 b  F
    Dim A As Double   '总展开角度
. o3 j; T: X: ^6 L& p# h    Dim Ai As Double  '展开角度2 [2 t$ I7 b6 c) q+ {
    Dim Li As Double  '展开弧长; I" X! ]  o% K/ {
    d = 100) Q6 R9 H5 ^/ }* O2 F- o4 a
    A = 360
/ [' T5 t0 d' r$ e  c    r = d / 2$ o% U/ h8 ]; o$ G1 c/ [# |7 R
    Dim Pnt1(2) As Double
/ h4 B; q) B1 `7 J    Dim Pnt2(2) As Double/ S9 B4 F9 O$ B+ O
    Dim PntLst() As Double, N As Integer; y6 `3 {& g) i" A& m, r5 T8 X
    ThisDrawing.ModelSpace.AddCircle Pnt1, r
- n. J! N  ]( |7 Y; s    For Ai = 0 To A * Atn(1) / 45# Step Atn(1) / 45#  f- k) n- ]9 s, r  J" f
        Li = r * Ai
* ^1 U2 [; s+ ?) k9 b6 a. i8 l        Pnt1(0) = r * Sin(Ai)
+ M! n% S6 m0 m+ F9 t% J% U8 K        Pnt1(1) = r * Cos(Ai)
" K4 x- W- y. ^, I8 G        Pnt2(0) = Pnt1(0) - Li * Cos(-Ai)3 X0 _1 I# t' q, y
        Pnt2(1) = Pnt1(1) - Li * Sin(-Ai)
2 Q) u) u0 g) n! O. ~, r/ O        ThisDrawing.ModelSpace.AddLine Pnt1, Pnt2
' L7 T% i4 C; H        N = N + 1) U8 H5 G4 Y! |
        ReDim Preserve PntLst(N * 2 - 1)% R- g# t' G: u4 Z/ Y5 c
        PntLst(N * 2 - 2) = Pnt2(0)
* R& P% O& @- [$ s        PntLst(N * 2 - 1) = Pnt2(1)
% [0 w# V0 Z! Y6 P" h8 x4 O( A9 G* ?    Next! M# L/ B6 W8 K
    If N > 1 Then
; ?: k+ f& h. V. {        ThisDrawing.ModelSpace.AddLightWeightPolyline PntLst
1 P4 j: ^, U% o* `& o. L9 c2 q    End If5 b1 M5 K7 Y$ ^( F, _
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

我来咯。。5 a+ w% A8 r9 _
这个我喜欢。。9 n# A' i: p' h: {2 K
找了很久了。
7 W, X) R) x) @5 ]谢谢分享。。* u7 c) n1 C1 s5 H4 y/ W
。。呵呵
* \2 I4 U" p4 N' h3 b  f  O: d要是我还不能看透的话,请楼主多多指教
头像被屏蔽
发表于 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 )

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