如何通过lsp判断cad窗口的鼠标连续停止活动固定时间？

ljcgq

如何通过lsp判断cad窗口的鼠标连续停止活动固定时间？

CADghost

这个问题我倒不懂 我想问问ljcgq对网架结构的相贯线有什么解决办法

alin

;;;Just for reference... (defun c:timer (/ pt time cur_time)
(setq pt (cadr (grread 1 1))
time (getvar "DATE")
)
(princ "\nPlease move the cursor to stop the timer...")
(while (< (distance pt (cadr (grread 1 1)))
0.000001
)
)
(setq cur_time (getvar "DATE"))
(princ "\nTime elapsed: ")
(princ (* (- cur_time time) 24 3600))
(princ " second(s)")
(princ)
)

ljcgq

能做个反应器吗？这样就可以做cad屏幕保护了......