怎樣判斷兩個選擇集是否相等?

thtanhao

各位高人,请教:
怎样判断两个选择集是否相等?
如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,希望大家帮忙)

sailorcwx

发错了

liu22737

(equal ss1 ss3)

xyp1964

2. (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. )

(defun comp-ss (ss1 ss2 / ss3)   (command "select" ss1 "a" ss2 "")   (setq ss3 (ssget "P"))   (if (and (= (sslength ss1) (sslength ss3))    (= (sslength ss2) (sslength ss3))       )     t     nil   ) )