Rhino Script #1 Curve Inside Triangle

Option Explicit'Script written by '

Script version Sunday, March 02, 2008 10:01:46 PM

Call Rhino.AddLayer("cv", RGB(255, 100, 0))

Call Rhino.CurrentLayer("cv")

Dim arrTri,tri, arrBladder, blad, loft, arrCvPoints

arrTri = Rhino.GetObjects("Select triangles", 4)

Call rhino.EnableRedraw(False)

For Each tri In arrTri If isNull(arrBladder) Then

Call rhino. print("Error")

Else

arrCvPoints=Rhino.PolylineVertices (tri)

arrBladder = Rhino.AddCurve (arrCvPoints,2)

End If

Next
Call rhino.EnableRedraw(True)