[讨论]：请教选择集的並集、交集和差集处理函数

carrot1983

我只有土办法，比如说求交集吧。下面一个复制后旋转的程序，我只会用command。不知道有没有可以达到並集、交集和差集处理函数。最好是R14下能用的。请教大家。。。
[php]
;***************************************复制旋转crt
;这是一个复制一个物件然后再让目标物件进行旋转的小程序
(defun c:crt()
  (setq pp (ssget "x"))
  (setq ss (ssget))
  (initget 1)
  (setq pt (getpoint "\n选择基点："))
  (initget 1)
  (setq pt1 (getpoint pt "\n选择目标点："))
  (command "copy" ss"" pt pt1)
  (command "select" "all" "r" pp "")
  (setq pp1 (ssget "p"))
  (command "rotate" pp1"" pt1)
  (prin1)
)
[/php]

taner

2. 
   
3.   [FONT=courier new]
   
4. ;;;xyp版主的函数,很久以前讨论过.
   
5. ;;; ==================================================================
   
6. ;;; 兩選擇集的差集
   
7. ;;; ==================================================================
   
8. (defun ssdiff (ss1 ss2)
   
9.   (command "select" ss1 "r" ss2 "")
   
10.   (ssget "P")
    
11. )
    
12. ;;; ==================================================================
    
13. ;;; 兩選擇集的并集
    
14. ;;; ==================================================================
    
15. (defun ssunion (ss1 ss2)
    
16.   (command "select" ss1 ss2 "")
    
17.   (ssget "P")
    
18. )
    
19. ;;; ==================================================================
    
20. ;;; 兩選擇集的交集
    
21. ;;; ==================================================================
    
22. (defun ssinter1 (ss1 ss2)
    
23.   (th-ssdiff (th-ssunion ss1 ss2) (th-ssunion (th-ssdiff ss1 ss2)
    
24.                                               (th-ssdiff ss2 ss1)
    
25.                                   )
    
26.   )
    
27. )
    
28. ;;; ==================================================================
    
29. ;;; 兩選擇集的交集, sssel1 与 sssel2 选择集之交集  a+b和b+c,求b
    
30. ;;; 方式 : (setq ss3 (ssinter ss1 ss2))
    
31. ;;; ==================================================================
    
32. (defun ssinter2 (sssel1 sssel2 / sssel3)
    
33.   (command ".select" sssel1 "r" sssel2 "")
    
34.   (command ".select" sssel1 "r" "p" "")
    
35.   (setq sssel3 (ssget "p"))
    
36.   sssel3
    
37. )
    
38. ;;; ==================================================================
    
39.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;xyp版主的函数,很久以前讨论过.<br /> ;;; ==================================================================<br /> ;;; 兩選擇集的差集<br /> ;;; ==================================================================<br /> (defun ssdiff (ss1 ss2)<br />   (command "select" ss1 "r" ss2 "")<br />   (ssget "P")<br /> )<br /> ;;; ==================================================================<br /> ;;; 兩選擇集的并集<br /> ;;; ==================================================================<br /> (defun ssunion (ss1 ss2)<br />   (command "select" ss1 ss2 "")<br />   (ssget "P")<br /> )<br /> ;;; ==================================================================<br /> ;;; 兩選擇集的交集<br /> ;;; ==================================================================<br /> (defun ssinter1 (ss1 ss2)<br />   (th-ssdiff (th-ssunion ss1 ss2) (th-ssunion (th-ssdiff ss1 ss2)<br />                                               (th-ssdiff ss2 ss1)<br />                                   )<br />   )<br /> )<br /> ;;; ==================================================================<br /> ;;; 兩選擇集的交集, sssel1 与 sssel2 选择集之交集  a+b和b+c,求b<br /> ;;; 方式 : (setq ss3 (ssinter ss1 ss2))<br /> ;;; ==================================================================<br /> (defun ssinter2 (sssel1 sssel2 / sssel3)<br />   (command ".select" sssel1 "r" sssel2 "")<br />   (command ".select" sssel1 "r" "p" "")<br />   (setq sssel3 (ssget "p"))<br />   sssel3<br /> )<br /> ;;; ==================================================================<br />   [/FONT]<br />

carrot1983

谢谢楼上。
看来，还是得用command.
了解。。。。

Underway

另类范例之一
http://www.365jt.com/html/CADSOFT/0121130706705.html