批量选择最外矩形框

qazxswk · 发表于 2023-9-25 15:51:37

飞雪神光发表于 2023-9-25 15:36
那这种情况就得一开始就说清需求

我自己再研究一下，谢谢给的思路。

飞雪神光 · 发表于 2023-9-25 16:14:28

qazxswk 发表于 2023-9-25 15:51
我自己再研究一下，谢谢给的思路。

cp换成wp能解决外框重叠或相交的情况

(setq ss2 (ssget "WP" ptlst))
(if ss2
(foreach ty (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex ss2)))
(if(ssmemb ty ss)(ssdel ty ss))
)
)

qazxswk · 发表于 2023-9-25 17:17:49

飞雪神光发表于 2023-9-25 16:14
cp换成wp能解决外框重叠或相交的情况

好的。谢谢。
(defun c:11(/ ptlst ss ss2 ty)
(setq ss(ssget '((0 . "LWPOLYLINE")(90 . 4))))
(foreach ty (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex ss)))
  (if (entget ty)(progn
   (setq ptlst nil)
   (foreach x (entget ty) (if (= (car x) 10) (setq ptlst (cons (cdr x) ptlst))))
   (setq ss2 (ssget "WP" ptlst))
(if ss2
                                    (foreach ty (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) (mapcar 'cadr (ssnamex ss2)))
                                             (if(ssmemb ty ss)(ssdel ty ss))
                                    )
                              )

                     )
            )
      )
(sssetfirst nil ss)
(princ))

chenbh2 · 发表于 2024-6-1 00:05:47

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

请教只选择外矩形如何修改！

chenbh2 · 发表于 2024-6-1 01:04:26

qazxswk 发表于 2023-9-25 17:17
好的。谢谢。
(defun c:11(/ ptlst ss ss2 ty)
(setq ss(ssget '((0 . "LWPOLYLINE")(90 . 4))))

谢谢！有大用处！

chenbh2 · 发表于 2024-6-3 23:23:20

本帖最后由 chenbh2 于 2024-6-3 23:24 编辑

飞雪神光发表于 2023-9-25 16:14
cp换成wp能解决外框重叠或相交的情况

这个CAD里面的矩形会全部选中，能不能帮查下什么原因，帮修改下程序！谢谢！！

飞雪神光 · 发表于 2024-6-4 00:33:51

chenbh2 发表于 2024-6-3 23:23
这个CAD里面的矩形会全部选中，能不能帮查下什么原因，帮修改下程序！谢谢！！

我测试是报错的坐标系不是世界的 ucs w 切换回去

阿猪蛋 · 发表于 2024-6-4 08:28:29

无极生太极，太极生两仪，两仪生四象，四象生八卦，卦卦不停，生生不息，继续！！

chenbh2 · 发表于 2024-6-7 09:06:31

飞雪神光发表于 2024-6-4 00:33
我测试是报错的坐标系不是世界的 ucs w 切换回去

谢谢！等我有空的时候琢磨下！

账号		自动登录	找回密码
密码			注册

[讨论] 批量选择最外矩形框

本帖子中包含更多资源