zctao1966
发表于 2008-12-25 21:31:00
<p>高手，支持你！</p>
357785513
发表于 2008-12-25 22:44:00
如果我要它每10分钟提醒我一次呢.应该在怎么改呀
不死猫
发表于 2008-12-25 23:24:00
<p>原理就是根据自动保存的时间间隔</p><p>修改即可</p>
oyxx1023
发表于 2008-12-27 11:21:00
我的也是没反应.要同时触发保存和时间相等时才ALERT.
nonsmall
发表于 2008-12-27 12:43:00
<p>请楼上各位注意自动保存的概念</p><p>就是当用户有操作的时候（图面发生改变）才会触发真正的自动保存</p><p class="body">如果用户放置不动 自动保存是不会真正触发的</p><p class="body">所以要想程序正常运行</p><p class="body">需要对CAD操作操作才行 O(∩_∩)O</p>
oyxx1023
发表于 2008-12-27 14:08:00
<p>做个DLL用LISP调用得了.</p><p>那样才可以做出真的到点就闹钟.</p>
z394326635
发表于 2008-12-28 14:43:00
liminnet
发表于 2008-12-28 15:30:00
AMTONNY
发表于 2009-1-10 20:36:00
老猫就是强，偶顶顶顶
AMTONNY
发表于 2009-1-13 20:19:00
本帖最后由 作者 于 2009-1-14 20:40:24 编辑 <br /><br /> <p>(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/> (setq dwg_reactor_Gohome(vlr-dwg-reactor nil '((:vlr-beginsave . GotoHome))))<br/>)<br/>(defun GotoHome(ii jj / time)<br/> (setq time (read (substr (rtos (getvar "cdate") 2 12) 10 4)))<br/> (if (> time 1728);下午5点28分 下班前<br/> (alert "准备下班!")</p><p>(command "LINE" ...)<br/> )<br/>)</p><p>本人把程序改动有有以下问题,有高手能解决吗?</p><p>执行一条 AutoCAD 命令 (command "LINE" ...) 时不能调用原CAD命令,不知此处该如何写法?</p>