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