[LISP程序]：如何使选中的图元在红色与绿色之间以每隔0.5秒的间隔不停地闪烁，直到有

yshf

各位高手，在LISP中，如何使选中的图元在红色与绿色之间以每隔0.5秒的间隔不停地闪烁，直到有下一步操作为止？象MAPGIS那样。

xyp1964

2. [FONT=courier new]
   
3. (defun c:test ()
   
4.   ;(CMDLA0)
   
5.   (setvar "osmode" 0)
   
6.   (command "select" "all" "")
   
7.   (setq        ss (ssget "P")
   
8.         i  -1
   
9.   )
   
10.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
11.     (princ "\n按任意键显示下一对象，ESC退出! ")
    
12.     (setq mode t)
    
13.     (while mode
    
14.       (setq MOTION (grread t 15 0)
    
15.             CODE   (car MOTION)
    
16.       )
    
17.       (if (or (= code 2)
    
18.               (= code 3)
    
19.               (= code 25)
    
20.           )
    
21.         (setq mode nil)
    
22.         (progn
    
23.           (princ)
    
24.           (command "chprop" s1 "" "c" 1 "")
    
25.           (princ)
    
26.           (command "delay" 500)
    
27.           (princ)
    
28.           (command "chprop" s1 "" "c" 3 "")
    
29.           (princ)
    
30.         )
    
31.       )
    
32.     )
    
33.   )
    
34.   ;(CMDLA1)
    
35. )[/FONT]

[FONT=courier new]<br /> (defun c:test ()<br />   ;(CMDLA0)<br />   (setvar "osmode" 0)<br />   (command "select" "all" "")<br />   (setq        ss (ssget "P")<br />         i  -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (princ "\n按任意键显示下一对象，ESC退出! ")<br />     (setq mode t)<br />     (while mode<br />       (setq MOTION (grread t 15 0)<br />             CODE   (car MOTION)<br />       )<br />       (if (or (= code 2)<br />               (= code 3)<br />               (= code 25)<br />           )<br />         (setq mode nil)<br />         (progn<br />           (princ)<br />           (command "chprop" s1 "" "c" 1 "")<br />           (princ)<br />           (command "delay" 500)<br />           (princ)<br />           (command "chprop" s1 "" "c" 3 "")<br />           (princ)<br />         )<br />       )<br />     )<br />   )<br />   ;(CMDLA1)<br /> )[/FONT]

雨箭风刀

为什么不用redraw？

yshf

xyp1964班竹，我的意思是在不移鼠标的情况下仍然闪烁直到有进行下一操作。

雨箭风刀

加delay