xiaoyongzf 发表于 2009-5-21 11:09

齿轮渐开线

Dim z As Single
Dim SP(0 To 2) As Double, EP(0 To 2) As Double
Const Pl = 3.1415926 / 180#
For z = 0 To d
SP(0) = 5 + e * Cos(z * Pl) + z / 180 * Pl * e * Sin(z * Pl)
SP(1) = 5 + e * Sin(z * Pl) - z / 180 * Pl * e * Cos(z * Pl)
SP(2) = 0
Set obj_point = obj_ModelSpace.AddPoint(SP)
Next z
obj_Acad.ZoomExtents
End Sub
VB已经与CAD实现连接，其中上面代码中z为渐开线上任意一压力角，d是已经算出的终止角度，为什么CAD中不是显示这些点啊？
页: [1]
查看完整版本: 齿轮渐开线