I am trying to extend a surface in ALL directions by a fixed length.
But some how i can not get it working.
I found this to extend in 1 direction. but need it for al edges at ones.
Const rhSurface = 8
Dim arrParameter,arrPick
arrPick = Rhino.GetObjectEx("Select surface to extend", rhSurface)
If IsArray(arrPick) Then
arrParameter = Rhino.Surfaceedge(arrPick(0), arrPick(3))
Call Rhino.ExtendSurface(arrPick(0), arrParameter, 5.0)
End If
I have tried it in several ways.but don’t get it working
I need to do it in .rvb as i need to implement it in a other script.
Hi nick – Extending surfaces needs an input for the Isostatus at the edge - it looks like RhinoScript is finding that for you from the parameter - that is it is extending only the edge nearest to the pick point - you’d need to run this multiple times with different pick points - you might be able to just get those from the edge curve mid points, say.
Probably, using RhinoCommon is the way to go here, as you can specify the edge isostatus in the script and not depend on a pick location.