vlisp 比较两个列表保留不同元素

pps658712

如题: 怎么 用vlisp 比较两个列表保留不同元素?

Layernames;列表1  
Alayernames;列表2

(repeat (length Layernames)
    (setq x (nth n Layernames))
    (repeat (length Alayernames)
      (setq y (nth m Alayernames))
      (if (/= X Y)
        (Setq Eraselist (Cons y Eraselist))
      )
      (setq n (1+ m))
    )
    (setq n (1+ n))
  )

  (Setq        Eraselist (Acad_Strlsort
                    (Vl-Sort Eraselist
                             (Function (Lambda (E1 E2)
                                         (If (= E1 E2)
                                           (Vla-Erase E1)
                                         )
                                       )
                             )
                    )
                  )

  )


如上语句 加载后 不能顺利比较 差集的内容不对,并不是 两个集合的差集

marting

1. (defun tt (lst1 lst2)
   
2.   (if (> (length lst2) (length lst1))
   
3.     (setq temp lst2
   
4.           lst2 lst1
   
5.           lst1 temp
   
6.     )
   
7.   )
   
8.   (vl-remove nil
   
9.              (mapcar '(lambda (x)
   
10.                         (if (member x lst2)
    
11.                           nil
    
12.                           x
    
13.                         )
    
14.                       )
    
15.                      lst1
    
16.              )
    
17.   )
    
18. )
    

(defun tt (lst1 lst2)<br />   (if (> (length lst2) (length lst1))<br />     (setq temp lst2<br />           lst2 lst1<br />           lst1 temp<br />     )<br />   )<br />   (vl-remove nil<br />              (mapcar '(lambda (x)<br />                         (if (member x lst2)<br />                           nil<br />                           x<br />                         )<br />                       )<br />                      lst1<br />              )<br />   )<br /> )<br />

命令: (tt '(1 2 3) '(3 2))
(1)

命令: (tt '(3 2) '(1 2 3))
(1)

marting

去看下 开源函数库 这个函数  http://bbs.xdcad.net/thread-668982-1-1.html

pps658712

marting 发表于 2017-3-15 23:33

非常感谢!

追问: 怎么绕过vla-delete 删除图层时候 提示对象在使用?

colinjian22

回的人少，我来小顶一下

newer

pps658712 发表于 2017-3-16 08:41

新的问题，单独开贴探讨吧。