快速选择所有相同色值的线

kozmosovia

selectsimilar
或者点中实体，右键“选择类似对象”
一句代码都不用

yegucheng0129

ssyfeng 发表于 2024-2-23 09:19
应该跟这个差不多

这个好用,感谢分享

自贡黄明儒

有了小菜的《选择易》，就可以不用写这个程序了。

阿猪蛋

感谢分享，牛逼

llsheng_73

图元颜色它可能直接有值，也可能随层，甚至随块，而随块是随块参照，因为块本身没有颜色，块参照才有颜色，至于随层有一点不好理解的是：图层本身的颜色也可以是随层，非块内图元颜色随块好象和黑色背景差不多，具体没认真研究，所以下边纯属瞎写的

1. (defun c:tt(/ e c l lay s)
   
2.   (and(setq e(car(entsel"选择图元")))
   
3.       (or(setq e(entget e)lay""c(cdr(assoc 62 e)))
   
4.         (setq c(cdr(assoc 62(tblsearch"layer"(cdr(assoc 8 e)))))))
   
5.       (if(= c 0)(setq c 7)t)
   
6.       (while(setq l(tblnext"layer"(not l)))
   
7.         (setq lay(strcat(if(member(cdr(assoc 62 l))(List 0 c))(cdr(assoc 2 l))"")","lay)))
   
8.       (sssetfirst'nil(ssget"X"(list'(-4 . "<or")(cons 62 c)(cons 62 0)
   
9.                                    '(-4 . "<and")(cons 62 256)(cons 8 lay)'(-4 . "and>")'(-4 . "or>")))))
   
10.   )

(defun c:tt(/ e c l lay s)<br />   (and(setq e(car(entsel"选择图元")))<br />       (or(setq e(entget e)lay""c(cdr(assoc 62 e)))<br />         (setq c(cdr(assoc 62(tblsearch"layer"(cdr(assoc 8 e)))))))<br />       (if(= c 0)(setq c 7)t)<br />       (while(setq l(tblnext"layer"(not l)))<br />         (setq lay(strcat(if(member(cdr(assoc 62 l))(List 0 c))(cdr(assoc 2 l))"")","lay)))<br />       (sssetfirst'nil(ssget"X"(list'(-4 . "<or")(cons 62 c)(cons 62 0)<br />                                    '(-4 . "<and")(cons 62 256)(cons 8 lay)'(-4 . "and>")'(-4 . "or>")))))<br />   )

llsheng_73

夏生生 发表于 2024-2-23 10:20

puzb2023

还不如用选择易