Pickset_Redraw支持模式

st788796

用redraw的知道这个函数除了redraw功能还有个模式选项，"隐藏"或正常显示，缺点是不能对选择集，API中的Redraw可以对选择集了，但失去了参数，难道不能达到两全其美？

XDSoft

API的REDRAW用的是 highlight 方法，没那些参数。

eachy

这个函数已经正名了:)

st788796

那就这样写一个吧

1. ;|
   
2. lst --- pickset
   
3.     --- ename
   
4.     --- (pickset mod)
   
5.     --- (ename mod)
   
6. |;
   
7. (defun Xd::Pickset:Redraw (lst / mod e)
   
8.   (cond
   
9.     ((= (type lst) 'PICKSET)
   
10.      (xdrx_setsstodb lst 9)
    
11.      (while (setq e (xdrx_getentdata 0))
    
12.        (redraw e)
    
13.      )
    
14.     )
    
15.     ((= (type lst) 'ENAME)
    
16.      (redraw lst)
    
17.     )
    
18.     ((= (type (car)) 'PICKSET)
    
19.      (xdrx_setsstodb (car lst) 9)
    
20.      (if (setq mod (cadr lst))
    
21.        (while (setq e (xdrx_getentdata 0))
    
22.   (redraw e mod)
    
23.        )
    
24.        (while (setq e (xdrx_getentdata 0))
    
25.   (redraw e)
    
26.        )
    
27.      )
    
28.     )
    
29.     ((= (type (car lst)) 'ENAME)
    
30.      (apply 'redraw lst)
    
31.     )
    
32.     (t)
    
33.   )
    
34. )

;|<br /> lst --- pickset<br />     --- ename<br />     --- (pickset mod)<br />     --- (ename mod)<br /> |;<br /> (defun Xd::Pickset:Redraw (lst / mod e)<br />   (cond<br />     ((= (type lst) 'PICKSET)<br />      (xdrx_setsstodb lst 9)<br />      (while (setq e (xdrx_getentdata 0))<br />        (redraw e)<br />      )<br />     )<br />     ((= (type lst) 'ENAME)<br />      (redraw lst)<br />     )<br />     ((= (type (car)) 'PICKSET)<br />      (xdrx_setsstodb (car lst) 9)<br />      (if (setq mod (cadr lst))<br />        (while (setq e (xdrx_getentdata 0))<br />   (redraw e mod)<br />        )<br />        (while (setq e (xdrx_getentdata 0))<br />   (redraw e)<br />        )<br />      )<br />     )<br />     ((= (type (car lst)) 'ENAME)<br />      (apply 'redraw lst)<br />     )<br />     (t)<br />   )<br /> )

st788796

2 4 条件是 redraw 标准用法，应该放最后，1 3是扩展