签到天数: 10 天 连续签到: 1 天 [LV.3]三顾茅庐
|
我想要做一个双轨扫掠的功能,但是要在中间加入控制断面
下面为我写的错误代码,请大虾帮忙修正修正,谢了!
Dim arrRails(1), arrShapes(1)
Dim curve1, curve2, line1, line2
curve1 = rhino.GetObject("select first rail curve", 4)
curve2 = rhino.GetObject("select second rail curve", 4)
arrRails(0) = curve1
arrRails(1) = curve2
line1 = rhino.GetObject("select first cross-section curve", 4)
line2 = rhino.GetObject("select second cross-section curve", 4)
arrShapes(0) = line1
arrShapes(1) = line2
Dim arrpoint1, arrpoint2
arrpoint1 = rhino.DivideCurveEquidistant(curve1, 1)
arrpoint2 = rhino.DivideCurveEquidistant(curve2, 1)
Call Rhino.AddSweep2(arrRails, arrShapes, arrpoint1, arrpoint2)
|
|