标题: 谁能告诉我 PerformSweep这个命令怎么用 [打印本页] 作者: ememery 时间: 2011-6-18 18:20 标题: 谁能告诉我 PerformSweep这个命令怎么用 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()