Surface Framing 3

212,934pages on
this wiki
Add New Page
Add New Page Discuss this page0

Option Explicit

Call WhoFramedTheSurface() Sub WhoFramedTheSurface()

   Dim idSurface : idSurface = Rhino.GetObject("Surface to frame", 8, True, True)
   If IsNull(idSurface) Then Exit Sub
   Dim intCount : intCount = Rhino.GetInteger("Number of iterations per direction", 20, 2)
   If IsNull(intCount) Then Exit Sub
   Dim uDomain : uDomain = Rhino.SurfaceDomain(idSurface, 0)
   Dim vDomain : vDomain = Rhino.SurfaceDomain(idSurface, 1)
   Dim uStep : uStep = (uDomain(1) - uDomain(0)) / intCount
   Dim vStep : vStep = (vDomain(1) - vDomain(0)) / intCount
   Dim u, v
   Dim pt
   Dim srfFrame
   Call Rhino.EnableRedraw(False)
   For u = uDomain(0) To uDomain(1) Step uStep
       For v = vdomain(0) To vDomain(1) Step vStep
           pt = Rhino.EvaluateSurface(idSurface, Array(u, v))
           If Rhino.Distance(pt, Rhino.BrepClosestPoint(idSurface, pt)(0)) < 0.1 Then
               srfFrame = Rhino.SurfaceFrame(idSurface, Array(u, v))

Call Rhino.AddPlaneSurface(srfFrame, 1.0, 1.0) End If

   Call Rhino.EnableRedraw(True)

End Sub

Also on Fandom

Random wikia