选择集合并

你微笑时很美

1. (defun ss+ (ss1 ss2)
   
2.   (if (= (type ss1) 'PICKSET)
   
3.     (setq a (sslength ss1))
   
4.   )
   
5.   (if (= (type ss2) 'PICKSET)
   
6.     (setq b (sslength ss2))
   
7.   )
   
8.   (setq sl2 (sslength ss2))
   
9.   (repeat sl2
   
10.     (setq ename (ssname ss2 (setq sl2 (1- sl2))))
    
11.     (setq ss1 (ssadd ename ss1))
    
12.   )
    
13. )
    
14. 
    

(defun ss+ (ss1 ss2)<br />   (if (= (type ss1) 'PICKSET)<br />     (setq a (sslength ss1))<br />   )<br />   (if (= (type ss2) 'PICKSET)<br />     (setq b (sslength ss2))<br />   )<br />   (setq sl2 (sslength ss2))<br />   (repeat sl2<br />     (setq ename (ssname ss2 (setq sl2 (1- sl2))))<br />     (setq ss1 (ssadd ename ss1))<br />   )<br /> )<br /> <br />

lucas3

写着玩的就不要发到这里了，发到ALISP版块

kqqt6236

如果其中一个选择集为空，函数会出错

你微笑时很美

kqqt6236 发表于 2016-8-11 11:45
如果其中一个选择集为空，函数会出错

;(ss+ ss1 ss2)
;选择集合并
(defun ss+(ss1 ss2 / a b sl1 sl2 ename)
        (if (= (type ss1) 'PICKSET)(setq a(sslength ss1)))
        (if (= (type ss2) 'PICKSET)(setq b(sslength ss2)))
(cond ((and ss1 ss2)
       (progn
         (setq sl2(sslength ss2))
           (repeat sl2
          (setq ename(ssname ss2 (setq sl2(1- sl2))))
          (setq ss1(ssadd ename ss1)))))
      ((and (not ss1)(not ss2))ss1)
      ((not ss1)ss2)
      ((not ss2)ss1)
      ))

你微笑时很美

;(ss+ ss1 ss2)
;选择集合并
(defun ss+(ss1 ss2 / a b sl1 sl2 ename)
        (if (= (type ss1) 'PICKSET)(setq a(sslength ss1)))
        (if (= (type ss2) 'PICKSET)(setq b(sslength ss2)))
(cond ((and ss1 ss2)
       (progn
         (setq sl2(sslength ss2))
           (repeat sl2
          (setq ename(ssname ss2 (setq sl2(1- sl2))))
          (setq ss1(ssadd ename ss1)))))
      ((and (not ss1)(not ss2))ss1)
      ((not ss1)ss2)
      ((not ss2)ss1)
      ))

收到法国大使馆

新手不断学习中感谢楼主

xx69as

啥也不说了，感谢楼主分享哇！

huangpc27

只能合并2个吗，3个、4个、5个呢？

bnjzzheng

还可以，点个赞

yu411038522

(setq a(sslength ss1))你定义了两个选择集的长度a和b，下面你又不用，那你定义了干啥
另外，用repeat的时候尽量不要让总次数变化