渐开线的画法

hbszal

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

牧羊人

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

渐行

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

hwf001118

involute
[5invElu:t]
adj.
纷乱的, 复杂的
/ \5 U8 r5 N; Pn.
渐开线
* m# }& h! C4 c1 o0 m( P  r) yvi.
恢复原状, 消失

$ F+ u$ b# C1 rinvolute
, T6 b4 J: {( V, ?in.vo.lute
( n4 Y  O6 @# j: e; e: q( PAHD:[¹n“v…-l›t”]
D.J.[6inv*7lu8t]
K.K.[6!nv*7lut]
+ m# z( ^8 U( ?) o8 m# |; Badj.（形容词）
Intricate; complex.
) C. J6 e( _  U: ?8 ~  o复杂的：复杂难解的；错综的
( P) z6 b# h* r9 f% wBotany
【植物学】
Having the margins rolled inward.
边缘内卷的：有向内卷的边的
Having whorls that obscure the axis or other volutions, as the shell of a cowrie.
内旋的：象玛瑙的壳一样具有遮住了中轴的螺旋线或其它旋状物的
! L+ ^# B5 @7 }% M  X# \/ ]v.intr.（不及物动词）
, A6 q5 S' [9 Q2 t- F( d9 Tin.vo.lut.ed， in.vo.lut.ing， in.vo.lutes
To curl inward.
/ d- O. X/ ?! E# O! s, k内卷：向内卷
1 m3 T1 e: n/ m) `5 T- GTo return to a normal or former condition.
- K. Z% y1 T/ @1 \5 @恢复：恢复到正常的或先前的状态
n.（名词）
" b1 l: v/ _, T5 z# C# w8 I$ t% AThe curve traced by a point on a taut, inextensible string as it unwinds from another curve.
切展线；渐开线：当一根绷紧而不能拉长的细线从一弧线上延展出去时在其上一点所画的弧线

3 m" i: t5 C- R5 G9 }3 Y$ ELatin invol¿s [past participle of] involvere [to enwrap] * see involve
拉丁语 invol¿s  [] involvere的过去分词 [包，围绕] *参见 involve
+ |# N2 ~/ W" D( M$ N' v8 b
in“volute”ly
$ O. R2 f1 d7 G  Eadv.（副词）

渐行

渐开线：当一根绷紧而不能拉长的细线从一弧线上延展出去时在其上一点所画的弧线
% d) m: U# {# g$ i7 R? 还是不太明白,画个简单图说明下好吗?

hwf001118

:time:

成达

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

hwf001118

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

JXysy

将下列程序拷到CAD中“工具” “选项”“宏”“VisualBasic编辑器”里，运行即可。
Sub jkx()
    Rem 绘制渐开线,By Sdh,2006-6-8
    Dim d As Double   '节圆直径
; A) m7 C$ m" k& E    Dim r As Double   '节圆半径
    Dim A As Double   '总展开角度
7 P: G' d4 Q% i/ C    Dim Ai As Double  '展开角度
    Dim Li As Double  '展开弧长
    d = 100
. {# J7 u- S- ~0 L% R* p    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
4 c) K% T, V  B7 B0 M, k    For Ai = 0 To A * Atn(1) / 45# Step Atn(1) / 45#
        Li = r * Ai
* P, D+ @% @8 T/ I        Pnt1(0) = r * Sin(Ai)
        Pnt1(1) = r * Cos(Ai)
        Pnt2(0) = Pnt1(0) - Li * Cos(-Ai)
  C1 G" D5 i! o% N        Pnt2(1) = Pnt1(1) - Li * Sin(-Ai)
  \; a1 Q5 Z! ^        ThisDrawing.ModelSpace.AddLine Pnt1, Pnt2
* Y( e& O8 a) P) p0 \# m        N = N + 1
8 y5 }$ V; t$ e# ]  V        ReDim Preserve PntLst(N * 2 - 1)
& b$ g6 ^0 W/ h2 U7 v0 L        PntLst(N * 2 - 2) = Pnt2(0)
        PntLst(N * 2 - 1) = Pnt2(1)
- {! w8 M& y5 J7 n" y    Next
    If N > 1 Then
        ThisDrawing.ModelSpace.AddLightWeightPolyline PntLst
    End If
' N; a" ~% \( q* |* s9 \End Sub