取之于明，二次开发学习记录帖

foolishzy

在明经通道收获颇多，记录一些简单的小功能，一起进步

liwen888888

没有实际的东西啊！

foolishzy

选择集 list 互相转换

1. (defun enamelist_to_pickset(sslst / ss)
   
2.         ;list 转换成选择集
   
3.         (setq ss (ssadd))
   
4.         (foreach n sslst
   
5.                 (ssadd n ss)
   
6.         )
   
7.         ss
   
8. )
   
9. (defun pickset_to_enamelist(pickset / ss sslst )
   
10.         ;选择集转换成list
    
11.         (setq ss pickset sslst '())
    
12.         (while (setq n (ssname ss 0))
    
13.                 (progn
    
14.                         (setq sslst (append sslst (list n)))
    
15.                         (ssdel n ss)
    
16.                 )
    
17.         )
    
18.         sslst
    
19. )

(defun enamelist_to_pickset(sslst / ss)<br />         ;list 转换成选择集<br />         (setq ss (ssadd))<br />         (foreach n sslst<br />                 (ssadd n ss)<br />         )<br />         ss<br /> )<br /> (defun pickset_to_enamelist(pickset / ss sslst )<br />         ;选择集转换成list <br />         (setq ss pickset sslst '())<br />         (while (setq n (ssname ss 0))<br />                 (progn<br />                         (setq sslst (append sslst (list n)))<br />                         (ssdel n ss)<br />                 )<br />         )<br />         sslst<br /> )

vitalgg