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

277283904 · 发表于 2024-2-23 09:09:25

本帖最后由 277283904 于 2024-2-23 09:46 编辑

选择一条线，然后按这条线的色值快速选择所有相同色值的线

llsheng_73 · 发表于 2024-12-30 09:53:36

本帖最后由 llsheng_73 于 2024-12-30 10:19 编辑

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

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

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

277283904 发表于 2024-2-23 10:03
明白了，还要全选，还有更简洁的吗

(defun c:tt (/ en)
(setq en (car (entsel "\n选择色非随层图元:")))
(if (setq en (assoc 62 (entget en)))
(sssetfirst nil (ssget "x" (list en)))
(alert "色随层")))

wangsr · 发表于 2024-2-23 10:22:16

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

您好
我的2023怎么输入TT后显示
未知命令“TT”。按 F1 查看帮助。

ssyfeng · 发表于 2024-2-23 09:19:23

应该跟这个差不多

277283904 · 发表于 2024-2-23 09:37:53

本帖最后由 277283904 于 2024-2-23 09:40 编辑

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

试了一下，选择不了所有红色呢

ssyfeng · 发表于 2024-2-23 09:41:55

肯定是有的

277283904 · 发表于 2024-2-23 09:47:03

本帖最后由 277283904 于 2024-2-23 09:52 编辑

ssyfeng 发表于 2024-2-23 09:41
肯定是有的

不是按tt键吗，没反应

277283904 · 发表于 2024-2-23 10:03:13

ssyfeng 发表于 2024-2-23 09:41
肯定是有的

明白了，还要全选，还有更简洁的吗

277283904 · 发表于 2024-2-23 11:56:33

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

这个简洁一点，谢谢！

海平面建筑设计 · 发表于 2024-12-21 07:50:29

好用，谢谢

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

[基础] 快速选择所有相同色值的线

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源