重复块显示

feifei1314

我不想删除，重叠的块显示红色可以实现吗？

炫翔

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

                               
登录/注册后可看大图

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

是的

让选择集为选中状态：(sssetfirst nil (ssget))

feifei1314

可以给我个有这样重合的块，让它显示红色的吗？

炫翔

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

                               
登录/注册后可看大图

可以给我个有这样重合的块，让它显示红色的吗？

要自己动动脑，你把删除的地方换成选中状态不就行了？

feifei1314

我对这个写程序不懂啊，那炫翔你说这个程序该怎么改？？？

feifei1314

炫翔，可以帮我改下吗？？非常感谢

笑2笑

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

                               
登录/注册后可看大图

炫翔，可以帮我改下吗？？非常感谢

我也是刚刚学，这是我在网上找到了一个程序，希望对你有用：

2. ;选中重叠尺寸
   
3. (defun c:tt(/ e ss ss1 ss2 n p1 p2 lstss1 lstss2 sss)
   
4.   (defun getdxf(s num)(cdr(assoc num s)))
   
5.   (setq ss(ssget '((0  . "dimension"))) n 0 sss (ssadd))
   
6.   (repeat (sslength ss)
   
7.     (setq e(ssname ss n)
   
8.           s(entget e)
   
9.           p1(getdxf s 10)
   
10.           clz1(abs(-(car(getdxf s 13))(car(getdxf s 14))))
    
11.           clz2(abs(-(cadr(getdxf s 13))(cadr(getdxf s 14))))
    
12.           p2(list (- (car p1)clz1)(- (cadr p1)clz2)(caddr p1))
    
13.           )
    
14.     (setq ss1(ssget "c" p1 p1 '((0  . "dimension")))
    
15.           lstss1(ss2lst ss1)
    
16.           ss2(ssget "c" p2  p2 '((0  . "dimension")))
    
17.           lstss2(ss2lst ss2)
    
18.           )
    
19.     (if (and ss1 ss2)
    
20.       (progn
    
21.     (ssdel e ss1)
    
22.     (ssdel e ss2)
    
23.     (if (and (equal lstss1 lstss2)
    
24.              (>(length lstss1)0)
    
25.              (>(length lstss2)0)
    
26.              )
    
27.       (repeat(setq m(sslength ss1))
    
28.              (ssadd (ssname ss1(setq m(1- m))) sss)
    
29.       )
    
30.     )
    
31.    )
    
32.   )
    
33. (setq n(1+ n))
    
34. )
    
35. (sssetfirst sss sss)
    
36. (princ)
    
37. )
    
38. (defun ss2lst (ss / nn ee lst)
    
39. (if ss
    
40. (repeat (setq nn (sslength ss))
    
41.   (setq  lst (cons (ssname ss (setq nn (1- nn))) lst))  
    
42. )
    
43. )
    
44. )

;选中重叠尺寸<br /> (defun c:tt(/ e ss ss1 ss2 n p1 p2 lstss1 lstss2 sss)<br />   (defun getdxf(s num)(cdr(assoc num s)))<br />   (setq ss(ssget '((0  . "dimension"))) n 0 sss (ssadd))<br />   (repeat (sslength ss)<br />     (setq e(ssname ss n)<br />           s(entget e)<br />           p1(getdxf s 10)<br />           clz1(abs(-(car(getdxf s 13))(car(getdxf s 14))))<br />           clz2(abs(-(cadr(getdxf s 13))(cadr(getdxf s 14))))<br />           p2(list (- (car p1)clz1)(- (cadr p1)clz2)(caddr p1))<br />           )<br />     (setq ss1(ssget "c" p1 p1 '((0  . "dimension")))<br />           lstss1(ss2lst ss1)<br />           ss2(ssget "c" p2  p2 '((0  . "dimension")))<br />           lstss2(ss2lst ss2)<br />           )<br />     (if (and ss1 ss2)<br />       (progn<br />     (ssdel e ss1)<br />     (ssdel e ss2)<br />     (if (and (equal lstss1 lstss2)<br />              (>(length lstss1)0)<br />              (>(length lstss2)0)<br />              )<br />       (repeat(setq m(sslength ss1))<br />              (ssadd (ssname ss1(setq m(1- m))) sss)<br />       )<br />     )<br />    )<br />   )<br /> (setq n(1+ n))<br /> )<br /> (sssetfirst sss sss)<br /> (princ)<br /> )<br /> (defun ss2lst (ss / nn ee lst)<br /> (if ss<br /> (repeat (setq nn (sslength ss))<br />   (setq  lst (cons (ssname ss (setq nn (1- nn))) lst))  <br /> )<br /> )<br /> )

炫翔

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:框选选中重叠的图块（源码）.rar 
下载次数:10  文件大小:408 Bytes 
下载权限: 不限 以上  [免费赚D豆]

feifei1314

谢谢你，炫翔

yoyoho

感谢 炫翔 版主 及 笑2笑分享程序!