[求助]：如何判断光标移动的快慢

hsslyl

如何判断光标移动的快慢（包括静止状态），或者说如何获得光标移动的速度。如：CAD处于捕捉状态时，光标停在端点处，CAD会提示endpoint。望各位指点，谢谢！

它山之石

也许要用到反应器。GRREAD？

hsslyl

有谁知道吗?先谢了!

dandee

可以获得鼠标移动速度
  
做个循环
1 ； 用 grread可以得到鼠标的点  ， 在移动鼠标时，可以不断获得点，
--->可以得到 点与点的距离
2 ； 在获得点的同时，----->也可以得到获得点的时间
这样鼠标移动速度就可以计算出来

至于
CAD处于捕捉状态时，光标停在端点处，CAD会提示endpoint
------->也是利用grread  获得鼠标所在位置的参考点， 在此点上建立虚拟的选择集， 若选择集里有直线， 那线的端点 就可以获得了。

请问， 知 道 鼠 标 移 动 的 速 度 有  何 用?

hsslyl

本人编写的程序中，大量用到grread，如以下模式。在程序运行时，不断地循环执行redraw、grdraw等（如：显示选择框）。当文件较大时，光标移动会很涩。本人认为（不知道对不对），如果能获得光标移动速度，就可以控制redraw、grdraw等是否执行，即光标快速移动时不执行，缓慢移动时执行。这就是想要知道光标移动速度的目的。
(setq tjhn t)
(while        tjhn
  (setq dbd (grread t 4 0))
  (setq bmz (car dbd))
  (setq xzd (cadr dbd))
  (cond        ((= bmz 3) ......)
        ((= bmz 5)
         (redraw)
         (grdraw ......)
         ......
        )
        ((or (= bmz 11) (and (= bmz 2) (= xzd 13))) (setq tjhn nil))
  )
)
请问：如何在获得点的同时，获得此时的时间

dandee

(setq s (getvar "DATE"))
(setq seconds (* 86400.0 (- s (fix s))))
你可以查help就有date的介绍
在获得点的同时，询问当前时间，点与点之间，就会有时间差，这个差值，就是你需要的“时间”。

这个速度值总是滞后的，不知道是否真正的有用处，不过作为一种判断的手段也不错。

至于，当文件较大时，光标移动会很涩
----》估计是内存不足产生的问题

ghjkghjk

当文件较大我会受不了！——没什么实际用处