그래픽 크기 (부정확 한`PlotRange` 함수)

Question

차원을 제공하는 함수가 Graphics있습니까? 내 말 x과 y내용이 그 사각형 영역의 크기 Graphics에 맞는 것입니다.

Graphics[{Table[
   Circle[RandomReal[{-10, 10}, 2], RandomReal[{0, 10}, 2], 
    RandomReal[{0, 2 π}, 2]], {n, 100}]}]

최신 정보:

PlotRange 정확하지 않기 때문에 쓸모가 없습니다.

v = Table[
   Circle[RandomReal[{-10, 10}, 2], RandomReal[{0, 10}, 2], 
    RandomReal[{0, 2 π}, 2]], {n, 100}];
Graphics[{v}];
Graphics[{v, {Transparent, EdgeForm[Red], 
   Rectangle @@ Transpose[PlotRange[%]]}}]

또한 BoundingRegion같은 이유로 쓸모가 없습니다-부정확합니다.

Answer 1

다음 과 같은 목적으로 "GraphicsInformation" 을 사용할 수 있습니다 .ResourceFunction

SeedRandom[1];
g = Graphics[{
    Table[
        Circle[RandomReal[{-10,10},2],RandomReal[{0,10},2],RandomReal[{0,2 π},2]],
        {n, 100}
    ]

"GraphicsInformation"자원 기능 사용 :

pr = Lookup[ResourceFunction["GraphicsInformation"][g], "PlotRange"]

{{-17.8295, 17.0196}, {-19.7501, 19.9222}}

검사:

Show[
    g, 
    Epilog -> {
        EdgeForm[Red],
        FaceForm[None],
        Rectangle[{pr[[1,1]], pr[[2,1]]}, {pr[[1,2]], pr[[2,2]]}]
    }
]

"GraphicsInformation"은 다른 유용한 정보도 반환합니다.

Keys @ ResourceFunction["GraphicsInformation"][g]

{ "ImagePadding", "ImageSize", "PlotRangeSize", "ImagePaddingSize",
"PlotRange", "BasePlotRange"}