rhino.AddAlias "ci", "_-RunScript (createpipe)"'
Sub createpipe()
Dim strCurve, arrDomain
strCurves = Rhino.GetObjects("Select curves to create pipe around", 4, True)
i = Rhino.GetDistance(,, "set the radii", "set the second point")
If isarray(strCurves) Then
For Each strcurve In strcurves
arrDomain = Rhino.CurveDomain(strCurve)
Rhino.AddPipe strCurve, Array(arrDomain(0)), Array(i)
Next
End If
End Sub
举报