Summary: Demonstrates how to trim curves using RhinoScript.
I need to trim a lot of lines where ever they intersect. How can i do this? Also, can you clarify what is meant by 'domain'?
If you can remember back to your pre-calculus days, a domain is most often defined as the set of values for which a function is defined. As curves in Rhino have starting and ending points, they also have starting (minimum) and ending (maximum) domain values (parameters). You can obtain a curve's minimum and maximum domain values using the CurveDomain function.
In order to trim a curve using TrimCurve, you must provide an interval, or sub-domain, of the curve that you want to keep. For example, lets say you have a curve with a minimum domain value of 0 and a maximum domain value of 5 and you wanted everything from t=2 to the end of the curve trimmed away, then you'd do something like this:
domain = Rhino.CurveDomain(curve) Call Rhino.TrimCurve(curve, Array(domain(0), 2), True)
Remember, the interval argument defines what you want to keep, not what you want to trim.
If two curves intersect, CurveCurveIntersection will return the parameter on the curve where the intersection event took place. Using this parameter, you can begin to build an interval to pass to TrimCurve.
The following example script demonstrates how to interactively trim a curve using what was discussed above.
Sub TestTrimCurve Const rhCurve = 4 ' Pick the cutting curve Dim cutter : cutter = Rhino.GetObject("Select cutting curve", rhCurve) If IsNull(cutter) Then Exit Sub ' Pick the curve to trim Dim curve : curve = Rhino.GetCurveObject("Select curve to trim") If IsNull(curve) Then Exit Sub ' Calculate the intersection of the two curves Dim ccx : ccx = Rhino.CurveCurveIntersection(curve(0), cutter) If IsNull(ccx) Then Rhino.Print "Curves do not intersect." Exit Sub End If Dim trim_t : trim_t = ccx(0, 5) ' intersection parameter Dim pick_t : pick_t = curve(4) ' pick parameter Dim domain : domain = CurveDomain(curve(0)) ' curve domain ' TrimCurve's interval argument defines what to keep. ' So, figure out what side of the curve to keep. Dim interval If (trim_t < pick_t) Then interval = Array(domain(0), trim_t) Else interval = Array(trim_t, domain(1)) End If ' Trim the curve Rhino.TrimCurve curve(0), interval End Sub