如何找到边界相关联的填充？

tm20038175

边界和填充相关联了，要求删除边界（封闭多线段）时候也删除填充，如何才能做到呢？

tm20038175

自己顶一个。。。。。

tm20038175

好像是通过330组码，但是有两个（330.  ）只有一个是我要的结果，但不知道如何区分。。。。

tm20038175

求高手指点下。。。……

tm20038175

………………

Gu_xl

1. (defun c:tt(/ EN ENL DELLST)
   
2.   (while (setq en (car (entsel "\n选择要删除的边界物体:")))
   
3.     (setq enl (entget en) dellst (list en))
   
4.     (if (setq enl (cdr (member '(102 . "{ACAD_REACTORS") enl)))
   
5.       (progn
   
6.         (while (= 330 (caar enl))
   
7.           (setq dellst (cons (cdar enl) dellst)
   
8.                 enl (cdr enl)
   
9.                 )
   
10.           )
    
11.         (mapcar 'entdel dellst)
    
12.         )
    
13.       )
    
14.     )
    
15.   (princ)
    
16.   )
    

(defun c:tt(/ EN ENL DELLST)<br />   (while (setq en (car (entsel "\n选择要删除的边界物体:")))<br />     (setq enl (entget en) dellst (list en))<br />     (if (setq enl (cdr (member '(102 . "{ACAD_REACTORS") enl)))<br />       (progn<br />         (while (= 330 (caar enl))<br />           (setq dellst (cons (cdar enl) dellst)<br />                 enl (cdr enl)<br />                 )<br />           )<br />         (mapcar 'entdel dellst)<br />         )<br />       )<br />     )<br />   (princ)<br />   )<br />

tm20038175

Gu_xl 发表于 2012-3-23 10:38

好程序，太感谢了，等了好久，哈哈。。。。

raimo

经常会遇到编辑填充的情况，能不能在没有边界的情况下，让填充重建边界，并能随边界变化