GetEdgeCurves

Prompts the user to pick one or more surface or polysurface edge curves to duplicate.

Rhino.GetEdgeCurves ([strMessage [, intMinCount [, intMaxCount [, blnSelect]]]])

strMessage	Optional. String. A prompt or message.
intMinCount	Optional. Number. The minimum number of edges to select. The default number is 1.
intMaxCount	Optional. Number. The maximum number of edges to select. If intMaxCount is 0, then the user must press enter to finish selection. If intMaxCount is -1, then selection stops as soon as there are at least intMinCount edges selected. If intMinCount > 0, then the picking stops when there are intMaxCount edges. The default number is 0.
blnSelect	Optional. Boolean. Select the duplicated edge curves. The default operation is not to select duplicated edge curves (False).

Array

An array that contains arrays of edge information if successful. The array of edge information will contain the following:

Element	Description
0	String. The identifier of the newly duplicated edge curve.
1	String. The identifier of the parent surface or polysurface.
2	Array. The selection point.

Null

If not successful, or on error.

Dim arrEdges, arrEdgeInfo

arrEdges = Rhino.GetEdgeCurves

If IsArray(arrEdges) Then

For Each arrEdgeInfo in arrEdges

Rhino.Print "Curve Id = " & arrEdgeInfo(0)

Rhino.Print "Parent Id = " & arrEdgeInfo(1)

Rhino.Print "Pick point = " & Rhino.Pt2Str(arrEdgeInfo(2))

End If