比如我作图像：ContourPlot3D[{z==0,x^2/2+y^2/4==1,z==1+Log[3-x^2/3+y^2/6]},{x,-3,3},{y,-3,3},{z,0,5},Mesh->6]，我只能给每个图像规定相同的网格线条数，可不可以第一个为3条，第二个为5条，第三个为2条，该怎么做，请教各位

分别指定再使用 Show 结合
Show@{ContourPlot3D[z == 0, {x, -3, 3}, {y, -3, 3}, {z, 0, 5},
Mesh -> 3, ContourStyle -> ColorData[97, 2]],
ContourPlot3D[x^2/2 + y^2/4 == 1, {x, -3, 3}, {y, -3, 3}, {z, 0, 5},
Mesh -> 5, ContourStyle -> ColorData[97, 1]],
ContourPlot3D[
z == 1 + Log[3 - x^2/3 + y^2/6], {x, -3, 3}, {y, -3, 3}, {z, 0, 5},
Mesh -> 2, ContourStyle -> ColorData[97, 3]]}
或者写得更紧凑
Show@MapThread[
ContourPlot3D[#1, {x, -3, 3}, {y, -3, 3}, {z, 0, 5}, Mesh -> #2,
ContourStyle -> #3] &, {{z == 0, x^2/2 + y^2/4 == 1,
z == 1 + Log[3 - x^2/3 + y^2/6]}, {3, 5, 2}, {ColorData[97, 2],
ColorData[97, 1], ColorData[97, 3]}}]