飞雪神光 发表于 2023-9-25 15:36
那这种情况就得一开始就说清需求
我自己再研究一下，谢谢给的思路。
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))
)
)
飞雪神光 发表于 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))
飞雪神光 发表于 2023-9-22 12:37
我也发个
请教只选择外矩形如何修改！
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:24 编辑
飞雪神光 发表于 2023-9-25 16:14
cp换成wp能解决 外框重叠或相交的情况
这个CAD里面的矩形会全部选中，能不能帮查下什么原因，帮修改下程序！谢谢！！
chenbh2 发表于 2024-6-3 23:23
这个CAD里面的矩形会全部选中，能不能帮查下什么原因，帮修改下程序！谢谢！！
我测试是报错的坐标系不是世界的 ucs w 切换回去
无极生太极，太极生两仪，两仪生四象，四象生八卦，卦卦不停，生生不息，继续！！
飞雪神光 发表于 2024-6-4 00:33
我测试是报错的坐标系不是世界的 ucs w 切换回去
谢谢！等我有空的时候琢磨下！