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

adj.
纷乱的, 复杂的
n.
渐开线
vi.
恢复原状, 消失

involute
in.vo.lute
AHD:[¹n“v…-l›t”]
D.J.
K.K.
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 involvere * see involve
拉丁语 invol¿s[] involvere的过去分词 [包,围绕] *参见 involve

in“volute”ly
adv.(副词)

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

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

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

:time: :time: :time: :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
页: [1]
查看完整版本: 渐开线的画法