哪位大神有渐开线坐标点计算的程序或者会的给编一个啊！谢谢啦！！！

渐开线方程(其中θ为弧度)：x=r*(cos(θ)+θ*sin(θ)),y=r*(sin(θ)-θ*cos(θ))
据此所写vb代码和运行效果图如下（只需在窗体里放一个命令按钮，代码在按钮事件里）：
Private Sub Command1_Click()
  Dim r As Integer, x As Single, y As Single, t As Integer, i As Single, j As Single
  Dim xo As Integer, yo As Integer
  Const pi = 3.1415926                                 '定义圆周率值
  r = Me.ScaleHeight * 0.15                            '圆半径为窗体高的1/5
  xo = Me.ScaleWidth / 2
  yo = Me.ScaleHeight / 2                              '定义圆心坐标
  For i = 0 To 359.9 Step 0.1
    '画基圆
    j = i * pi / 180
    x = xo + r * Cos(j)
    y = yo - r * Sin(j)
    Me.PSet (x, y), vbBlack
  Next
  For i = 0 To 180 Step 0.1                            '角度从0度到180度，角度步长为0.1度
    '画渐开线
    j = i * pi / 180                                   '角度转换为弧度
    x = xo + r * (Cos(j) + j * Sin(j))                 '获取横坐标值
    y = yo - r * (Sin(j) - j * Cos(j))                 '获取纵坐标值
    Me.PSet (x, y), vbBlue                             '画点
  Next
End Sub

我觉得上楼的渐开线方程有问题。
如果是0到180度的话，渐开线最后一点应该同起点一样都在x轴上，而实际上的图形不是这样。这个方程是在网上找的。
。
。
。
。
三分钟后，我发现我对渐开线的理解错误：渐开线是“基圆的切线+圆弧长度”，所以180度时圆上坐标点的切线的确是垂直于x轴的，楼上的渐开线方程没错误，渐开线的图形就应该是那样的。

渐开线形象概念：可以想像一个圆上缠绕着一根无限长的没有体积的线，你找到线头后，拉直，渐渐把线从圆上绕开（你钓鱼前的准备工作就是把主线从主线轮上取下就是这个动作），在绕开的过程中，线头经过的轨迹就叫渐开线。每绕开一圈，线头到线与圆边接触点的距离等于圆的周长。估计反过来的动作（把线绕到圆上去）线头的轨迹可能应该叫渐收线吧。
渐开线的用途：渐开线居然主要用于画齿轮，估计是在角度变化很小一部分吧，如0至20度。如果我画齿轮的话，我更愿意让圆半径周期性变化来获取。

[ 本帖最后由 lowxiong 于 2013-9-12 07:30 编辑 ]

渐开线是齿轮制造中采用的一种齿形，特点是对安装距不太敏感，传动比可以恒定，二根同向展开的渐开线法向距离在各处是相等的。

学习了，估计机械制造专业学生精通此道。