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
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