批量选择最外矩形框

qazxswk

看到这么一个帖子，http://bbs.mjtd.com/thread-113219-2-1.html

删除方框内的对象，但这个方框是在独立的一个图层里，比较容易选择。
我今天突然有个想法，如果这个外方框，跟方框内的对象，在同一个图层，而且框里也有矩形框，那该如何选择中这些最外围的方框呢？如下面图片，如何框选选中箭头所指的外框？

飞雪神光

qazxswk 发表于 2023-9-22 22:37
你们把我的要求看反了

一个原理 把删图行改成删选择集

2. (defun c:tt(/ ptlst ss ss2)
   
3.         (setq ss(ssget '((0 . "LWPOLYLINE")(90 . 4))))
   
4.         (foreach ty (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex ss)))
   
5.                 (if (entget ty)
   
6.                         (progn
   
7.                                 (setq ptlst nil)
   
8.                                 (foreach x (entget ty) (if (= (car x) 10) (setq ptlst (cons (cdr x) ptlst))))
   
9.                                 (setq ss2 (ssget "CP" ptlst))
   
10.                                 (if(ssmemb ty ss2)(ssdel ty ss2))
    
11.                                 (foreach ty (ss-enlst ss2)
    
12.                                         (if(ssmemb ty ss)(ssdel ty ss))
    
13.                                 )
    
14.                         )
    
15.                 )
    
16.         )
    
17.         (sssetfirst nil ss)
    
18.         (princ)
    
19. )

