返回球面的定义参数。
Rhino.SurfaceSphere (strSurface)
strSurface |
Required.字符串。The surface object's identifier. |
Array |
An array containing the definition of the sphere if successful.The elements of the array are as follows:
|
|||||||||
Null |
如果执行不成功或出错,返回空值。 |
Dim strSphere, arrSphere
strSphere = Rhino.AddSphere(Rhino.WorldXYPlane, 6)
If Rhino.IsSphere(strSphere) Then
arrSphere = Rhino.SurfaceSphere(strSphere)
Rhino.AddSphere arrSphere(0), arrSphere(1)
End If