Revisions to How do I remove a bounding box (i.e. set Boxed -> False) after rendering a 3D graphic?

added 2 characters in body

Source Link

edited Mar 19, 2013 at 9:34

plt=Graphics3D[{Sphere[{0, 0, 0}, 1], Sphere[{2, 3, 5}, 1]}];
Append[plt, Boxed -> False]

Edit1:

If we have useused:

 plt=Graphics3D[{Sphere[{0, 0, 0}, 1], Sphere[{2, 3, 5}, 1]}, Boxed->True]

the above codes fails. To make them more general, we can use:

 Append[DeleteCases[plt, Boxed -> _], Boxed -> False]

plt=Graphics3D[{Sphere[{0, 0, 0}, 1], Sphere[{2, 3, 5}, 1]}];
Append[plt, Boxed -> False]

Edit1:

If we have use

 plt=Graphics3D[{Sphere[{0, 0, 0}, 1], Sphere[{2, 3, 5}, 1]}, Boxed->True]

the above codes fails. To make them more general, we can use:

 Append[DeleteCases[plt, Boxed -> _], Boxed -> False]

plt=Graphics3D[{Sphere[{0, 0, 0}, 1], Sphere[{2, 3, 5}, 1]}];
Append[plt, Boxed -> False]

Edit1:

If we have used:

 plt=Graphics3D[{Sphere[{0, 0, 0}, 1], Sphere[{2, 3, 5}, 1]}, Boxed->True]

the above codes fails. To make them more general, we can use:

 Append[DeleteCases[plt, Boxed -> _], Boxed -> False]

added 253 characters in body

Source Link

edited Mar 19, 2013 at 8:35

plt=Graphics3D[{Sphere[{0, 0, 0}, 1], Sphere[{2, 3, 5}, 1]}];
Append[plt, Boxed -> False]

Edit1:

If we have use

 plt=Graphics3D[{Sphere[{0, 0, 0}, 1], Sphere[{2, 3, 5}, 1]}, Boxed->True]

the above codes fails. To make them more general, we can use:

 Append[DeleteCases[plt, Boxed -> _], Boxed -> False]

plt=Graphics3D[{Sphere[{0, 0, 0}, 1], Sphere[{2, 3, 5}, 1]}];
Append[plt, Boxed -> False]

plt=Graphics3D[{Sphere[{0, 0, 0}, 1], Sphere[{2, 3, 5}, 1]}];
Append[plt, Boxed -> False]

Edit1:

If we have use

 plt=Graphics3D[{Sphere[{0, 0, 0}, 1], Sphere[{2, 3, 5}, 1]}, Boxed->True]

the above codes fails. To make them more general, we can use:

 Append[DeleteCases[plt, Boxed -> _], Boxed -> False]

Source Link

created Mar 19, 2013 at 8:13

plt=Graphics3D[{Sphere[{0, 0, 0}, 1], Sphere[{2, 3, 5}, 1]}];
Append[plt, Boxed -> False]

Return to Answer