Rhino Script - Creating Midpoints of Lines

Option Explicit

'Script written by katieadee & NatashaHarper

'Script version Wednesday, February 27, 2008 3:13:01 PM

Dim baseCrv,arrCrvDomain,arrStartPt,arrEndPt,arrMidPt,arrPlane,circle,circRad

Call Rhino.AddLayer("Points", RGB(255, 0, 0))

Call Rhino.CurrentLayer("points")

baseCrv = rhino.GetObjects("select base Curves",4)
Call rhino.EnableRedraw(False)

Dim j

For j = 0 To UBound(baseCrv)

If Rhino.CurveLength(baseCrv(j))

arrCrvDomain = rhino.CurveDomain(baseCrv(j))

arrStartPt = rhino.EvaluateCurve(baseCrv(j),arrCrvDomain(0))

arrEndPt = rhino.EvaluateCurve(baseCrv(j),arrCrvDomain(1))

arrMidPt = rhino.evaluateCurve(baseCrv(j),(arrCrvDomain(1)-arrCrvDomain(0))/2)

Rhino.AddPoint (arrMidPt)

End If

Next

Call rhino.EnableRedraw(True)