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

wuyunpeng888

第一次使用前先在运行栏用“regsvr32 文件标识”注册一下DLL文件
然后加载这个TimerToList.lsp应用示例文件
之后在CAD下输入命令timer,再看一下状态栏就知道了
您正在看的文章来自博学天下社区，原文:http://www.boxuesky.com/read-htm-tid-46291.html

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

看一下郊果如何