Use arc3D[[1]] (which contains all the graphics primitives) as the first argument of GeometricTransformation:
Show[arc3D,
Graphics3D[GeometricTransformation[arc3D[[1]], shiftAndDilate3D]],
PlotRange -> All]
kglr
- 400.5k
- 18
- 488
- 929