Adds a circle curve, created from two points and a start direction, to the document.
Rhino.AddCirclePtTanPt (arrStart, arrDirection, arrPoint)
arrStart |
Required. Array. The starting/ending point of the circle. |
arrDirection |
Required. Array. The circle direction at arrStart. |
arrPoint |
Required. Array. The second point of the circle. |
String |
The identifier of the new object if successful. |
Null |
If not successful, or on error. |
Dim arrPick, arrPoint, arrDomain, arrOrigin, arrTangent
arrPick = Rhino.GetCurveObject("Select curve")
arrPoint = Rhino.GetPoint("Point on circle")
arrDomain = Rhino.CurveDomain(arrPick(0))
If Abs(arrPick(4) - arrDomain(0)) < Abs(arrPick(4) - arrDomain(1)) Then
arrOrigin = Rhino.CurveStartPoint(arrPick(0))
arrTangent = Rhino.VectorReverse(Rhino.CurveTangent(arrPick(0), arrDomain(0)))
Else
arrOrigin = Rhino.CurveEndPoint(arrPick(0))
arrTangent = Rhino.CurveTangent(arrPick(0), arrDomain(1))
End If
Call Rhino.AddCirclePtTanPt(arrOrigin, arrTangent, arrPoint)