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

ljcgq · 发表于 2004-6-20 21:49:00

CADghost · 发表于 2004-6-21 10:13:00

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

alin · 发表于 2004-6-21 12:05:00

;;;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 · 发表于 2004-6-23 17:41:00

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

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

发表回复

精选推荐

浏览过的版块