(defun c:tt(/ ptlst ss ss2)<br />         (setq ss(ssget '((0 . "LWPOLYLINE")(90 . 4))))<br />         (foreach ty (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex ss)))<br />                 (if (entget ty)<br />                         (progn<br />                                 (setq ptlst nil)<br />                                 (foreach x (entget ty) (if (= (car x) 10) (setq ptlst (cons (cdr x) ptlst))))<br />                                 (setq ss2 (ssget "CP" ptlst))<br />                                 (if(ssmemb ty ss2)(ssdel ty ss2))<br />                                 (foreach ty (ss-enlst ss2)<br />                                         (if(ssmemb ty ss)(ssdel ty ss))<br />                                 )<br />                         )<br />                 )<br />         )<br />         (sssetfirst nil ss)<br />         (princ)<br /> )

ssyfeng

先分堆，可以在论坛上搜索分堆，有现成函数。再判断删除

bonny

2. (defun c:tt (/ pp s x xx)
   
3. ;;本例是特例,矩形不相交
   
4.   (if (and (setq s (ssget '((0 . "*PO*"))))
   
5.         (setq s (vl-remove-if 'listp (mapcar 'cadr (ssnamex s))))
   
6.         (setq s (mapcar '(lambda(x)(list x (vla-get-Area (vlax-ename->vla-object x))))s))
   
7.         (setq s (vl-sort s '(lambda(a b)(>= (cadr a) (cadr b)))))
   
8.         (setq s (mapcar 'car s))
   
9.       )
   
10.     (foreach x s
    
11.       (if (and (setq pp (mapcar 'cdr (vl-remove-if-not '(lambda(a)(= 10 (car a)))(entget x))))
    
12.             (< 2 (length pp))
    
13.             (setq xx (ssget "CP" pp))
    
14.             (setq xx (ssdel x xx))
    
15.           )
    
16.         (command "ERASE" xx "")
    
17.       )
    
18.     )
    
19.   )
    
20. )

(defun c:tt (/ pp s x xx)<br /> ;;本例是特例,矩形不相交<br />   (if (and (setq s (ssget '((0 . "*PO*"))))<br />         (setq s (vl-remove-if 'listp (mapcar 'cadr (ssnamex s))))<br />         (setq s (mapcar '(lambda(x)(list x (vla-get-Area (vlax-ename->vla-object x))))s))<br />         (setq s (vl-sort s '(lambda(a b)(>= (cadr a) (cadr b)))))<br />         (setq s (mapcar 'car s))<br />       )<br />     (foreach x s <br />       (if (and (setq pp (mapcar 'cdr (vl-remove-if-not '(lambda(a)(= 10 (car a)))(entget x))))<br />             (< 2 (length pp))<br />             (setq xx (ssget "CP" pp))<br />             (setq xx (ssdel x xx))<br />           )<br />         (command "ERASE" xx "")<br />       )<br />     )<br />   )<br /> )

飞雪神光

简单的方法就是挨个循环 每个矩形创建选择集后排除自身 删除

bonny

(defun c:tt (/ pp s x xx)
;;本例是特例,矩形不相交
  (if (and (setq s (ssget '((0 . "*PO*"))))
        (setq s (vl-remove-if 'listp (mapcar 'cadr (ssnamex s))))
        (setq s (mapcar '(lambda(x)(list x (vla-get-Area (vlax-ename->vla-object x))))s))
        (setq s (vl-sort s '(lambda(a b)(>= (cadr a) (cadr b)))))
        (setq s (mapcar 'car s))
      )
    (foreach x s
      (if (and (setq pp (mapcar 'cdr (vl-remove-if-not '(lambda(a)(= 10 (car a)))(entget x))))
            (< 2 (length pp))
            (setq xx (ssget "CP" pp))
            (setq xx (ssdel x xx))
          )
        (command "ERASE" xx "")
      )
    )
  )
)
(defun c:tt (/ e pp s x x1 xx)
;;本例是特例,矩形不相交
        (if (and (setq s (ssget '((0 . "*PO*"))))
                          (setq s (vl-remove-if 'listp (mapcar 'cadr (ssnamex s))))
                                (setq s (mapcar '(lambda(x)(list x (vla-get-Area (vlax-ename->vla-object x))))s))
                                (setq s (vl-sort s '(lambda(a b)(>= (cadr a) (cadr b)))))
                                (setq s (mapcar 'car s))
                        )
                (while (setq e (car s))
                        (if (setq pp (mapcar 'cdr (vl-remove-if-not '(lambda(a)(= 10 (car a)))(entget e))))
                                (cond
                                        (if (and (< 2 (length pp))
                                                                (setq xx (ssget "CP" pp))
                                                                (setq x1 (ssdel e xx))
                                                        )
                                                (progn
                                                        (command "ERASE" x1 "")
                                                        (setq xx (vl-remove-if 'listp (mapcar 'cadr (ssnamex xx))))
                                                        (setq s (vl-remove-if '(lambda(x)(member x xx))s))
                                                )
                                                (setq s (vl-remove e s))
                                        )
                                )
                        )
                )
        )
)

bonny

飞雪神光 发表于 2023-9-22 12:21
简单的方法就是挨个循环 每个矩形创建选择集后排除自身 删除

老大，你的注册时间=2016-11-20  最后登录时间=1970-1-1穿越回去了

飞雪神光

我也发个

1. (defun c:tt(/ ptlst ss ss2)
   
2.         (setq ss(ssget '((0 . "LWPOLYLINE")(90 . 4))))
   
3.         (foreach ty (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex ss)))
   
4.                 (if (entget ty)
   
5.                         (progn
   
6.                                 (setq ptlst nil)
   
7.                                 (foreach x (entget ty) (if (= (car x) 10) (setq ptlst (cons (cdr x) ptlst))))
   
8.                                 (setq ss2 (ssget "CP" ptlst))
   
9.                                 (if(ssmemb ty ss2)(ssdel ty ss2))
   
10.                                 (vl-cmdf "erase" ss2 "")       
    
11.                         )
    
12.                 )
    
13.         )
    
14.         (princ)
    
15. )

(defun c:tt(/ ptlst ss ss2)<br />         (setq ss(ssget '((0 . "LWPOLYLINE")(90 . 4))))<br />         (foreach ty (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex ss)))<br />                 (if (entget ty)<br />                         (progn<br />                                 (setq ptlst nil)<br />                                 (foreach x (entget ty) (if (= (car x) 10) (setq ptlst (cons (cdr x) ptlst))))<br />                                 (setq ss2 (ssget "CP" ptlst))<br />                                 (if(ssmemb ty ss2)(ssdel ty ss2))<br />                                 (vl-cmdf "erase" ss2 "")        <br />                         )<br />                 )<br />         )<br />         (princ)<br /> )

bonny

飞雪神光 发表于 2023-9-22 12:37
我也发个

需要从大到小先排序下，否则....

飞雪神光

bonny 发表于 2023-9-22 12:35
老大，你的注册时间=2016-11-20  最后登录时间=1970-1-1穿越回去了

也许是浏览器的问题 不少人都这样吧