(XD::DCL:RadioInit)radio 组批量初始化

Free-Lancer

1. ;; 仅设置 radio 组并记录选择的定义
   
2. ;; _$klst ---- radio 组函数名或 函数名列表
   
3. ;; _$symL ---- 函数名或函数名列表，默认值
   
4. (defun XD::DCL:RadioInit (_$klst _$symL / _sRadioInit)
   
5.   (defun _sRadioInit (_$kgrp _$def)
   
6.     (mapcar '(lambda (x)
   
7.                (if (= x (vl-symbol-value _$def))
   
8.                  (set_tile x "1")
   
9.                  (set_tile x "0")
   
10.                )
    
11.              )
    
12.             _$kgrp
    
13.     )
    
14.   )
    
15.   (if (listp _$symL)
    
16.     (mapcar '(lambda (x y)
    
17.                (_sRadioInit x y)
    
18.              )
    
19.             (mapcar 'vl-symbol-value _$klst)
    
20.             _$symL
    
21.     )
    
22.     (_sRadioInit (vl-symbol-value _$klst) _$symL)
    
23.   )
    
24. )
    

;; 仅设置 radio 组并记录选择的定义 <br /> ;; _$klst ---- radio 组函数名或 函数名列表 <br /> ;; _$symL ---- 函数名或函数名列表，默认值<br /> (defun XD::DCL:RadioInit (_$klst _$symL / _sRadioInit)<br />   (defun _sRadioInit (_$kgrp _$def)<br />     (mapcar '(lambda (x)<br />                (if (= x (vl-symbol-value _$def))<br />                  (set_tile x "1")<br />                  (set_tile x "0")<br />                )<br />              )<br />             _$kgrp<br />     )<br />   )<br />   (if (listp _$symL)<br />     (mapcar '(lambda (x y)<br />                (_sRadioInit x y)<br />              )<br />             (mapcar 'vl-symbol-value _$klst)<br />             _$symL<br />     )<br />     (_sRadioInit (vl-symbol-value _$klst) _$symL)<br />   )<br /> )<br />