求教选择集分类后能否实现合并

灰石Jeremy

你这个叫合并字符串，不是合并表

kwok

；合并选集
(repeat (setq i (sslength ss))
            (ssadd (ssname ss (setq i (1- i))) ss1)
    )

菜卷鱼

看了这个之后应该没啥问题了吧

1. ;;;;;;选择集的操作 by 菜卷鱼
   
2. ;;ssp 判断是否为选择集
   
3. ;;enamep 判断是否为图元
   
4. ;;sslist 选择集变成图元表
   
5. ;;sspack 图元表打包成选择集
   
6. ;;ss+ss 选择集加上选择集
   
7. ;;ss-ss 选择集减去选择集
   
8. ;;ss-en 选择集减去图元
   
9. (defun ssp  (ss)
   
10.   (= (type ss) 'PICKSET)
    
11.   )
    
12. (defun enamep  (obj)
    
13.   (= (type obj) 'ENAME)
    
14.   )
    
15. (defun sslist  (ss / i lst)
    
16.   (setq i -1)
    
17.   (if (ssp ss)
    
18.     (repeat (sslength ss)
    
19.       (setq lst (cons (ssname ss (setq i (1+ i))) lst))
    
20.       )
    
21.     )
    
22.   (reverse lst)
    
23.   )
    
24. (defun sspack  (lst / pack)
    
25.   (setq pack (ssadd))
    
26.   (foreach x  lst
    
27.     (if (enamep x)
    
28.     (setq pack (ssadd x pack)))
    
29.     )
    
30.   pack
    
31.   )
    
32. (defun ss-ss  (ss1 ss2 / sl1 sl2)
    
33.   (setq sl1 (sslist ss1))
    
34.   (setq sl2 (sslist ss2))
    
35.   (foreach x  sl2
    
36.     (setq sl1 (vl-remove x sl1))
    
37.     )
    
38.   (if (null sl1)(ssadd)(sspack sl1))
    
39. )
    
40. (defun ss+ss  (ss1 ss2)
    
41.   (sspack (append (sslist ss1) (sslist ss2)))
    
42.   )
    
43. (defun ss-en  (ss en)
    
44.   (sspack (vl-remove en (sslist ss)))
    
45.   )
    

;;;;;;选择集的操作 by 菜卷鱼<br /> ;;ssp 判断是否为选择集<br /> ;;enamep 判断是否为图元<br /> ;;sslist 选择集变成图元表<br /> ;;sspack 图元表打包成选择集<br /> ;;ss+ss 选择集加上选择集<br /> ;;ss-ss 选择集减去选择集<br /> ;;ss-en 选择集减去图元<br /> (defun ssp  (ss)<br />   (= (type ss) 'PICKSET)<br />   )<br /> (defun enamep  (obj)<br />   (= (type obj) 'ENAME)<br />   )<br /> (defun sslist  (ss / i lst)<br />   (setq i -1)<br />   (if (ssp ss)<br />     (repeat (sslength ss)<br />       (setq lst (cons (ssname ss (setq i (1+ i))) lst))<br />       )<br />     )<br />   (reverse lst)<br />   )<br /> (defun sspack  (lst / pack)<br />   (setq pack (ssadd))<br />   (foreach x  lst<br />     (if (enamep x)<br />     (setq pack (ssadd x pack)))<br />     )<br />   pack<br />   )<br /> (defun ss-ss  (ss1 ss2 / sl1 sl2)<br />   (setq sl1 (sslist ss1))<br />   (setq sl2 (sslist ss2))<br />   (foreach x  sl2<br />     (setq sl1 (vl-remove x sl1))<br />     )<br />   (if (null sl1)(ssadd)(sspack sl1))<br /> )<br /> (defun ss+ss  (ss1 ss2)<br />   (sspack (append (sslist ss1) (sslist ss2)))<br />   )<br /> (defun ss-en  (ss en)<br />   (sspack (vl-remove en (sslist ss)))<br />   )<br />

xyz2009xyz

灰石Jeremy 发表于 2020-5-7 13:18
你这个叫合并字符串，不是合并表

你确定？是字符串？

xyz2009xyz

猫哥的选择集合并，也供大家参考下！
(defun ss_sum(ss1 ss2)
(setq i 0)
(repeat (sslength ss1)
  (ssadd (ssname ss1 i) ss2)
  (setq i (1+ i))
)
ss2
)