iCAx开思网

标题: 齿轮渐开线的画法 [打印本页]

作者: yux88 时间: 2005-11-20 18:48
标题: 齿轮渐开线的画法
求齿轮渐开线的代码最好有详细的使用说明我下载了一个但是不好用老是出错最好是通过输入齿数和节园来得到

作者: qianhuan 时间: 2005-11-20 20:59
用CAXA电子图板2005生成渐开线齿轮然后另存为dwg格式，用AutoCAD打开再进行其它的编辑

作者: Joseph Lin 时间: 2005-11-21 08:58
BLOCK-INSERT法

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

作者: rdcyj 时间: 2008-6-14 22:55
谢谢!可以直接在CAD上做吗?

作者: haoqiang9621 时间: 2009-7-15 15:32
将下列程序拷到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

欢迎光临 iCAx开思网 (https://www.icax.org/)