[原创]专为LISP开发的计时器，请测试

wuyunpeng888

第一次使用前先在运行栏用“regsvr32 文件标识”注册一下DLL文件 <br/>然后加载这个TimerToList.lsp应用示例文件 <br/>之后在CAD下输入命令timer,再看一下状态栏就知道了<br/>

更新了，32位64位的都有，去掉了CAD的空闲检测

我爱lisp

太好了，由isp在cad是独占模式，确实需要外部计时器配合，不过如何到时间自动激活呢？

xiaoquansb

这个很有用啊，有64位的dll吗

阿猪蛋

试一试，效果如何

wuyunpeng888

LISP下的代码如下：
(defun c:timer(/ version VL)
  (vl-load-com)
  (setq MyTimer(vlax-create-object "LispTimer.cTimer"))
  (vlax-put-property MyTimer 'Interval 1000)
  (vlax-invoke-method MyTimer 'TimerStart (Vlax-Get-Acad-Object))
)
;回调的事件
(defun Timer_Tick()
  (grtext -1 (Vlax-Invoke-Method MyTimer 'GetDateTime))
)
(defun c:endTimer()
  (vlax-invoke-method MyTimer 'TimerStop)
  (setq MyTimer nil)
  (grtext -1 "")
)
这个不用创建触发器，示例也很简单
您正在看的文章来自博学天下社区，原文:http://www.boxuesky.com/read-htm-tid-46291.html

wuyunpeng888

文件忘记上传了

aicr317

看到效果了...

liao1968

试一试，效果如何

yjpzc

看一下郊果如何