cad渐开线齿轮轮廓绘制_CAD绘制渐开线过程

CAD

画渐开线

1.

进入菜单

:

工具

>

宏

>visual Basic

编辑器

;

2.

在编辑器中选菜单

:

插入

>

模块

;

3.

把这部分程序拷贝到(代码)窗口中

;

4.

选择菜单：运行

>

运行子过程用户窗体

;

5.

在

AutoAcad

绘图界面中可以看到结果

.

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