隐藏CAD或者锁定CAD，过一定时间自动打开！

spp_wall

如题  能不能写一个这样lisp  
最近脖子有点不舒服  感觉应该是坐太久了！ 有时候忙起来就忘记时间！

写一个这样的程序 让自己定个休息的时间！undefined

黄老的一些函数：

;;76.1 [功能] 隐藏CAD
;; 示例: (MJ:HideAutoCAD)
(defun MJ:HideAutoCAD        ()
  (vla-put-Visible *ACAD* :vlax-False)
)
;;76.2 [功能] 显示CAD
;; 示例: (MJ:ShowAutoCAD)
(defun MJ:ShowAutoCAD        ()
  (vla-put-Visible *ACAD* :vlax-True)
)
;;76.3 [功能] 隐藏CAD一段时间
;; 示例: (MJ:HideShowTest 500) 隐藏CAD，时间500毫秒
(defun MJ:HideShowTest (delay-time)
  (MJ:HideAutoCAD)
  (vl-cmdf "delay" delay-time)
  (MJ:ShowAutoCAD)
)

需要的功能如下：
1：点击命令 选择工作多久后隐藏（锁定）CAD  设定多久后打开CAD!

lucas3

这个没多大意义，太多这类的软件，下一个就行了，不仅仅是针对CAD，针对整个电脑
贴个地址吧：http://www.cr173.com/soft/31053.html