基于VB的SolidWorks2007二次开发

゜_Μaggie · 发表于 2013-4-12 16:41:00

程序：
For t = tMax To tMin Step -tStep
a = (R - W / 2) * t + W / 2
b = W / 2 / a
x = a * Cos(Atn(b / Sqr(-b * b + 1)) + Sqr(a ^ 2 - (W / 2) ^ 2) * Tan(h * 3.14 / 180) / Tan(p * 3.14 / 180 / 2) / a)
y = a * Sin(Atn(b / Sqr(-b * b + 1)) + Sqr(a ^ 2 - (W / 2) ^ 2) * Tan(h * 3.14 / 180) / Tan(p * 3.14 / 180 / 2) / a)
z = 0
Part.CreatePoint2 x / 1000, y / 1000, z / 1000
n = n - 1
Next t
为什么只能生成三点呢？