谁能告诉我 PerformSweep这个命令怎么用

ememery · 发表于 2011-6-18 18:20:32

Private Sub RunScript(ByVal C1 As Curve, ByVal C2 As Curve, ByRef A As Object, ByRef B As Object)

Dim s As New Rhino.Geometry.SweepOneRail
s.ClosedSweep = True
Dim Brp As Brep()

brp = s.PerformSweep(C1, C2)

a = brp

但是出不来这个brep

其中C1 C2都是封闭的圆 circle

把c1改成非封闭的曲线之后就没问题了
所以问题就出在C1(即rail）是封闭曲线上

但是我需要的rail 就是一个封闭的圆
这种情况怎么解决？

求高手解答

songyang1989 · 发表于 2011-6-18 21:13:58

1# ememery 谢谢分享。。

ememery · 发表于 2011-6-18 21:42:02

2# songyang1989
没明白。。。我分享什么了？

qifeiyu862574 · 发表于 2011-6-18 22:26:43

3# ememery 喜感.....................

ememery · 发表于 2011-6-21 00:23:00

无聊啊无聊

wenchongyun · 发表于 2011-9-7 17:45:59

这是Grasshopper里的程序吧？？

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