批量选择最外矩形框

bonny

测试                 

飞雪神光

bonny 发表于 2023-9-22 12:40
需要从大到小先排序下，否则....

否则什么 小的删大的么

bonny

飞雪神光 发表于 2023-9-22 12:43
否则什么 小的删大的么

对啊

qazxswk

bonny 发表于 2023-9-22 12:31
(defun c:tt (/ pp s x xx)
;;本例是特例,矩形不相交
  (if (and (setq s (ssget '((0 . "*PO*"))))

如果我想选中这些最外矩形框并删除，怎么写？

qazxswk

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

你们把我的要求看反了

woxin168

高手，受教了。

飞雪神光

bonny 发表于 2023-9-22 12:46
对啊

矩形不相交的话 用"cp"模式也不会小的选中大的

qazxswk

飞雪神光 发表于 2023-9-23 14:35
一个原理 把删图行改成删选择集

语法错误。

飞雪神光

qazxswk 发表于 2023-9-23 17:00
语法错误。

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.                                 (foreach ty (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex ss2)))
    
11.                                         (if(ssmemb ty ss)(ssdel ty ss))
    
12.                                 )
    
13.                         )
    
14.                 )
    
15.         )
    
16.         (sssetfirst nil ss)
    
17.         (princ)
    
18. )

(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 (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex ss2)))<br />                                         (if(ssmemb ty ss)(ssdel ty ss))<br />                                 )<br />                         )<br />                 )<br />         )<br />         (sssetfirst nil ss)<br />         (princ)<br /> )

bai2000

楼上的很完美，给下部批量“”框内删“”除提供了条件，希望能继续下去