Summary: Demonstrates how to split a curve into multiple segments using RhinoScript.
I know that RhinoScript's SplitCurve function will split a curve into two pieces. But what if I need to split a curve into more than two pieces?
You can split a curve into multiple pieces by using the TrimCurve function. TrimCurve will trim a curve by removing portions of the curve outside of a specified interval. All you need to do is first divide the curve into the number of segments you want using DivideCurve. Then, loop through each division segment, create intervals from the results of CurveClosestPoint, and then trim the curve. For example:
Option Explicit Sub CurveSplitter Const rhCurveObject = 4 Dim sCurve sCurve = Rhino.GetObject("Select curve to split", rhCurveObject) If IsNull(sCurve) Then Exit Sub Dim nSegments nSegments = Rhino.GetInteger("Number of segments", 2, 2) If IsNull(nSegments) Then Exit Sub Dim aPoints aPoints = Rhino.DivideCurve(sCurve, nSegments) If Not IsArray(aPoints) Then Exit Sub Rhino.EnableRedraw False Dim i, t0, t1 For i = 0 To UBound(aPoints) - 1 t0 = Rhino.CurveClosestPoint(sCurve, aPoints(i)) t1 = Rhino.CurveClosestPoint(sCurve, aPoints(i+1)) Rhino.TrimCurve sCurve, Array(t0, t1), vbFalse Next Rhino.DeleteObject sCurve Rhino.EnableRedraw True End Sub