[求助]：請教:怎樣判斷兩個選擇集是否相等?

taner

各位高人,請教:
怎樣判斷兩個選擇集是否相等?
如:(setq ss1 (ssget  (list  (cons 0 "LINE,ARC,*POLYLINE"))))
(setq ss2 (ssget  (list  (cons 0 "LINE,ARC,*POLYLINE"))))
如果兩框選的區域是同一個區域,則應有SS1=SS2.
但是用(=  SS1 SS2)時返回nil.
請問如何比較?
(我選擇時,兩次框的區域可能不一樣大,但是包含的實體是一樣多的.另外,有沒有辦法在求ss1時(setq ss1 (ssget  (list  (cons 0 "LINE,ARC,*POLYLINE")))),將框選的對角頂點坐標求出來,供求ss2時調用?)

(通過以下測試,應該不是兩次框選區域不同引起的.
(setq c (getstring "\n請输入要聚合的层名<或回車點選要聚合的層中的任一實體>:"))
(setq ss1 (ssget "x" (list (cons 8 c) (cons 0 "LINE,ARC,*POLYLINE")))
  ss3 (ssget "x" (list (cons 8 c) (cons 0 "LINE,ARC,*POLYLINE")))
          )
(= SS1 SS3)返回NIL,希望大家幫忙)

以下是否可以当做总结？by xyp1964[/COLOR]

2. [FONT=courier new];;;判断选择集ss1与ss2是否完全相同
   
3. (defun comp-ss (ss1 ss2 / ss3)
   
4.   (if (and ss1 ss2)
   
5.     (progn
   
6.       (command "select" ss1 ss2 "")
   
7.       (setq ss3 (ssget "P"))
   
8.       (if (and (= (sslength ss1) (sslength ss3))
   
9.                (= (sslength ss2) (sslength ss3))
   
10.           )
    
11.         (princ "\n两选择集完全相同!")
    
12.         (princ "\n两选择集不相同!")
    
13.       )
    
14.     )
    
15.     (princ"\不存在要对比的选择集!")
    
16.   )
    
17. )
    
18. (princ)[/FONT]

[FONT=courier new];;;判断选择集ss1与ss2是否完全相同<br /> (defun comp-ss (ss1 ss2 / ss3)<br />   (if (and ss1 ss2)<br />     (progn<br />       (command "select" ss1 ss2 "")<br />       (setq ss3 (ssget "P"))<br />       (if (and (= (sslength ss1) (sslength ss3))<br />                (= (sslength ss2) (sslength ss3))<br />           )<br />         (princ "\n两选择集完全相同!")<br />         (princ "\n两选择集不相同!")<br />       )<br />     )<br />     (princ"\不存在要对比的选择集!")<br />   )<br /> )<br /> (princ)[/FONT]

xyp1964

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
6. ★1·在acad.lsp中增加(load"xyp_lib")
   
7. ■2·在每个程序内增加(load"xyp_lib")
   
8. ■3·在command下，输入(load"xyp_lib")
   
9. ■4·在菜单.mnl中增加(load"xyp_lib")
   
10. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
13. [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;
    
14. 
    
15. (defun c:test ()
    
16.   (setq ss1 (ssget (list (cons 0 "LINE,ARC,*POLYLINE"))))
    
17.   (setq ss2 (ssget (list (cons 0 "LINE,ARC,*POLYLINE"))))
    
18.   (setq ss3 (SSUNION ss1 ss2));ss1与ss2合并
    
19.   (if (and (= (sslength ss1) (sslength ss3));ss1与ss3的数量相等
    
20.            (= (sslength ss2) (sslength ss3));ss2与ss3的数量相等
    
21.       )
    
22.     t
    
23.     nil
    
24.   )
    
25. )[/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib")<br /> ■2·在每个程序内增加(load"xyp_lib")<br /> ■3·在command下，输入(load"xyp_lib")<br /> ■4·在菜单.mnl中增加(load"xyp_lib")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]|;<br /> <br /> (defun c:test ()<br />   (setq ss1 (ssget (list (cons 0 "LINE,ARC,*POLYLINE"))))<br />   (setq ss2 (ssget (list (cons 0 "LINE,ARC,*POLYLINE"))))<br />   (setq ss3 (SSUNION ss1 ss2));ss1与ss2合并<br />   (if (and (= (sslength ss1) (sslength ss3));ss1与ss3的数量相等<br />            (= (sslength ss2) (sslength ss3));ss2与ss3的数量相等<br />       )<br />     t<br />     nil<br />   )<br /> )[/FONT]

eachy

2. (defun testss (s1 s2 / sl1 sl2 m tf)
   
3.   (if (= (setq sl1 (sslength s1))
   
4.          (setq sl2 (sslength s2))
   
5.       )
   
6.     (progn
   
7.       (setq m 0 tf t)
   
8.       (while (and tf (< m 0))
   
9.         (if (equal (ssname s1 m)
   
10.                    (ssname s2 m)
    
11.             )
    
12.           (setq m (1+ m))
    
13.           (setq tf nil)
    
14.         )
    
15.       )
    
16.     )
    
17.   )
    
18.   tf
    
19. )

(defun testss (s1 s2 / sl1 sl2 m tf)<br />   (if (= (setq sl1 (sslength s1))<br />          (setq sl2 (sslength s2))<br />       )<br />     (progn<br />       (setq m 0 tf t)<br />       (while (and tf (< m 0))<br />         (if (equal (ssname s1 m)<br />                    (ssname s2 m)<br />             )<br />           (setq m (1+ m))<br />           (setq tf nil)<br />         )<br />       )<br />     )<br />   )<br />   tf<br /> )

狂刀

如果没有设置选择排序，两次选择实体集的实体排序可能是不相同的。另，(< m 0)有误

还可以这样

2. 
   
3.   [FONT=courier new]
   
4. ;; (testss (ssget)(ssget))
   
5. (defun testss (s1 s2 / sl1 sl2 tf)
   
6.   (if (= (setq sl1 (sslength s1))
   
7.          (setq sl2 (sslength s2))
   
8.       )
   
9.     (progn
   
10.       (setq tf T)
    
11.       (while (and tf (>= (setq sl1(1- sl1)) 0))
    
12.         (ssadd  (ssname s1 sl1)s2)
    
13.         (setq tf (= sl2 (sslength s2)))
    
14.       )
    
15.       tf
    
16.     )
    
17.   )
    
18. )
    
19.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;; (testss (ssget)(ssget))<br /> (defun testss (s1 s2 / sl1 sl2 tf)<br />   (if (= (setq sl1 (sslength s1))<br />          (setq sl2 (sslength s2))<br />       )<br />     (progn<br />       (setq tf T)<br />       (while (and tf (>= (setq sl1(1- sl1)) 0))<br />         (ssadd  (ssname s1 sl1)s2)<br />         (setq tf (= sl2 (sslength s2)))<br />       )<br />       tf<br />     )<br />   )<br /> )<br />   [/FONT]<br />

eachy

开始想写两个 Handle 构造表比较的

狂刀

handle或ename表都可，分别得到两个表（slst1 slst2）后
(and (= (length slst1)(length slst2))
    (apply 'and (mapcar '(lambda(x)(member x slst2)) slst1))
)
判断即可

舟自横

高手们都讲了如何比较两选集是否内容相同..讲的很好..
我也拿我以前写的一个来
[PHP]
(defun hy_samess(ss1 ss2 / aass1 i)
  (setq ok_no "ok")
  (if (/= (sslength ss1) (SSlength ss2)) (setq ok_no "no")
      (progn
  (setq i 0)
  (while (< i (sslength ss1))
    (setq aass1 (ssname ss1 i))
    (if (= (ssmemb aass1 ss2) nil) (setq ok_no "no"))
    (setq i (1+ i))
    )
    )
  ) ok_no
  );;;; the end
[/PHP]
关于如何取得选择集建立的方法(將框選的對角頂點坐標求出來)可以看一下SSNAMEX功能的介绍...
(SETQ SS (SSGET)) (SSNAMEX SS)
1....当选择集是以点取方式取得.可能返回( (1 <对象名称>) (0 <碰选点坐标>))这样一个列表
2....当选择集是以WINDOWS WPOLYGON 等多选方式建立 可能返回 ((2 <对象名称1> 0  -1)
(2 <对象名称2> 0  -1)......(-1 (0 <多选坐标点一>) (0 <多选坐标点二>) ........)))
3....当以篱选方式..(4 <对象1> 0 (0 (篱选与对象1交点1))(0 (交点2))..(4 <对象2)............))
4.....如果以CROSS方式则关键字为3..自己可以去试一下...

xyp1964

问题的实质：判断两个子集并集的元素数量是否与子集的分别相等。

2. [FONT=courier new](defun comp-ss        (ss1 ss2 / ss3)
   
3.   (command "select" ss1 "a" ss2 "")
   
4.   (setq ss3 (ssget "P"))
   
5.   (if (and (= (sslength ss1) (sslength ss3))
   
6.            (= (sslength ss2) (sslength ss3))
   
7.       )
   
8.     t
   
9.     nil
   
10.   )
    
11. )[/FONT]

