怎样合并两个选择集？

abcxyz0517

例如我向把S1 选择集和S2选择集合并成S3

该怎么表达？

用到什么函数？

yjtdkj

ygp820601 发表于 2012-12-18 21:00
呵呵，求差集的函数有问题，当两个选择集相同时，差集应该为nil,这种情况没有考虑到。
(defun ssinter (ss ...

这位朋友写的代码有很多问题呀，我重改了一个

1. (defun ssunion (SS1 SS2 / n);求两个选择集的并集
   
2.         (cond
   
3.                 ((and (equal ss1 nil) (not (equal ss2 nil))) ss2)
   
4.                 ((and (equal ss2 nil) (not (equal ss1 nil))) ss1)
   
5.                 ((and (equal ss1 nil) (equal ss2 nil)) nil)
   
6.                 (
   
7.                         (and (not(equal ss2 nil))(not (equal ss1 nil)))
   
8.                         (progn
   
9.                                 (setq n 0)
   
10.                                 (repeat (sslength ss2)
    
11.                                         (if (not(ssmemb (ssname ss2 n) ss1))
    
12.                                                 (setq ss1 (ssadd (ssname ss2 n) ss1))
    
13.                                         )
    
14.                                         (setq n (1+ n))
    
15.                                 )
    
16.                                 ss1
    
17.                         )
    
18.                 )
    
19.         )
    
20. )

(defun ssunion (SS1 SS2 / n);求两个选择集的并集<br />         (cond <br />                 ((and (equal ss1 nil) (not (equal ss2 nil))) ss2)<br />                 ((and (equal ss2 nil) (not (equal ss1 nil))) ss1)<br />                 ((and (equal ss1 nil) (equal ss2 nil)) nil)<br />                 (<br />                         (and (not(equal ss2 nil))(not (equal ss1 nil)))<br />                         (progn<br />                                 (setq n 0)<br />                                 (repeat (sslength ss2)<br />                                         (if (not(ssmemb (ssname ss2 n) ss1))<br />                                                 (setq ss1 (ssadd (ssname ss2 n) ss1))<br />                                         )<br />                                         (setq n (1+ n))<br />                                 )<br />                                 ss1<br />                         )<br />                 )<br />         )<br /> )

qiannianhuazi

yjtdkj 发表于 2013-12-14 17:07
这位朋友写的代码有很多问题呀，我重改了一个

感谢代码,取走用了

TANER

去查查XYP1964的函数！

phoenixdjq

(setq s3 (ssadd ename s1))

ename是s2的实体，当然这个s2的实体要做循环的

分别取出S2中的实体，放到s1中

nonsmall

(setq i 0 ss3 ss2))

(while (setq name(ssname ss1 i))

(if (not (ssmemb name ss2))

(ssadd name ss3))

(setq i (1+ i))

)

龙龙仔

  (setq SS1 (ssget))
  (print "OK1!")
  (setq SS2 (ssget))
  (command "_.SELECT" SS1 SS2 "")
  (setq SS3 (ssget "P"))

nonsmall

<img alt="" src="http://www.mjtd.com/bbs/Skins/default/topicface/face15.gif"/>差距啊

zml84

2. 今天学习的两个通用函数：
3. ;;; ==================================================================
4. ;;; 通用函数
5. ;;; 两选择集的差集
6. (defun SSDIFF (SS1 SS2)
7. &#160;&#160;&#160; (command "_.select" SS1 "remove" SS2 "")
8. &#160;&#160;&#160; (ssget "P")
9. )
10. ;;; 两选择集的并集
11. (defun SSUNION (SS1 SS2)
12. &#160;&#160;&#160; (command "_.select" SS1 SS2 "")
13. &#160;&#160;&#160; (ssget "P")
14. )
15. ;;; ==================================================================

今天学习的两个通用函数： ;;; ================================================================== ;;; 通用函数 ;;; 两选择集的差集 (defun SSDIFF (SS1 SS2) &#160;&#160;&#160; (command "_.select" SS1 "remove" SS2 "") &#160;&#160;&#160; (ssget "P") ) ;;; 两选择集的并集 (defun SSUNION (SS1 SS2) &#160;&#160;&#160; (command "_.select" SS1 SS2 "") &#160;&#160;&#160; (ssget "P") ) ;;; ==================================================================

无痕

举一反三，还差一个阿

求交集.hehe.路过

(defun SSins (SS1 SS2)
    (command "_.select" SS1 "r" SS2 "")
    (setq ss (ssget "P"))

    (command "_.select" SS1 "r" SS "")

     (ssget "P")
)

xyp1964

(defun ssinter (sssel1 sssel2 / sssel3)
  (command ".select" sssel1 "r" sssel2 "")
  (command ".select" sssel1 "r" "p" "")
  (setq sssel3 (ssget "p"))
  sssel3
)

xyp1964

;;;a+b和b+c,求a+c
;;;方式 : (setq ss3 (ss-ac ss1 ss2))
(defun ss-ac (sssel1 sssel2 / sssel3)
  (command ".select" sssel1 "R" sssel2 "")
  (command ".select" sssel2 "R" sssel1 " a" "p" "")
  (setq sssel3 (ssget "p"))
  sssel3
)