Yes, a similar method can.
iWallis[n_] := With[{k = 2 n - 1},
BoundaryDiscretizeGraphics[
Table[Rectangle[{x, y}, {x, y} + 1/(k + 2)!!],
{x, (k + 1)/(2 (k + 2)!!), 1 - 1/(k + 2)!!, 1/k!!},
{y, (k + 1)/(2 (k + 2)!!), 1 - 1/(k + 2)!!, 1/k!!}
]
]
]
init = BoundaryDiscretizeGraphics[Rectangle[]];
wallis2D = Fold[RegionDifference[#1, iWallis[#2]] &, init, Range[3]]

bmr = BoundaryMesh[RegionProduct[wallis2D, Line[{{0.}, {1.}}]]];
RegionIntersection @@ (BoundaryMeshRegion[
MeshCoordinates[bmr][[All, #]], MeshCells[bmr, 2]] & /@ {{1, 2,
3}, {3, 2, 1}, {1, 3, 2}})
