wuyunpeng888 发表于 2009-6-30 21:04:00

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

本帖最后由 wuyunpeng888 于 2024-12-28 23:26 编辑

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

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

我爱lisp 发表于 2025-1-15 08:11:22

本帖最后由 我爱lisp 于 2025-1-15 08:13 编辑

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


xiaoquansb 发表于 2018-12-28 12:36:42

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

阿猪蛋 发表于 2025-1-13 09:27:13

试一试，效果如何

wuyunpeng888 发表于 2009-6-30 21:05:00

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

wuyunpeng888 发表于 2009-6-30 22:02:00

文件忘记上传了

aicr317 发表于 2009-6-30 22:12:00

看到效果了...

liao1968 发表于 2009-7-2 16:29:00

试一试，效果如何

yjpzc 发表于 2009-7-7 14:56:00

看一下郊果如何

liminnet 发表于 2009-7-7 17:30:00

liminnet 发表于 2009-7-7 17:32:00

liminnet 发表于 2009-7-7 17:32:00

liminnet 发表于 2009-7-7 17:41:00

页: [1] 2
查看完整版本: [原创]专为LISP开发的计时器，请测试