[求助]：请教怎么删除选择集里面具有某项相同属性的图元？

eobser

譬如用ssget建立的一个选择集，其中各图元的某属性分别为
1
2
3
4
5
2
6
7
8
9
其中有两个图元的某属性值都为2，
请问通过什么方法可以剔除其中一个图元？
劳烦大家指点下，谢谢！
修改下(setq ii 0)位置，功能可以实现了。改后如下：
[PHP]
   (setq ss1 (my-ssget "请选择钢筋编号规格标注:"
                          '(((-4 . "<AND")
                             (0 . "INSERT")
                             (-4 . "<OR")
                             (2 . "gjbzr")
                             (2 . "gjbzl")
                             (-4 . "OR>")
                             (-4 . "AND>")
                           ))
              )
    )
    (setq ssn (sslength ss1))
    (setq i 1)
   (setq sss nil)
    (setq sss (ssadd))
    (repeat ssn
        (setq ii 0)
        (repeat ssn
            (if (= (fix i) (atoi (cdr (assoc 1 (entget (entnext (ssname ss1 ii)))))))
                (progn
                     (ssadd (ssname ss1 ii) sss)
                     (setq i (1+ i))
                )
            )
            (setq ii (1+ ii))
         )
    )
    (setq sssn (sslength sss))
[/PHP]

qiaqiadeng

(setq ss1 (my-ssget "请选择钢筋编号规格标注:"
                    '((0 . "INSERT")
                      (2 . "gjbzr,gjbzl")
                     )
          )
)
(setq ssn (sslength ss1))
(setq i         1
      ii 0
)

(setq sss (ssadd))
(repeat        ssn
  (repeat ssn
    (if        (= (fix i)
           (atoi (cdr (assoc 1 (entget (entnext (ssname ss1 ii))))))
        )
      (progn
        (setq sss (ssadd (ssname ss1 ii) sss))
        (setq i (1+ i))
      )
    )
    (setq ii (1+ ii))
  )
)
(setq sssn (sslength sss))