;2012.5.21 by清清绿茶

;删除重叠图元(如有多个图元重叠在同一位置，只保留其中一个，删除其他重叠图元)

;只删除完全重合并且为同类型同属性图元

;函数使用方法:(killent ss)  其中ss为选择集

(defun killent (ss / ent data ss_len list1 jubing)

  (repeat (setq ss_len (sslength ss))

    (if (and (setq ent (ssname ss (setq ss_len (1- ss_len))))

             (setq data (entget ent))

        );获取组码表

      (progn

        (setq data (cdr data));去掉图元名

        (if (setq jubing (ASSOC 5 data));获取句柄

          (setq data (subst '(5 . "ASD") jubing data));替换为统一句柄

        )

        (if (member data list1);在list1表里查找组码表

          (entdel ent);如果存在则删除图元

          (setq list1 (cons data list1));如果不存在则加入组码表到list1表

        )

      )

    )

  )

)

;以上代码可直接复制保存，或者去网盘下载函数。链接: http://pan.baidu.com/s/1geK6NdD 密码: k58t