(* 
      display point list data of cylinder *) 
lineList = {};
For[i = 1, 
        i ≤ NumDown, i++, 
For[j = 1; 
          temp = {}, 
          j ≤ 
            NumAround, j++, 
temp  =  
              Append[temp, 
                pointList[[(i - 1)*NumAround + 
                      j]]];
]; 
temp = Append[temp, 
            pointList[[(i - 1)*NumAround + 
                  1]]]; 
lineList = 
          Append[lineList, 
            Line[temp]];
];
For[j = 1, 
        j <= NumAround, j++, 
For[i = 1; temp = {}, 
          i <= NumDown, i++, 
temp = 
            Append[temp, 
              pointList[[(i - 1)*NumAround + 
                    j]]]
]; 
lineList = 
          Append[lineList, 
            Line[temp]];
];
g = Graphics3D[lineList]
Show[g, PlotRange -> {{-4, 4}, {-5, 5}, {-4, 4}}, 
      Axes -> Automatic, 
      ViewPoint -> {10, 2, 2}]

g=Graphics3D[
        lineList]