3D里鼠标位置的找取

Question

f = {0,0,0}; b = {1,1,0};
nb = CreateDialog@
  DynamicModule[{},
   Dynamic@Show[
     Graphics3D[{Opacity[0], Cuboid[]}, ViewPoint -> Above,
      PlotRange -> 2], Graphics3D[Line[{{0, 0, 0}, f - b}]]]]
SetOptions[nb,
 NotebookEventActions -> {"MouseMoved" :> ({f, b} =
      MousePosition["Graphics3DBoxIntercepts"])}]

(*我想得到鼠标位置和中心(0,0,0)的动态连线,但是没搞出来了，没搞明白，那个f-b不一定是对的啊，f是个{x1,y1,z1}的形式，b也是{x2,y2,z2}的形式*)

 

Comments

鼠标点的问题是另外一回事。但是你的Graphics3D[{Opacity[0], Cuboid[]}, ViewPoint -> Above, PlotRange -> 2]这段代码就是错的呀。

---

啊，这个我是想Show之后，由第一个固定一个框的大小，然后在第2个Graphics3D里画Line，我只是想弄个俯视图里的动态得到鼠标的位置

---

你咋想的我不知道.我只知道单单这一句graphics在语法上是错的，因为源代码少了一个花括号.

---

哦哦，不好意思啊，果然少了花括号

Answer 1

……这件事在逻辑上就不可能吧？鼠标指针活动在一个二维平面上，它要怎么指示一个三维空间的点啊？

"Graphics3DBoxIntercepts"的意义在文档中的介绍较为简略，但是稍加实验就会发现，它指的用一根垂直于屏幕的线贯穿Graphics3D所生成的那个框时所产生的两个交点。（注意只要贯穿的是面那就必然有且只有两个交点。）如果你要的就是这两个点的话那很容易：

Dynamic@Graphics3D[{Red, Thick, 
   Line[{{0, 0, 0}, #}&/@MousePosition@"Graphics3DBoxIntercepts"]}, PlotRange -> 1]

注意图上其实有两根线，只不过在我们这个视角上它们重合了。

Comments

3Q，谢谢你的回答，你这样说让我明白了它的原理，对待那个默认返回None报错那个在你的代码基础上加了一个MousePosition["str",{{0,0,0},{0,0,0}}]，不然默认返回是None。
 Dynamic@Graphics3D[{Red, Thick,
   Line[{{0, 0, 0}, #} & /@
     MousePosition[
      "Graphics3DBoxIntercepts", {{0, 0, 0}, {0, 0, 0}}]]},
  PlotRange -> 1]
感谢你的答案