[求助]关于延时的方法
 

[求助]关于延时的方法
www.dimcax.com
[求助]关于延时的方法
关于延时的方法，在论坛里找了一下，有用
时间比较的，有用(command "_.delay" 1000)的
(command "_.delay" 1000)操作简单，但有些问题，嘿，它不能用在反应器里。
大家有没有别的好办法，我网上找了一个，用wscript.shell有个sleep延时的，
不知道能不能用在cad里？
set wshshell = wscript.createobject("wscript.shell")
wshshell.run "calc"
wscript.sleep 100
wshshell.appactivate "calculator"
wscript.sleep 100
wshshell.sendkeys "1{+}"
wscript.sleep 500
wshshell.sendkeys "2"
wscript.sleep 500
wshshell.sendkeys "~"
wscript.sleep 500
wshshell.sendkeys "*3"
wscript.sleep 500
wshshell.sendkeys "~"
wscript.sleep 2500
d
最常用的 (acet-sys-sleep 1000)
反应器里面可以试试这个(vl-cmdf "delay" 1000)
cpu占用高点:根据cdate系统变量循环
如果不是精确延时可以这样(repeat 10000 (princ))
或者呼叫一个vba
上面那个好像不能用在lisp里面但是通过dos调用也许可以
我也只知道这么几个 楼下的大侠们补充吧
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
刚研究一下
vl-cmdf 好像不行
但是通过dos的方法很多的
刚研究出来一个 反应器里面测试通过
反应器里面的延时处理 by nonsmall @ mjtd
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
nons哥的(vlax-invoke (vlax-create-object "wscript.shell")用的太神啦，顶。。。
d
(vlax-invoke (vlax-create-object "wscript.shell") 'run "ping -n 5 127.0.0.1" 0 1)
可自定义延时时间
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
另外还查到资料说
ping ip的延时有不确定性(根据ip不同)
所以2楼使用了一个不可能的ip和扣掉500毫秒
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.:43797405email:nonsmall@163.com对lisp开发研究有兴趣可以找我