Forgot password?

Create an account!

Forum

« back

RhinoScript – circlefitpoints

Messages

Please log in to write a message.

  • 1. hare14 (Sep 24, 2013 09.55):

    Hi

    If I create a plane by fitpoints and a cicle by the same fitpoints the resulting circle is not on the former plane.

    I expected the circle to be on the plane. Was this too optimistic ?

    Here my testscript:

    Option Explicit
    Call Main()
    Sub Main()
            Dim objPts(3),tmpObj,tmp, strCmd
           
            objpts(0) = rhino.addpoint(array(0, 0, 0))
            objpts(1) = rhino.addpoint(array(0, 10, 0))
            objpts(2) = rhino.addpoint(array(10, 0, 0))
            objpts(3) = rhino.addpoint(array(10, 10, 10))
           
            strcmd = " _selid " & objpts(0) & " _selid " & objpts(1) & " _selid " & objpts(2) & " _selid " & objpts(3)
           
            tmp = rhino.command("_Circle _FitPoints" & strcmd & " _Enter")
            tmpobj = rhino.LastCreatedObjects
            rhino.ObjectName tmpobj, "Circle RH" & rhino.exeVersion
            rhino.ObjectColor tmpobj(0), vbred

            tmp = rhino.command("_planethroughpt" & strcmd & " _Enter")
           
            tmpobj = rhino.LastCreatedObjects
            rhino.ObjectName tmpobj, "Plane RH" & rhino.exeVersion
            rhino.ObjectColor tmpobj(0), vbblack
           
    End Sub

    In RH4 this was working as expected!

    Thanks for any respons.

Recommend

Why are these buttons gray?