z394326635 发表于 2008-12-24 13:10:00

nonsmall 发表于 2008-12-24 13:44:00

(vlax-put-property (vlax-get (vlax-get (vlax-get-acad-object) 'Preferences) 'OpenSave) 'AutoSaveInterval 1);每隔1分钟 可自定义<br/>(if (not (equal (type dwg_reactor_Gohome) 'VLR-DWG-Reactor))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq dwg_reactor_Gohome(vlr-dwg-reactor nil '((:vlr-beginsave . GotoHome))))<br/>)<br/>(defun GotoHome(ii jj / time)<br/>&nbsp;(setq time (read (substr (rtos (getvar "cdate") 2 12) 10 4)))<br/>&nbsp;(if (&gt; time 1728);下午5点28分 下班前<br/>&nbsp;&nbsp;(alert "准备下班!")<br/>&nbsp;)<br/>)

nonsmall 发表于 2008-12-24 13:48:00

本帖最后由 作者 于 2009-1-19 15:40:25 编辑 <br /><br /> <p>Lisp小闹钟 v1.0</p><p>使用命令 alarm</p><p>输入正确的时间和需要调用的Lisp函数可以使用</p><p>例:</p><p>先加载自定义函数</p><p>(defun test()(alert "ok"))</p><p>对话框输入:</p><p></p><p>点击开始即可</p><p></p>

zj-ο○oοo 发表于 2008-12-24 13:52:00

<p><font color="#1a1ae6">呵呵~</font></p><p><font color="#1a1ae6">方法不错</font></p><p><font color="#1a1ae6">有点意思。老猫就是厉害~</font></p>

liminnet 发表于 2008-12-24 15:19:00

z394326635 发表于 2008-12-24 21:10:00

aicr317 发表于 2008-12-24 23:17:00

能否效仿该程序，作一个能够定时运行的程序，比如在下午5点整，运行一次某个命令呢？该不如写呢？

sy100 发表于 2008-12-24 23:38:00

<p><strong><font face="Verdana" color="#61b713">nonsmall 真强，学习了！</font></strong></p>

不死猫 发表于 2008-12-24 23:42:00

aicr317发表于2008-12-24 23:17:00static/image/common/back.gif能否效仿该程序，作一个能够定时运行的程序，比如在下午5点整，运行一次某个命令呢？该不如写呢？

<p></p><p>只要在gohome函数中调用即可</p><p>但是要注意反应器的规则</p><p>一些方法需要用vlisp方法才可以</p>

liminnet 发表于 2008-12-25 16:27:00

页: [1] 2 3 4
查看完整版本: [讨论]怎么做个CAD定时闹钟