Combining : RegionPlot3D, PametricPlot3D and Graphics3D, it is possible to see all 3 with Show, but no printing them with Printout3D.
co := {0.7, 0.7, 0.7};
x1 := -2;
y1 := -2;
z1 := 1;
p[0] := co + {0, 0, 0};
p[1] := co + {x1, 0, 0};
p[2] := co + {x1, 0, z1};
p[3] := co + {0, 0, z1};
p[4] := co + {0, y1, 0};
p[5] := co + {x1, y1, 0};
p[6] := co + {x1, y1, z1};
p[7] := co + {0, y1, z1};
cube := {
Yellow, Polygon[{p[0], p[1], p[2], p[3]}],
Pink, Polygon[{p[0], p[1], p[5], p[4]}],
Cyan, Polygon[{p[0], p[4], p[7], p[3]}],
Red, Polygon[{p[3], p[2], p[6], p[7]}],
Purple, Polygon[{p[4], p[5], p[6], p[7]}],
Blue, Polygon[{p[1], p[5], p[6], p[2]}
]};
Print["G1=Graphics3D[{cube}]-yes"];
G1 =
Graphics3D[{cube}]
Print["D1=DiscretizeGraphics[g1]-yes"];
D1= DiscretizeGraphics[G1]
Print["G2=Graphics3D[{g1-yes"];
G2 =
ParametricPlot3D[
1.4 {Cos[t] (3 + Cos[u]), Sin[t] (3 + Cos[u]), Sin[u]}, {t, 0,
2 Pi}, {u, 0, 2 Pi}, Boxed -> False]
Print["D2=DiscretizeGraphics[G2]-yes"]; \
D2 = DiscretizeGraphics[G2]
Print["G3=RegionPlot3D[x^2+y^2>4,{x,-2,2},{y,-2,2},{z,-2,1},
Mesh -> False, PlotPoints -> 35, PlotRange -> All]
G3 = RegionPlot3D[x^2 + y^2 > 4, {x, -2, 2}, {y, -2, 2}, {z, -2, 1},
Mesh -> False, PlotPoints -> 35, PlotRange -> All]
Print["D3=DiscretizeGraphics[G3]-yes"];
D3 = DiscretizeGraphics[G3]
Print["S1=Show[G1,G2,G3]-yes"]; S1 = Show[G1, G2, G3]
Print["Printout3D[ S1 ]- no G2,G3"]; Printout3D[S1]
Print["S2=Show[D1,D2,D3]-yes"]; S2 = Show[D1, D2, D3]
Print["Printout3D[ S2 ]- no"]; Printout3D[S2]
Print["S3=Show[D1,S2,S3]-no"]; S3 = Show[D1, S2, S3]
Print["Printout3D[ S3 ]- no"]; Printout3D[S3]
Print["S4=Show[G1,D2,G3]-yes"]; S4 = Show[G1, D2, G3]
Print["Printout3D[ S4 ]- no"]; Printout3D[S4]
Print["S5=Show[G1,G2,D3]-yes"]; S5 = Show[G1, G2, D3]
Print["Printout3D[ S5 ]- no G2"]; Printout3D[S5]
Print["S6=Show[D1,D2,G3]-yes"]; S6 = Show[D1, D2, G3]
Print["Printout3D[ S6 ]- no"]; Printout3D[S6]
Print["S7=Show[G1,D2,D3]-yes"]; S7 = Show[G1, D2, D3]
Print["Printout3D[ S7 ]- no"]; Printout3D[S7]
Print["S8=Show[D1,G2,D3]-yes"]; S8 = Show[D1, G2, D3]
Print["Printout3D[ S8 ]- no G2"]; Printout3D[S8]
Attachments: