set oObject = ActiveSceneRoot.AddGeometry("Sphere","NurbsSurface")
set oNurbsSurfaceMesh = oObject.ActivePrimitive.Geometry
set oControlPoints = oNurbsSurfaceMesh.Surfaces(0).ControlPoints
for each oControlPoint in oControlPoints
        aPoint = oControlPoint.Array    
        LogMessage aPoint(0) &","& aPoint(1) &","& aPoint(2)  &","& aPoint(3) 
next