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

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

本帖最后由 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:59

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

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

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

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

意思是把所有画的图都隐藏？
那就
(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:54

自找麻烦，没有必要。

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

fl202 发表于 2014-9-28 09:05 static/image/common/back.gif
自找麻烦，没有必要。

http://bbs.xdcad.org/forum.php?mod=viewthread&tid=676203&extra=page%3D1

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

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


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

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

这个挺好玩
页: [1]
查看完整版本: 1小时后隐藏CAD或者锁定CAD，过10分钟自动打开！