Extract surface?

@Cyver wrote:

Hey all,

I' m trying to extract surface based on mouse click .

it tried code below, but something is wrong, if i click on cube face, the face is extracted, but another one too, i got 2 faces extracted in one click.

if i try on a cylinder , nothing happend no faces were extracted , strange ...

How i can do that ?

Thanks for help.

Call Main()
Sub Main()

	Dim arrParameter, arrPick

	arrPick = Rhino.GetObjectEx("Select surface to Extract ", 16)

	If IsArray(arrPick) Then

		arrParameter = Rhino.BrepClosestPoint(arrPick(0), arrPick(3))

		LastSfr = Rhino.ExtractSurface(arrPick(0), arrParameter(2))


	End If

End Sub

Posts: 2

Participants: 2

Read full topic