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 , LastSfr 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