Pauses for user input of a point.
Rhino.GetPoint ([strMessage [, arrPoint [, dblDistance [, blnPlane]]]])
|
strMessage |
Optional. String. A prompt or message. |
|
arrPoint |
Optional. Array. A zero-based, one-dimensional array containing three numbers identifying a starting, or base, point. |
|
dblDistance |
Optional. Number. A constraining distance. If a constraining distance is specified, a base point must also be specified. |
|
blnPlane |
Optional. Boolean. Constrain the point selection to the active construction plane. |
|
Array |
A zero-based, one-dimensional array containing three numbers identifying the 3D point input by the user successful. |
|
Null |
If not successful, or on error. |
Dim arrPt1, arrPt2, arrPt3, dblDistance
arrPt1 = Rhino.GetPoint("Pick first point")
If IsArray(arrPt1) Then
Rhino.AddPoint(arrPt1)
arrPt2 = Rhino.GetPoint("Pick second point", arrPt1)
If IsArray(arrPt2) Then
Rhino.AddPoint(arrPt2)
dblDistance = Rhino.Distance(arrPt1, arrPt2)
arrPt3 = Rhino.GetPoint("Pick third point", arrPt2, dblDistance)
If IsArray(arrPt3) then
Rhino.AddPoint arrPt3
End If
End If
End If