[求助]：希望理正建筑的图元过滤能再强大点？

andyhua5240

我在实际工作中，经常有很多的修改云线，当然图中也有很多的PLINE线，而云线又不是在一个图层上，图层非常的乱，颜色也是非常的乱，当然这是别人传过来的图。
如果这时我要删除云线的话，就要用到图元过滤，但是这时过滤经常会把一些PLINE线选上。非常的不方便。我知道云线也是由PLINE组成的，能不能加上一些其它的判断条件来区分云线和PLINE线呀？就算不选择不区分ARC和LINE也不行？
不知道理正的图元过滤支持无名块和匿名组不（当然也是图层和颜色非常乱的情况下）？如果不支持的话，能否加上？
谢谢！

eachy

这些东西偶尔用之没有普遍意义，删除全部为弧线组成在pline

2. 
   
3. ((defun selarcpl        (ss / s1 ssl n e el bl)
   
4.   (setq        s1  (ssadd)
   
5.         ssl (sslength ss)
   
6.         n   0
   
7.   )
   
8.   (repeat ssl
   
9.     (setq e (ssname ss n)
   
10.           n (1+ n)
    
11.     )
    
12.     (setq el (entget e))
    
13.     (mapcar (function
    
14.               (lambda (x)
    
15.                 (if (= (car x) 42)
    
16.                   (setq bl (cons (cdr x) bl))
    
17.                 )
    
18.               )
    
19.             )
    
20.             el
    
21.     )
    
22.     (if        ;;(vl-every '(lambda (x) (/= x 0.)) bl)
    
23.         (and (not (zerop (car bl)))
    
24.              (apply '= (mapcar 'zerop bl))
    
25.         )
    
26.       (ssadd e s1)
    
27.     )
    
28.     (setq bl nil)
    
29.   )
    
30.   s1
    
31. )
    
32. (defun c:tt (/ ss s0)
    
33.   (if (and (setq ss (ssget '((0 . "LWPOLYLINE"))))
    
34.            (setq s0 (selarcpl ss))
    
35.            (> (sslength s0) 0)
    
36.       )
    
37.     (command ".erase" s0 "")
    
38.   )
    
39.   (princ)
    
40. )
    

<br /> ((defun selarcpl        (ss / s1 ssl n e el bl)<br />   (setq        s1  (ssadd)<br />         ssl (sslength ss)<br />         n   0<br />   )<br />   (repeat ssl<br />     (setq e (ssname ss n)<br />           n (1+ n)<br />     )<br />     (setq el (entget e))<br />     (mapcar (function<br />               (lambda (x)<br />                 (if (= (car x) 42)<br />                   (setq bl (cons (cdr x) bl))<br />                 )<br />               )<br />             )<br />             el<br />     )<br />     (if        ;;(vl-every '(lambda (x) (/= x 0.)) bl)<br />         (and (not (zerop (car bl)))<br />              (apply '= (mapcar 'zerop bl))<br />         )<br />       (ssadd e s1)<br />     )<br />     (setq bl nil)<br />   )<br />   s1<br /> )<br /> (defun c:tt (/ ss s0)<br />   (if (and (setq ss (ssget '((0 . "LWPOLYLINE"))))<br />            (setq s0 (selarcpl ss))<br />            (> (sslength s0) 0)<br />       )<br />     (command ".erase" s0 "")<br />   )<br />   (princ)<br /> )<br />

andyhua5240

斑竹呀，我加载后，输入TT，无效呀？

Qun

请注意【图元过滤】里面有“{Q}改参数”选项，调一下试试！

andyhua5240

当然注意到了，调了的，也不行。只能区分颜色和图层，而我在前面已经说过，图层和颜色是非常的乱糟糟的？