;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