Returns the mid point of a curve object.
Rhino.CurveMidPoint (strObject [, intIndex])
|
strObject |
Required. String. The object's identifier. |
|
intIndex |
Optional. Number. If strObject identifies a polycurve object, then intIndex identifies the curve segment of the polycurve to query. |
|
Array |
The 3-D mid point of the curve if successful. |
|
Null |
If not successful, or on error. |
Dim strObject, arrPoint
strObject = Rhino.GetObject("Select a curve")
If Rhino.IsCurve(strObject) Then
arrPoint = Rhino.CurveMidPoint(strObject)
Rhino.AddPoint arrPoint
End If