重复块显示

feifei1314

请教下哪位大师可以帮我写个程序，重叠的块用红色显示出来。可以帮下忙吗？

炫翔

请上图片或者图纸说明，是怎么样的重叠？

marting

重复块显示？ 为什么要显示尼，你不想删除掉？ 是什么地方用这个啊，啥专业的？

feifei1314

C:\Users\THINK\Desktop

feifei1314

C:\Users\THINK\Desktop

feifei1314

就是这个块重合了，用M下是2个，块多了，我想显示出来哪里重合了，可以帮我写个小程序吗？帮忙下可以吗

feifei1314

像这样重叠的块和重叠的文字，都用红色显示出来，可以实现吗？

marting

feifei1314 发表于 2013-4-8 14:11

                               
登录/注册后可看大图

就是这个块重合了，用M下是2个，块多了，我想显示出来哪里重合了，可以帮我写个小程序吗？帮忙下可以吗

是完全重合？还是部分重合的都算？ 你意思是就想查看下图中那个地方有完全重合的东西？

feifei1314

完全重合的用红色的显示出来，可以实现吗

feifei1314

可以帮我写个小程序吗？给我源码好了

zhuizhu

:o为什么要源码呢？源码的作用就是用来参考学习的，
如果只是用的话，插件就好了

feifei1314

给我插件也可以，源码的话我也会转成VLX文件

feifei1314

谁可以给我个插件或者源码？？？

炫翔

feifei1314 发表于 2013-4-8 14:26

                               
登录/注册后可看大图

谁可以给我个插件或者源码？？？

给你个源码作为参考

2. ;删除重叠块
   
3. (defun c:XX ( / i pt s1 ss ss1)
   
4.   (setq ss (ssget "X" '((0 . "INSERT")))
   
5.         i 0
   
6.   )
   
7.   (while (and
   
8.            ss
   
9.            (setq s1 (ssname ss 0))
   
10.            (> (sslength ss) 1)
    
11.          )
    
12.     (setq pt (cdr (assoc 10 (entget s1)))
    
13.           ss1 (ssget "X" (list (cons 0 "INSERT") (cons 10 pt)))
    
14.     )
    
15.     (if (and
    
16.           ss1
    
17.           (> (sslength ss1) 1)
    
18.         )
    
19.       (progn
    
20.         (setq i (+ i (sslength ss1)))
    
21.         (command "erase" ss1 "")
    
22.         (entdel s1)
    
23.         (setq i (- i 1))
    
24.         (command "select" ss "r" s1 "")
    
25.         (setq ss (ssget "P"))
    
26.       )
    
27.       (progn
    
28.         (command "select" ss "r" s1 "")
    
29.         (setq ss (ssget "P"))
    
30.       )
    
31.     )
    
32.   )
    
33.   (princ "\n共删除 ")
    
34.   (princ i)
    
35.   (princ " 个重迭块。 ")
    
36. )
    

;删除重叠块<br /> (defun c:XX ( / i pt s1 ss ss1)<br />   (setq ss (ssget "X" '((0 . "INSERT")))<br />         i 0<br />   )<br />   (while (and<br />            ss<br />            (setq s1 (ssname ss 0))<br />            (> (sslength ss) 1)<br />          )<br />     (setq pt (cdr (assoc 10 (entget s1)))<br />           ss1 (ssget "X" (list (cons 0 "INSERT") (cons 10 pt)))<br />     )<br />     (if (and<br />           ss1<br />           (> (sslength ss1) 1)<br />         )<br />       (progn<br />         (setq i (+ i (sslength ss1)))<br />         (command "erase" ss1 "")<br />         (entdel s1)<br />         (setq i (- i 1))<br />         (command "select" ss "r" s1 "")<br />         (setq ss (ssget "P"))<br />       )<br />       (progn<br />         (command "select" ss "r" s1 "")<br />         (setq ss (ssget "P"))<br />       )<br />     )<br />   )<br />   (princ "\n共删除 ")<br />   (princ i)<br />   (princ " 个重迭块。 ")<br /> )<br />

feifei1314

你这个代码是删除重复块的吗