Adds an arc curve, created from a start point, a start direction, and an end point, to the document.
Rhino.AddArcPtTanPt (arrStart, arrDirection, arrEnd)
arrStart |
Required. Array. The starting point of the arc. |
arrDirection |
Required. Array. The arc direction at arrStart. |
arrEnd |
Required. Array. The ending point of the arc. |
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 to extend")
arrPoint = Rhino.GetPoint("End of extension")
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.AddArcPtTanPt(arrOrigin, arrTangent, arrPoint)