Extend Surface all directions

@nk1 wrote:

hello,
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.

Many thanx
nick

Posts: 1

Participants: 1

Read full topic