(XD::DCL:RadioAction)单选控件批量定义

Free-Lancer

1. ;;有回调函数或关联动作的 radio 组定义
   
2. ;; _$klst ---- radio 组函数名或 函数名列表
   
3. ;; _$symL ---- 函数名或函数名列表，默认值
   
4. ;; _$callbackL -- 回调函数或列表,string
   
5. (defun XD::Dcl:RadioAction (_$klst _$symL _$callbackL / _gRadioAction)
   
6.   (defun _gRadioAction (keylst sym _$callback)
   
7.     (mapcar
   
8.       '(lambda (x)
   
9.          (action_tile
   
10.            x
    
11.            (strcat
    
12.              "(if "
    
13.              (vl-symbol-name sym)
    
14.              "(set_tile \""
    
15.              (vl-symbol-name sym)
    
16.              "\" \"0\"))"
    
17.              "(setq "
    
18.              (vl-symbol-name sym)
    
19.              " $key)"
    
20.              "(set_tile $key \"1\")"
    
21.              (if _$callback
    
22.                (strcat "(" _$callback ")")
    
23.                ""
    
24.              )
    
25.            )
    
26.          )
    
27.        )
    
28.       (vl-symbol-value keylst)
    
29.     )
    
30.   )
    
31.   (XD::DCL:RadioInit _$klst _$symL)
    
32.   (if (listp _$symL)
    
33.     (while _$klst
    
34.       (_gRadioAction (car _$klst) (car _$symL) (car _$callbackL))
    
35.       (setq _$klst        (cdr _$klst)
    
36.             _$symL        (cdr _$symL)
    
37.             _$callbackL        (cdr _$callbackL)
    
38.       )
    
39.     )
    
40.     (_gRadioAction _$klst _$symL _$callbackL)
    
41.   )
    
42. )
    

;;有回调函数或关联动作的 radio 组定义<br /> ;; _$klst ---- radio 组函数名或 函数名列表 <br /> ;; _$symL ---- 函数名或函数名列表，默认值<br /> ;; _$callbackL -- 回调函数或列表,string<br /> (defun XD::Dcl:RadioAction (_$klst _$symL _$callbackL / _gRadioAction)<br />   (defun _gRadioAction (keylst sym _$callback)<br />     (mapcar<br />       '(lambda (x)<br />          (action_tile<br />            x<br />            (strcat<br />              "(if "<br />              (vl-symbol-name sym)<br />              "(set_tile \""<br />              (vl-symbol-name sym)<br />              "\" \"0\"))"<br />              "(setq "<br />              (vl-symbol-name sym)<br />              " $key)"<br />              "(set_tile $key \"1\")"<br />              (if _$callback<br />                (strcat "(" _$callback ")")<br />                ""<br />              )<br />            )<br />          )<br />        )<br />       (vl-symbol-value keylst)<br />     )<br />   )<br />   (XD::DCL:RadioInit _$klst _$symL)<br />   (if (listp _$symL)<br />     (while _$klst<br />       (_gRadioAction (car _$klst) (car _$symL) (car _$callbackL))<br />       (setq _$klst        (cdr _$klst)<br />             _$symL        (cdr _$symL)<br />             _$callbackL        (cdr _$callbackL)<br />       )<br />     )<br />     (_gRadioAction _$klst _$symL _$callbackL)<br />   )<br /> )<br />

Free-Lancer

http://bbs.xdcad.net/forum.php?m ... 481&pid=3533156