<<NDSolve`FEM`
m2 =
  ToElementMesh[
    Rectangle[{0, 0}, {254, 101.6}],
    "MeshElementType" -> QuadElement,
    MaxCellMeasure -> {"Area" -> 2000/4},
    "MeshOrder"->1];
Show[
  m2["Wireframe"],
  m2["Wireframe"["MeshElement" -> "PointElements", "MeshElementIDStyle" -> Red]]]