
Option Explicit
’Script written by Maxime Moreau
’Script copyrighted by Open Form Architecture
’This script locate a new point on a curve according to its distance from either the CurveDomain(0), the CurveSartPoint or the CurveDomain(1), the CurveEndPoint.
’Script version Tuesday, November 24, 2009 11:26:07 PM
Call Main()
Sub Main()
Dim object, domain, crvNewLength
” distance of the new point
crvNewLength = 50
object = Rhino.getObject(“select curves”, 4)
domain = Rhino.CurveDomain (object)
” new point from the CurveDomain(0) or the CurveStartPoint
If crvNewLength > domain (1) Then
Rhino.MessageBox “Curve new length > CurveDomain: ” & CStr(domain(1))
Else
Rhino.AddPoint Rhino.EvaluateCurve (object, (domain(0) + crvNewLength))
End If
” new point from the CurveDomain(0) or CurveEndPoint
’ If crvNewLength > domain (1) Then
’ Rhino.MessageBox “Curve new length > CurveDomain: ” & CStr(domain(1))
’ Else
’ Rhino.AddPoint Rhino.EvaluateCurve (object, (domain(1) — crvNewLength))
’ End If
End Sub



















