I have a manipulate
Manipulate[
Show[{
Graphics3D[{Red, Cylinder[{{0, 0, 0}, {0, 0, h1}}, r1],
Green, Pyramid[{{r2, -r2, h1 + 0.01}, {-r2, -r2, h1 + 0.01}, {-r2, r2,
h1 + 0.01}, {r2, r2, h1 + 0.01}, {0, 0, h2 + h1}}]
}, PlotRange -> {{-5, 5}, {-5, 5}, {0, 20}},
Boxed -> True, ImageSize -> {300, 300},
ClipPlanes -> {i, j, 1, -k + 0.01}],
ContourPlot3D[
i x + j y + z == k, {x, -5, 5}, {y, -5, 5}, {z, 0, 20.01},
Mesh -> None, ContourStyle -> Directive[Blue, Opacity[0.3]]]}],
"Cylinder",
{{h1, 5, "H"}, 2, 10, .01, ImageSize -> Small, Appearance -> "Labeled"},
{{r1, 3, "R"}, 2, 5, .01, ImageSize -> Small, Appearance -> "Labeled"},
"", "Pyramid",
{{h2, 5, "H"}, 2, 10, .01, ImageSize -> Small, Appearance -> "Labeled"},
{{r2, 3, "R"}, 2, 5, .01, ImageSize -> Small, Appearance -> "Labeled"},
"", "Plane",
{{i, 0, "X"}, 0, 2, .01, ImageSize -> Small, Appearance -> "Labeled"},
{{j, 0, "Y"}, 0, 2, .01, ImageSize -> Small, Appearance -> "Labeled"},
{{k, 0, "Z"}, 0, 20, .01, ImageSize -> Small, Appearance -> "Labeled"},
ControlPlacement -> Left]
How can I get List of points (click by button), which now set in the Manipulate