wolfram-mathematica - 是否可以查询Graphics3D的ViewPoint属性？

Question

在使用Graphics3D显示了一些图形对象之后，您可以通过交互式更改ViewPoint选项或简单地拖动，调整大小或旋转图像来移动图像。后者会在内部更改ViewPoint吗？可以查询吗？

例如。

按程序:

 Manipulate [
 viewpoint->{x,y,y};
 Graphics3D[Cuboid[],ViewPoint->viewpoint],
 ,{x,-25,25}
 ,{y,-25,25}
 ,{z,-25,25}]

通过“鼠标”

Graphics3D[
    Cuboid[]] 

可以模拟上述程序的效果。旋转是否可以对ViewPoint产生“查询”效果？

Answer 1

试试下面的代码:

gr = Graphics3D[Cuboid[], SphericalRegion -> True, Boxed -> False]

(* this is one way to extract the values: *)
vp = ViewPoint /. AbsoluteOptions[gr]
vv = ViewVertical /. AbsoluteOptions[gr]

(* the following is completely another way. try rotating the output of this: *)
Row[
 {Show[gr, ViewPoint -> Dynamic[vp], ViewVertical -> Dynamic[vv]],
  Show[gr, ViewPoint -> Dynamic[vp], ViewVertical -> Dynamic[vv]]}
]

(* values will dynamically update here: *)
Dynamic[vp]
Dynamic[vv]

希望这有助于解决您的问题。

编辑:您也可以将已经由鼠标旋转的图形复制并粘贴到 ViewPoint /. Options[...]中