如何从图形基元和指令中获取图形基元和指令Graphics
目的? Leonid Shifrin 在帖子中展示了如何删除它们Mathematica:删除图形基元 https://stackoverflow.com/questions/6317253/mathematica-removing-graphics-primitives。我尝试应用类似的东西,但我无法得到我想要的。考虑这个例子:
g1 = ListPlot3D[
{{0, -1, 0}, {0, 1, 0}, {-1, 0, 1}, {1, 0, 1}, {-1, 1, 1}},
Mesh -> {2, 2},
Boxed -> False,
Axes -> False,
ViewPoint -> {2, -2, 1},
ViewVertical -> {0, 0, 1},
MeshStyle -> RGBColor[0, 0.5, 0],
BoundaryStyle -> RGBColor[1, 0.5, 0]
];
g2 = ImportString[ExportString[g1, "PDF", Background -> None], "PDF"][[1]]
g2
现在是一个图形对象。如果你看一下InputForm
of g2
你会看到这个图形对象是由Polygon
s and JoinedCurve
s。我想做的是能够迭代所有原始对象g2
。如果我们尝试如下迭代
objs = First[g2];
Table[Head[objs[[i]]], {i, 1, Length@objs}]
我们获得
{Thickness, Polygon, Polygon, Polygon, Polygon, Style, Style, Style, Style,
Style, Style, Style, Style, Style, Style, Style, Style, Style, Style, Style,
Style, Style, Style, Style, Style, Style, Style, Style, Style, Style, Style,
Style, Style, Style, Style, Style, Style, Style, Style, Style, Style, Style,
Style, Style, Style}
我想获得的是简单原语的列表,我不希望它们在里面Styles
。这是仅获取线条和颜色的一种尝试:
tmp1 = Cases[objs, (_JoinedCurve | _RGBColor), Infinity];
tmp2 = DeleteCases[objs, (_Polygon | _Thickness), Infinity];
GraphicsRow[{Graphics[tmp1], Graphics[tmp2]}]
请注意,左侧的图像绘制不正确。该图像仅使用生成JoinedCurve
s and RGBColor
s。它以某种方式错过了一种颜色,这就是为什么我们有一条黑线,然后其余的线有另一种颜色。另一张图像绘制正确,我们所做的就是删除所有Polygons
and Thickness
出现在那里。我在这里做了什么不同的事情?我们不应该获得相同的地块吗?