A sphere of unit radius:
In[]:=
pl=ParametricPlot3D[{Cos[x]Sin[y],Sin[x]Sin[y],Cos[y]},{x,0,2π},{y,0,π}];
Collecting the points:
In[]:=
points=pl[[1,1,1]];
Collecting the polygons:
In[]:=
poly=Cases[pl[[1,1]],_Polygon,∞]
Out[]=
Polygon
Number of points: 1633
Embedding dimension: 3
,Polygon
Number of points: 1114
Embedding dimension: 4
,Polygon
Number of points: 128
Embedding dimension: 5

Attempt to build a MeshRegion:
In[]:=
MeshRegion[points,poly[[1]]]
MeshRegion
:Degenerate cells including Polygon[{2008,2101,924}] have been removed.
Out[]=
MeshRegion is not perfect. Is there any way to fix this?
​
Regards.