webmathematica – How can I plot a hexagon inside this cylinder so that it is always in the same direction as the cylinder, no matter what the orientation is?

How can I plot a hexagon inside this cylinder so that it is always in the same direction as the cylinder, no matter what the orientation is? In addition, the hexagon must always be the same size as the cylinder.

For example, start at the origin (10,9,8) and go to (1,2,3)?

Graphics3D ({Cylinder ({{10, 9, 8}, {1, 2, 3}}, 0.5)}

I tried this:

Table (Show (Graphics3D (Cylinder ({{0., 0., 0}, {0., 0., l}}, 1)), PolyhedronData ({"Prism", 6})), {l, 0.1 , 3, 0.1})