Rectangle 3 points

Replies to This Discussion

Permalink Reply by David Rutten on August 24, 2010 at 9:00am

I'd do it like this:

Private Sub RunScript(ByVal p0 As Point3d, ByVal p1 As Point3d, ByVal p2 As Point3d, ByRef A As Object)
   Dim base As New Line(p0, p1)
   Dim pp As Point3d = base.ClosestPointTo(p2, False)
   Dim ex As Vector3d = p2 - pp

   Dim rec As New Polyline(5)
   rec.Add(p0)
   rec.Add(p1)
   rec.Add(p1 + ex)
   rec.Add(p0 + ex)
   rec.Add(p0)

   A = rec
End Sub


--
David Rutten
david@mcneel.com
Poprad, Slovakia

Permalink Reply by JC on August 24, 2010 at 9:25am

Great job
thank you David