Pauses for user input of a point constrained to a surface object.
Rhino.GetSurfaceIsoParamPoint (strObject [, strMessage])
strObject |
Required.字符串。The surface object's identifier. |
strMessage |
可选参数。字符串。A prompt or message. |
Array |
An array of selection information if successful.The elements of the array are as follows:
|
||||||||
Null |
如果执行不成功或出错,返回空值。 |
Sub MyExtractIsoCurve
Const rhObjectSurface = 8
Dim strObject, arrResult
strObject = Rhino.GetObject("Select surface for isocurve extraction", rhObjectSurface)
If Not IsNull(strObject) Then
arrResult = Rhino.GetSurfaceIsoParamPoint(strObject, "Select location for extraction")
If IsArray(arrResult) Then
Rhino.ExtractIsoCurve strObject, Array(arrResult(0),arrResult(1)), arrResult(2)
End If
End If
End Sub