【DynamicLisp的高级应用】-- 定时器事件

highflybir

定时器时间是利用API里面的timer，用来在CAD中设置定时器，使得某一事件在一定间隔时间内触发。

有很多用途： 譬如有些CAD的系统变量如果发生了变化，通过反应器不能监视，用定时器就可以达到目的。
另外，你也可以用来做做动画，或者模拟多线程，这都是可以的。

=====================================================================
相关的定时器函数有两个：                                                         
---------------------------------------------------------------------
名称：HFB_SetLispTimer                                              
功能：在CAD中增加定时器事件，可以间隔一定时间触发事件。            
方法：(HFB_SetLispTimer  Callback  Elapse  [hwnd])                  
参数：Callback-- 回调函数名称，为字符串                             
       elapse  -- 间隔时间，毫秒单位，为正整数                       
       hwnd    -- 窗口句柄。缺省时为当前文档。设置为0时是全局定时事件
返回：成功返回定时器ID, 否则返回nil.                                
---------------------------------------------------------------------
名称：HFB_KillLispTimer                                             
功能：关闭CAD中的定时器事件。                                       
方法：(HFB_KillLispTimer ID)                                       
参数：ID      -- 定时器ID，为正整数                                 
返回：成功返回T, 否则返回nil.                                       
---------------------------------------------------------------------
说明：定时器设置的回调函数里不应与CAD的交互，否则可能出现意外.      
       关闭文档或者程序，或者卸载程序之前别忘记关闭相关定时器事件。  
       定时器事件可以用来监视系统变量等，也可以达到反应器效果。
---------------------------------------------------------------------   
回调函数: 回调函数含有四个参数, 参数说明:                                  hwnd    -- 窗口句柄                                          
       nMsg    -- 窗口消息                                          
       nTimerID-- 定时器事件ID                                       
       dwTime  -- 事件时间                                          
=====================================================================

下面的例子在图中增加了4个定时器事件。
一个为监视视窗中心的变化，一个监视视窗高度的变化,一个使一个圆不断变大。
这三个都是文档级的定时器。另外还有一个全局定时器，10秒钟提醒一下，然后关闭。

代码如下：

