1小时后隐藏CAD或者锁定CAD，过10分钟自动打开！

spp_wall · 发表于 2014-9-26 09:55

本帖最后由 spp_wall 于 2014-9-26 10:43 编辑

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

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

黄老的一些函数：

;;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!

2：防止其他情况  再设定个解除锁定命令！

zzyong00 · 发表于 2014-9-26 10:15

领导正好来找你看图，你的cad正好隐藏了。。。。

spp_wall · 发表于 2014-9-26 10:41

可以设置解锁命令嘛只是个提醒作用主要还是看自己

我的我啊 · 发表于 2014-9-26 11:56

意思是把所有画的图都隐藏？
那就
(setq ss (ssget "x"))
(setq lst (list ss->vla-object))
(mapcar '(lambda(x) (vlax-put x 'Visible :vlax-False)) lst)
大致这个思路

fl202 · 发表于 2014-9-28 09:05

自找麻烦，没有必要。

lucas_3333 · 发表于 2014-9-28 09:27

fl202 发表于 2014-9-28 09:05
自找麻烦，没有必要。

http://bbs.xdcad.org/forum.php?m ... &extra=page%3D1

spp_wall · 发表于 2014-9-28 10:20

lucas_3333 发表于 2014-9-28 09:27
http://bbs.xdcad.org/forum.php?mod=viewthread&tid=676203&extra=page%3D1

其他工具早就有只是想看看CAD能不能做到！

走走逛逛瞧瞧 · 发表于 2019-12-23 10:13

这个挺好玩

账号		自动登录	找回密码
密码			注册

[已解答] 1小时后隐藏CAD或者锁定CAD，过10分钟自动打开！

点评

点评