渐开线的画法

hbszal · 发表于 2006-10-22 11:03

不知道哪位知道,圆形和椭圆形的渐开线的画法,请告知一下,谢谢了

牧羊人 · 发表于 2006-10-22 14:23

请参考前边的帖子“齿轮渐开线在cad的画法”。http://www.askcad.com/html/200609/3469.html

渐行 · 发表于 2006-10-22 14:27

看来我还是坐井观天，还不知道＂渐开线＂，请哪位能理论上解说一下渐开线的意思吗？

hwf001118 · 发表于 2006-10-22 14:31

involute
[5invElu:t]
adj.
纷乱的, 复杂的
n.
渐开线
vi.
恢复原状, 消失

involute
in.vo.lute
AHD:[¹n“v…-l›t”]
D.J.[6inv*7lu8t]
K.K.[6!nv*7lut]
adj.（形容词）
Intricate; complex.
复杂的：复杂难解的；错综的
Botany
【植物学】
Having the margins rolled inward.
边缘内卷的：有向内卷的边的
Having whorls that obscure the axis or other volutions, as the shell of a cowrie.
内旋的：象玛瑙的壳一样具有遮住了中轴的螺旋线或其它旋状物的
v.intr.（不及物动词）
in.vo.lut.ed， in.vo.lut.ing， in.vo.lutes
To curl inward.
内卷：向内卷
To return to a normal or former condition.
恢复：恢复到正常的或先前的状态
n.（名词）
The curve traced by a point on a taut, inextensible string as it unwinds from another curve.
切展线；渐开线：当一根绷紧而不能拉长的细线从一弧线上延展出去时在其上一点所画的弧线

Latin invol¿s [past participle of] involvere [to enwrap] * see involve
拉丁语 invol¿s [] involvere的过去分词 [包，围绕] *参见 involve

in“volute”ly
adv.（副词）

渐行 · 发表于 2006-10-22 14:35

渐开线：当一根绷紧而不能拉长的细线从一弧线上延展出去时在其上一点所画的弧线
? 还是不太明白,画个简单图说明下好吗?

hwf001118 · 发表于 2006-10-22 14:58

:time:

成达 · 发表于 2006-10-22 19:41

我现在也没懂渐开线,请各位老师讲解一下.谢谢!

hwf001118 · 发表于 2006-10-22 20:01

http://www.askcad.com/html/200609/3469.html

JXysy · 发表于 2006-10-23 02:01

将下列程序拷到CAD中“工具” “选项”“宏”“VisualBasic编辑器”里，运行即可。
Sub jkx()
Rem 绘制渐开线,By Sdh,2006-6-8
Dim d As Double '节圆直径
Dim r As Double '节圆半径
Dim A As Double '总展开角度
Dim Ai As Double  '展开角度
Dim Li As Double  '展开弧长
d = 100
A = 360
r = d / 2
Dim Pnt1(2) As Double
Dim Pnt2(2) As Double
Dim PntLst() As Double, N As Integer
ThisDrawing.ModelSpace.AddCircle Pnt1, r
For Ai = 0 To A * Atn(1) / 45# Step Atn(1) / 45#
      Li = r * Ai
      Pnt1(0) = r * Sin(Ai)
      Pnt1(1) = r * Cos(Ai)
      Pnt2(0) = Pnt1(0) - Li * Cos(-Ai)
      Pnt2(1) = Pnt1(1) - Li * Sin(-Ai)
      ThisDrawing.ModelSpace.AddLine Pnt1, Pnt2
      N = N + 1
      ReDim Preserve PntLst(N * 2 - 1)
      PntLst(N * 2 - 2) = Pnt2(0)
      PntLst(N * 2 - 1) = Pnt2(1)
Next
If N > 1 Then
      ThisDrawing.ModelSpace.AddLightWeightPolyline PntLst
End If
End Sub

		自动登录	找回密码
密码			立即注册

[求助] 渐开线的画法

本帖子中包含更多资源

一种方法

浏览过的版块