Plot 3D in Mathematica: Getting Coordinates for Points

[gaby287]

I have a 3D Plot in Mathematica and I would like to get coordinates for points (all points) that were plotted.

 

[Bill Simpson]

Reap[
Print[Plot3D[x^2 y + y^2 x + 2, {x, -1, 1}, {y, -1, 1}, EvaluationMonitor :> Sow[{x, y, x^2 y + y^2 x + 2}]]]
][[2, 1]]

Note, despite it not being particularly that there is a : followed by > in that.