基于VB的SolidWorks2007二次开发

刷新21再刷新 · 发表于 2013-4-12 16:41:18

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

程序：
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
为什么只能生成三点呢？

刷新21再刷新 · 发表于 2013-4-12 16:42:49

tMax = 1
tMin = 0.01
tStep = 0.01
n = Int((tMax - tMin) / tStep)

ryouss · 发表于 2013-4-12 17:26:35

刷新21再刷新发表于 2013-4-12 16:42 static/image/common/back.gif
* o: Y1 p. Q [/ l5 D7 N. J; mtMax = 16 i2 p% V" }" \3 O) b1 P, w- v
tMin = 0.01
3 j5 w3 y: X) P$ ~9 qtStep = 0.01

R,W,h,p 的變數?

刷新21再刷新 · 发表于 2013-4-12 19:15:05

ryouss 发表于 2013-4-12 17:26 static/image/common/back.gif9 Y* o8 a b* L
R,W,h,p 的變數?

输入值。。。

ryouss · 发表于 2013-4-12 20:47:51

本帖最后由 ryouss 于 2013-4-12 20:56 编辑

如图,正常的
也可把 tStep = 0.01 改為 0.1 加大間隔看看!
"宏"執行後按 F 鍵放大看看

		自动登录	找回密码
密码			注册

通知

[求助] 基于VB的SolidWorks2007二次开发

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块