齿轮渐开线的画法

求  齿轮渐开线的代码   最好有详细的使用说明 我下载了一个 但是不好用 老是出错  最好是通过输入齿数和节园来得到

用CAXA电子图板2005生成渐开线齿轮然后另存为dwg格式，用AutoCAD打开再进行其它的编辑

BLOCK-INSERT法

[ 本帖最后由 Joseph Lin 于 2005-11-21 09:00 编辑 ]

将下列程序拷到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