I don't know exactly what you mean. Something like this perhaps?
pc[n_] := Module[{},
Table[
{Cos[2 Pi j /n], Sin[2 Pi j/n], 0}, {j, 0, n}]
]
e1 = Join[{{0, 0, 1}}, #] & /@ Partition[pc[8], 2, 1];
e2 = Join[{{0, 0, -1.5}}, #] & /@ Partition[pc[8], 2, 1];
Graphics3D[{Map[Polygon, e1], Map[Polygon, e2]}]
Note: the 1.5 in the 2nd statement is just so. You could change it of course
