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.