ListSurfacePlot3D[ ExampleData[{"Geometry3D", "StanfordTestBunny"}, "VertexData"], MaxPlotPoints -> 50, Mesh -> All, Axes -> None]