如何取得表中相同元素

tc405003

如何取得表中相同元素;

如：A1  A2  A2  A3

执行后为：A2

王咣生

统计一下表中元素:

(defun c:test(/ rtn-lst lst sub-lst)
  (setq lst '("A1"  "A2"  "A2"  "A3" ))
  (while lst
    (setq sub-lst (vl-remove (car lst) lst))
    (setq rtn-lst (cons (cons (car lst) (- (length lst) (length sub-lst))) rtn-lst))
    (setq lst sub-lst)
  )
  (reverse rtn-lst)
 )

返回
(("A1" . 1) ("A2" . 2) ("A3" . 1))

daiyc88

如果是一个任选的选集，怎样才能把选集中各种相同图元分别组成不同的新的选集，请版主帮忙想一下,先谢了!

meflying

根据要求,重新选择,如,选择原选择集中的圆:

(command "_.select" ss "")

(setq ss_circle (ssget "p" '((0 . "CIRCLE"))))

daiyc88

可能没有讲清楚，我的意思是任意的选择集中如果有几组相同的图元（假设是名称相同的insert或是直径相同的圆）,要如何将他们区分并分类加入到不同的选择集中.

无痕

顶！

yedajiang

本人最痛恨问问题又不说清楚的人了。