删除重复实体（SLdesign V3.0集成）

wzg356

判断2个图元是重叠，含颜色等数据重叠
(setq es1(entget e1) es2(entget e2))
(equal
(vl-remove (assoc 5 es1)(vl-remove (assoc -1 es1)es1))
(vl-remove (assoc 5 es2)(vl-remove (assoc -1 es2)es2))
1e-5
)