plotting – How to plot a hexagon inscribed on a cylinder in 3D? The cylinder is hollowed out in the form of a hexagon (Mathematica)

1. RegionProduct + RegularPolygon + RegionPlot3D

Show[RegionPlot3D[RegionProduct[RegularPolygon@6, Line[{{-1}, {1}}]], 
  PlotStyle -> Opacity[.5, Red], Boxed -> False], 
 Graphics3D[{Opacity[.2, Green], Cylinder[]}]]

enter image description here

2. PolyhedronData

prism6 = PolyhedronData[{"Prism", 6}]

enter image description here

Graphics3D[{Opacity[.3, LightBlue], 
  Cylinder[], 
  Opacity[.5, Red], 
  Scale[First @ prism6, {1, 1, 2}]}, 
 Boxed -> False]

enter image description here