如下图,实现双轨扫掠的功能,但是左上角(1,2)与右下角(3, 4)的两个断面怎么都无效,请大虾看看是怎么回事?
Dim crv1, crv2, arrLine()
ReDim arrLine(1)
crv1 = rhino.GetObject("select crv1")
crv2 = rhino.GetObject("select crv2")
arrLine(0) = rhino.GetObject("select line0")
arrLine(1) = rhino.GetObject("select line1")
Call Rhino.AddSweep2(array(crv1, crv2), arrLine)
|