Curve division length

''' Divides a curve with specific length
'''' —-

Function DivCurve3(idCurve, dblLength)
Dim lenPt, i, d
Dim allID()

lenPt = Rhino.DivideCurveLength(idCurve, dblLength)
If IsNull(lenPt) Then DivCurve3 = Null: Exit Function

d = 0
For i = 0 To UBound(lenPt)
ReDim Preserve allID(d)
allID(d) = Rhino.AddPoint(lenPt(i))
If IsNull(allID(d)) Then allID(d) = "Nothing"
d = d+1
DivCurve3 = allID
End Function

Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-ShareAlike 3.0 License