# How do I draw a box with holes?

How do I draw a box with six cylindrical holes, one at the center of each face?

The code for the box:

pts = {{-0.5, -0.5, -0.5}, {-0.5, 0.5, -0.5}, {-0.5, 0.5,
0.5}, {-0.5, -0.5, 0.5}, {0.5, -0.5, -0.5}, {0.5,
0.5, -0.5}, {0.5, 0.5, 0.5}, {0.5, -0.5, 0.5}};
pts3 = ScalingTransform[{6, 6, 6}][pts];
pts4 = ScalingTransform[{7, 7, 7}][pts];
hex = {{2, 3, 4, 1}, {1, 4, 8, 5}, {4, 3, 7, 8}, {3, 2, 6, 7}, {2, 1,
5, 6}, {5, 8, 7, 6}};
box = BoundaryMeshRegion[Join[pts3, pts4], Polygon[hex],
Polygon[hex + 8], MeshCellStyle -> Opacity[0.2]]


RegionPlot3D[
RegionDifference[Cuboid[],
RegionUnion[Cylinder[{{0, .5, .5}, {1, .5, .5}}, 1/8],
Cylinder[{{.5, 0, .5}, {.5, 1, .5}}, 1/8],
Cylinder[{{.5, .5, 0}, {.5, .5, 1}}, 1/8]]],
PlotPoints -> 200,
PlotStyle -> Opacity[0.7],
Boxed -> False
]


or... just a bit crisper:

RegionPlot3D[
RegionDifference[Cuboid[],
RegionUnion[
Cylinder[#, 1/8] & /@
{{{0, .5, .5}, {1, .5, .5}},
{{.5, 0, .5}, {.5, 1, .5}},
{{.5, .5, 0}, {.5, .5, 1}}}]],
PlotPoints -> 200,
PlotStyle -> Opacity[0.7],
Boxed -> False]


RegionPlot3D[x^2 + y^2 > 1/16 && x^2 + z^2 > 1/16 && y^2 + z^2 > 1/16,
{x, -1, 1}, {y, -1, 1}, {z, -1, 1},
Mesh -> None, Boxed -> False, Axes -> False,
PlotStyle -> Opacity[0.8],
PlotPoints -> 50
]


or

BoundaryDiscretizeRegion[
ImplicitRegion[
x^2 + y^2 > 1/16 && x^2 + z^2 > 1/16 && y^2 + z^2 > 1/16,
{{x, -1, 1}, {y, -1, 1}, {z, -1, 1}}
],
MaxCellMeasure -> 0.001, BaseStyle -> Opacity[0.8]
]