[LISP程序]：坐标栏的实时显示？

zhengliping

本人有如下疑问,请高手解答：
   我想如何能实现状态兰的实时显示！
问题是这样的，在我的程序中，有一些线段（含有指定的属性值）。现在如何能在我画线的时候，到达这些线段的时候，能在状态栏显示这些线段的属性！
  
  本人知道此函数（grtext -2 "属性信息"）
  但是不知道，在何时，用何方法调用此函数。显示。
达到的目的就是象坐标值一样，鼠标移动，他就动态显示！！！

希望高人指点一二！！！！！！

秋枫

借花献佛：

下面这段aeo版主的代码演示了grtext -2 的用法

2. 
   
3. [FONT=courier new]
   
4. 
   
5. (setq *app (vlax-get-acad-object))
   
6. (defun pross (k l)
   
7.   ;;;By Aeo
   
8.   (grtext -2
   
9.       (strcat "已完成 "
   
10.           (rtos    (/ (* 100.0 k) l) 2 0 )  "%..."
    
11.       )
    
12.   )
    
13.   (vla-eval *app "DoEvents")  ;; 经我试验，这句在AutoCAD2004/2005中不必
    
14. )
    
15. 
    
16. ;;测试 By Aeo
    
17. (defun c:test ( / h k l)
    
18.   (setq k 0 l 100 )
    
19.   (while(< k l)
    
20.     (pross k l)
    
21.     (command "delay"100)
    
22.     (setq k(+ k 2))
    
23.   )(princ)
    
24. )
    
25. 
    
26. [/FONT]
    

<br /> [FONT=courier new]<br /> <br /> (setq *app (vlax-get-acad-object)) <br /> (defun pross (k l) <br />   ;;;By Aeo <br />   (grtext -2 <br />       (strcat "已完成 " <br />           (rtos    (/ (* 100.0 k) l) 2 0 )  "%..." <br />       ) <br />   ) <br />   (vla-eval *app "DoEvents")  ;; 经我试验，这句在AutoCAD2004/2005中不必<br /> )<br /> <br /> ;;测试 By Aeo <br /> (defun c:test ( / h k l) <br />   (setq k 0 l 100 ) <br />   (while(< k l) <br />     (pross k l) <br />     (command "delay"100) <br />     (setq k(+ k 2)) <br />   )(princ) <br /> )<br /> <br /> [/FONT]<br />