求一个判断图元重叠的代码

peraperson

我想通过框选一些图元 如果有重叠在一起的图元就将这些图元显示成红色 请问如何做到？

Gu_xl

计算每个图元的包围盒，然后逐个比较包围盒的坐标来判断！

自贡黄明儒

比较(entget e)可以发现，重叠的两个对象只有很少的不同。去除这个不同，判断：如果其余相同，则说明了是重叠的。

1. ;;8 删除重叠多段线、线、弧、块、文字
   
2.   (DEFUN HH:delBLOCKs (ss / E EN K LIST1 S9 XY)
   
3.     (repeat (setq k (sslength ss))
   
4.      ;; (spin "重叠对象")
   
5.       (if (and (setq e (ssname ss (setq k (1- k))))
   
6.          (setq en (entget e))
   
7.     )
   
8.   (progn
   
9.     (setq xy (cdr en))
   
10.     (IF (SETQ S9 (ASSOC 5 XY))
    
11.       (SETQ XY (subst '(5 . "ASD") S9 XY))
    
12.     )
    
13.     (if (member xy list1)
    
14.       (entdel e)
    
15.       (setq list1 (cons xy list1))
    
16.     )
    
17.   )
    
18.       )
    
19.     )
    
20.   )

;;8 删除重叠多段线、线、弧、块、文字<br />   (DEFUN HH:delBLOCKs (ss / E EN K LIST1 S9 XY)<br />     (repeat (setq k (sslength ss))<br />      ;; (spin "重叠对象")<br />       (if (and (setq e (ssname ss (setq k (1- k))))<br />          (setq en (entget e))<br />     )<br />   (progn<br />     (setq xy (cdr en))<br />     (IF (SETQ S9 (ASSOC 5 XY))<br />       (SETQ XY (subst '(5 . "ASD") S9 XY))<br />     )<br />     (if (member xy list1)<br />       (entdel e)<br />       (setq list1 (cons xy list1))<br />     )<br />   )<br />       )<br />     )<br />   )

peraperson

Gu_xl 发表于 2014-2-26 13:57
计算每个图元的包围盒，然后逐个比较包围盒的坐标来判断！

谢谢点拨 才疏学浅 包围盒刚准备学

peraperson

自贡黄明儒 发表于 2014-2-26 14:07
比较(entget e)可以发现，重叠的两个对象只有很少的不同。去除这个不同，判断：如果其余相同，则说明了是重 ...

请问这个ASD是什么意思？ cdr en得到的是什么？望解答 谢谢

自贡黄明儒

cdr 就是去掉表中第一个元素，如果你不知道的话，用就可以了。

llsheng_73

(setq xy (cdr en))
    (IF (SETQ S9 (ASSOC 5 XY))
      (SETQ XY (subst '(5 . "ASD") S9 XY))
    )
没看懂上边这几句为什么不是下边这样
(setq xy(vl-remove(assoc 5 (cdr en))))

llsheng_73

Gu_xl 发表于 2014-2-26 13:57
计算每个图元的包围盒，然后逐个比较包围盒的坐标来判断！

包容盒相同能够断定图元位置相同么？感觉不太能确定，改天试试看。。

自贡黄明儒

llsheng_73 发表于 2014-3-1 22:23
(setq xy (cdr en))
    (IF (SETQ S9 (ASSOC 5 XY))
      (SETQ XY (subst '(5 . "ASD") S9 XY))

一回事，杀猪杀屁股，各有各的刀路

Gu_xl

重叠和完全重叠概念是有区别的，楼主是啥意思呢？