1. (defun C:SetTimer(/ oldsize oldctr obj ent cen rad t1 t2 t3 t4)
   
2.   
   
3.   ;;视高改变监视函数
   
4.   (defun TimerCallback1 (hWnd nMsg nTimerid dwTime / newsize)
   
5.     (setq newsize (getvar 'viewsize))
   
6.     (if (not (equal newsize (vl-bb-ref 'oldsize) 1e-6))
   
7.       (progn
   
8.         (princ "\n视高发生改变，现在是: ")
   
9.         (princ newsize)
   
10.         (vl-bb-set 'oldsize newsize)
    
11.       )
    
12.     )
    
13.   )
    
14.   
    
15.   ;;视中心改变监视函数
    
16.   (defun TimerCallback2 (hWnd nMsg nTimerid dwTime / newctr)
    
17.     (setq newctr (getvar 'viewctr))
    
18.     (if (not (equal newctr (vl-bb-ref 'oldctr) 1e-6))
    
19.       (progn
    
20.         (princ "\n视中心发生改变，现在是: ")
    
21.         (princ newctr)
    
22.         (vl-bb-set 'oldctr newctr)
    
23.       )
    
24.     )
    
25.   )
    
26. 
    
27.   ;;改变圆的半径,圆不断变大。
    
28.   (defun TimerCallback3 (hWnd nMsg nTimerid dwTime / obj)
    
29.     (if (setq obj (vl-bb-ref 'obj))
    
30.       (if (vlax-erased-p obj)
    
31.         (hfb_killlisptimer (vl-bb-ref 't3))
    
32.         (progn
    
33.           (vla-put-radius obj (+ (vla-get-radius obj) 1))
    
34.           (redraw (vlax-vla-object->ename obj))
    
35.         )
    
36.       )
    
37.     )
    
38.   )
    
39. 
    
40.   ;;全局的监视事件
    
41.   (defun TimerCallback4 (hWnd nMsg nTimerid dwTime)
    
42.     (alert "10秒提醒一次")
    
43.     (HFB_KillLispTimer (vl-bb-ref 't4))                                  ;提醒后就关闭定时器
    
44.   )
    
45. 
    
46.   ;;获得变量数值并存储
    
47.   (setq oldsize (getvar 'viewsize))
    
48.   (setq oldctr (getvar 'oldctr))
    
49.   (vl-bb-set 'oldsize oldsize)
    
50.   (vl-bb-set 'oldctr oldctr)
    
51.   
    
52.   (initget 1)
    
53.   (setq cen (getpoint "\n输入圆心:"))
    
54.   (initget 1)
    
55.   (setq rad (getdist cen "\n输入半径:"))
    
56.   (setq ent (Ent:make_circle cen rad))
    
57.   (setq obj (vlax-ename->vla-object ent))
    
58.   
    
59.   (HFB_KillLispTimer)
    
60.   (setq t1 (HFB_SetLispTimer "TimerCallback1" 50 ))                        ;50毫秒  
    
61.   (setq t2 (HFB_SetLispTimer "TimerCallback2" 50 ))                          ;50毫秒  
    
62.   (setq t3 (HFB_SetLispTimer "TimerCallback3" 50 ))                          ;50毫秒  
    
63.   (setq t4 (HFB_SetLispTimer "TimerCallback4" 10000 0))                 ;10秒提醒一次
    
64.   (vl-bb-set 'obj obj)
    
65.   (vl-bb-set 't1 t1)
    
66.   (vl-bb-set 't2 t2)
    
67.   (vl-bb-set 't3 t3)
    
68.   (vl-bb-set 't4 t4)
    
69.   
    
70.   (princ)
    
71. )
    
72. 
    
73. (defun Ent:make_circle (cen rad)
    
74.   (entmakex (list '(0 . "CIRCLE") (cons 10 cen) (cons 40 rad)))
    
75. )
    
76. 
    
77. (defun C:killTimer()
    
78.   (HFB_KillLispTimer)
    
79.   (princ)
    
80. )

(defun C:SetTimer(/ oldsize oldctr obj ent cen rad t1 t2 t3 t4)<br />   <br />   ;;视高改变监视函数<br />   (defun TimerCallback1 (hWnd nMsg nTimerid dwTime / newsize)<br />     (setq newsize (getvar 'viewsize))<br />     (if (not (equal newsize (vl-bb-ref 'oldsize) 1e-6))<br />       (progn <br />         (princ "\n视高发生改变，现在是: ")<br />         (princ newsize)<br />         (vl-bb-set 'oldsize newsize)<br />       )<br />     )<br />   )<br />   <br />   ;;视中心改变监视函数<br />   (defun TimerCallback2 (hWnd nMsg nTimerid dwTime / newctr)<br />     (setq newctr (getvar 'viewctr))<br />     (if (not (equal newctr (vl-bb-ref 'oldctr) 1e-6))<br />       (progn <br />         (princ "\n视中心发生改变，现在是: ")<br />         (princ newctr)<br />         (vl-bb-set 'oldctr newctr)<br />       )<br />     )<br />   )<br /> <br />   ;;改变圆的半径,圆不断变大。<br />   (defun TimerCallback3 (hWnd nMsg nTimerid dwTime / obj)<br />     (if (setq obj (vl-bb-ref 'obj))<br />       (if (vlax-erased-p obj)<br />         (hfb_killlisptimer (vl-bb-ref 't3))<br />         (progn <br />           (vla-put-radius obj (+ (vla-get-radius obj) 1))<br />           (redraw (vlax-vla-object->ename obj))<br />         )<br />       )<br />     )<br />   )<br /> <br />   ;;全局的监视事件<br />   (defun TimerCallback4 (hWnd nMsg nTimerid dwTime)<br />     (alert "10秒提醒一次")<br />     (HFB_KillLispTimer (vl-bb-ref 't4))                                  ;提醒后就关闭定时器<br />   )<br /> <br />   ;;获得变量数值并存储<br />   (setq oldsize (getvar 'viewsize))<br />   (setq oldctr (getvar 'oldctr))<br />   (vl-bb-set 'oldsize oldsize)<br />   (vl-bb-set 'oldctr oldctr)<br />   <br />   (initget 1)<br />   (setq cen (getpoint "\n输入圆心:"))<br />   (initget 1) <br />   (setq rad (getdist cen "\n输入半径:"))<br />   (setq ent (Ent:make_circle cen rad))<br />   (setq obj (vlax-ename->vla-object ent))<br />   <br />   (HFB_KillLispTimer)<br />   (setq t1 (HFB_SetLispTimer "TimerCallback1" 50 ))                        ;50毫秒  <br />   (setq t2 (HFB_SetLispTimer "TimerCallback2" 50 ))                          ;50毫秒  <br />   (setq t3 (HFB_SetLispTimer "TimerCallback3" 50 ))                          ;50毫秒  <br />   (setq t4 (HFB_SetLispTimer "TimerCallback4" 10000 0))                 ;10秒提醒一次<br />   (vl-bb-set 'obj obj)<br />   (vl-bb-set 't1 t1)<br />   (vl-bb-set 't2 t2)<br />   (vl-bb-set 't3 t3)<br />   (vl-bb-set 't4 t4)<br />   <br />   (princ)<br /> )<br /> <br /> (defun Ent:make_circle (cen rad)<br />   (entmakex (list '(0 . "CIRCLE") (cons 10 cen) (cons 40 rad)))<br /> )<br /> <br /> (defun C:killTimer()<br />   (HFB_KillLispTimer)<br />   (princ)<br /> )

highflybir

设置定时器命令是:settimer
关闭定时器命令是:killtimer
关于DynamicLisp，请参见：
http://bbs.mjtd.com/forum.php?mo ... mp;extra=#pid604291

sicky111

LISP能做到这样，真的好强哦。

清风明月名字

highflybir 发表于 2013-8-2 18:42
设置定时器命令是:settimer
关闭定时器命令是:killtimer
关于DynamicLisp，请参见：

运行时说没有这个函数：HFB_KILLLISPTIMER

命令: SetTimer
输入圆心:
输入半径:; 错误: no function definition: HFB_KILLLISPTIMER

linshiyin2

学习了

自贡黄明儒

H版就是强，顶了！

linjian257

这个好强，学习了

taoyi0727

前几个月不知道这个什么东西
现在回过来看 不的不说  这东西霸道  

nuan1989

DynamicLisp , 是不是出新版cad就用不了了, 得等你编译