[讨论]：eachy大哥能指点下吗？编出比"燕秀工具箱"中删除重复线更优秀的程

ajing_sky

如题：
　要求：１.考虑线宽，Ｚ座标等因素？
　　　　２.对arc,circle,line.lwpolyline都有效，
　　　　３.功能类似于ＥＴ的overkill。　　　
       (燕秀的好象对lwpolyline不起作用！）


overkill的思路好象是：
　　　　　１.遇到聚合线，首先分解成line,arc等基本图元，
　　　　　２.完全重叠的图元，首先删除。
　　　　　３.部分覆盖的图元，选择最大界限，对其entmod！其余的删除!

各位高手们请指点下吧！。。。　

zml84

你有能力的话，就先写写
否则不知你的水平，如何帮你？

ajing_sky

其实这个问题应该怎么说呢，写代码有人写的烦索，有人写的简洁明了。这除了与个人习惯和能力有关外，我认为思路也是很重要的。
依删除完全重复的图元来说：
　　把问题简单化点，我就是判读在同一层，相同颜色，相同线宽的line,arc,它们完全重不重合符合什么样的条件?分别选择两个相同的line (现实应用中是选集）,分析如下：
   ;(setq entt1 (entget (car (entsel))))
      ;(setq etype1 (cdr (assoc 0 entt1)));图元类型
      ;(setq entt2 (entget (car (entsel))))
      ;(setq etype2 (cdr (assoc 0 entt2)))
   
      :etype1="LINE",etype2="LINE",如何判断这两条线重不重合呢？
　　　　　(setq p1 (cdr (assoc 10 entt1)))  
                    (setq p2 (cdr (assoc 11 entt1)))
                   (setq p3 (cdr (assoc 10 entt2)))
                   (setq p4 (cdr (assoc 11 entt2)))
  接下去怎么判断，(and (or (= p1 p3) (= p1 p4)) (or (= p2 p3) (= p2 p4)))自认为太繁索和复杂了。（还不一定有效）小弟愚钝，请指点！