[FONT=courier new](defun comp-ss        (ss1 ss2 / ss3)<br />   (command "select" ss1 "a" ss2 "")<br />   (setq ss3 (ssget "P"))<br />   (if (and (= (sslength ss1) (sslength ss3))<br />            (= (sslength ss2) (sslength ss3))<br />       )<br />     t<br />     nil<br />   )<br /> )[/FONT]

eachy

用 select 命令最简单了，如果(command ".select" ss1 "r" ss2  "") 再次 (ssget "P") 为空的时候就是相等了。

LUCAS

最初由 eachy 发布
[B]用 select 命令最简单了，如果(command ".select" ss1 "r" ss2  "") 再次 (ssget "P") 为空的时候就是相等了。 [/B]

这个是不行的!
(command ".select" ss1 "r" ss2  "") = NIL时
(ssget "P") 是上一个选集,不是NIL

eachy

上一个选择集就说明相等了

狂刀

最初由 eachy 发布
[B]用 select 命令最简单了，如果(command ".select" ss1 "r" ss2  "") 再次 (ssget "P") 为空的时候就是相等了。 [/B]

当ss2范围大于ss1的时候，返回也为ｎｉｌ．但两个选集不等

taner

十分感謝各位的指點!終於搞定了一個難題.再次感謝!
(但是,如果有一個選擇集爲空時,各位程序運行提示出錯,因爲 (setq ss1 (ssget "x" (list (cons 8 c) (cons 0 "LINE,ARC,*POLYLINE"))))
  (setq ss2 (ssget "x" (list (cons 8 c) (cons 0 "LINE,ARC"))))有可能是空.)

我編的程序一個小程序如下,作用是將某層上的實體連成多義線,並判斷過其是否閉合.原本是先判斷是否SS1=SS2後再用PEDIT搞定.但是,遇到了怎樣判斷SS1是否=SS2?故改編如下.
各位看了下面的一段小程後,應該明白我的問題所在.[php]
(defun c:xxx (/ c z n n1 e1 ss1 ss2 etype)
  (setq z (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "undo" "be")
  (setq c (getstring "\n請输入要聚合的层名<或回車點選要聚合的層中的任一實體>:"))
  (if (= c "")
    (setq c (cdr (assoc 8 (entget (car (entsel "\n請點選目標層實體:"))))))
  )
  (setq ss1 (ssget "x" (list (cons 8 c) (cons 0 "LINE,ARC")))
  )
  (if (/= ss1 nil)  
    (command "pedit" "M" ss1 "" "Y" "j" "" "")
  )  
(setq ss1 (ssget "x" (list (cons 8 c) (cons 0 "*POLYLINE"))))
(command "pedit" "M" ss1 "" "j" "" "")
  (setq ss1 (ssget "x" (list (cons 8 c) (cons 0 "*POLYLINE"))))
  (setq n1 (sslength ss1))
  (setq n 0)
  (while (< n n1)
    (setq e1 (ssname ss1 n))
    (if (/= (vlax-curve-isclosed e1) t)
      (command "change" e1 "" "p" "c" 7 "")
      (command "change" e1 "" "p" "c" 30 "")
    )
    (setq n (1+ n))
  )
  (setvar "cmdecho" z)
  (command "undo" "e")
  (princ)
)[/php]
修改前的:[php]
(defun c:xxxx (/ c z n n1 e1 ss1 ss2 etype)
  (setq z (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "undo" "be")
  (setq c (getstring "\n請输入要聚合的层名<或回車點選要聚合的層中的任一實體>:"))
  (if (= c "")
    (setq c (cdr (assoc 8 (entget (car (entsel "\n請點選目標層實體:"))))))
  )
  (setq ss1 (ssget "x" (list (cons 8 c) (cons 0 "LINE,ARC,*POLYLINE"))))
  (setq ss2 (ssget "x" (list (cons 8 c) (cons 0 "*POLYLINE"))))
  


  (if (= ss1 ss2l);有問題
   
    (command "pedit" "M" ss1 "" "j" "" "")
     (command "pedit" "M" ss1 "" "Y" "j" "" "")
  )
  (setq n1 (sslength ss1))
  (setq n 0)
  (while (< n n1)
    (setq e1 (ssname ss1 n))
    (if (/= (vlax-curve-isclosed e1) t)
      (command "change" e1 "" "p" "c" 7 "")
      (command "change" e1 "" "p" "c" 30 "")
    )
    (setq n (1+ n))
  )
  (setvar "cmdecho" z)
  (command "undo" "e")
  (princ)
)[/php]

舟自横

觉得楼上写程序的风格好熟悉..
是不是富士康的...

LUCAS

富士康??我公司卖了很多面板机(切割手机面板)进去...