Returns the mid point of an arc curve object.
Rhino.ArcMidPoint (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 3D mid point of the arc if successful. |
|
Null |
If not successful, or on error. |
Dim strObject, arrPoint
strObject = Rhino.GetObject("Select arc")
If Rhino.IsArc(strObject) Then
arrPoint = Rhino.ArcMidPoint(strObject)
Rhino.AddPoint arrPoint
End If