Sinval Santos,
since your mesh visualization
meshgraphics =
bmesh["Wireframe"[PlotRange -> {All, All, {0, 10}},
"MeshElementMarkerStyle" -> Directive[FaceForm[Red]],
"MeshElementStyle" -> Directive[FaceForm[Opacity[0.5, Green]]]]];
is just a Graphics3D
, a simple hack is possible:
i = 1;
Replace[meshgraphics, Text[_, p__] :> Text[i++, p], All]