Site Tools

Divide a curve into a dashed line

Developer: RhinoScript
Summary: Demonstrates how to chop up a curve into segments and spaces.


Is there a way to divide a curve into a dashed line (defining segment and spacing length)?


See the following script.


' DivideCurveDashed.rvb -- October 2010
' If this code works, it was written by Dale Fugier.
' If not, I don't know who wrote it.
' Works with Rhino 4.0 and 5.0.
Option Explicit 
' Divides a curve into "dashed" segments
Sub DivideCurveDashed
  Dim curve, slength, dlength
  Dim i, length, pt, t, dom, results
  curve = Rhino.GetObject("Select curve to divide", 4, True)
  If IsNull(curve) Then Exit Sub
  slength = Rhino.GetReal("Segment length", 1.0)
  If IsNull(slength) Then Exit Sub
  If (slength <= 0) Then Exit Sub  
  dlength = Rhino.GetReal("Dash length", 1.0)
  If IsNull(dlength) Then Exit Sub
  If (dlength <= 0) Then Exit Sub
  Call Rhino.EnableRedraw(False)
  i = 0
    If (i Mod 2 = 0) Then
      length = slength
      length = dlength
    End If
    pt = Rhino.CurveArcLengthPoint(curve, length)
    If IsNull(pt) Then Exit Do
    t = Rhino.CurveClosestPoint(curve, pt)
    If (i Mod 2 = 0) Then
      results = Rhino.SplitCurve(curve, t, True)
      curve = results(1)
      dom = Rhino.CurveDomain(curve)
      curve = Rhino.TrimCurve(curve, Array(t, dom(1)), True)
    End If
    i = i + 1
  Loop While True    
  Call Rhino.EnableRedraw(True)
End Sub
' Drag & drop and alias creation stuff
Rhino.AddStartUpScript Rhino.LastLoadedScriptFile
Rhino.AddAlias "DivideCurveDashed", "_-RunScript (DivideCurveDashed)"

developer/dividecurvedashed.txt ยท Last modified: 2020/08/14 (external edit)