谢谢李的另一段精彩代码 顺便说一句，李：
(defun c:bl ( / i l s )
(setq l
'(
(006 . "ByLayer")
(062 . 256)
(370 . -1)
)
)
(if (setq s (ssget "_:L" (append '((-4 . "<NOT") (-4 . "<AND")) l '((-4 . "AND>") (-4 . "NOT>")))))
(repeat (setq i (sslength s)) (entmod (append (entget (ssname s (setq i (1- i)))) l)))
)
(princ)
)
通过查看，我了解到没有必要删除原始的6,62370组码，
但这是否意味着一个人可以做到这一点：
(entmod (append (entget (ssname s (setq i (1- i)))) '((006 . "ByLayer") (062 . 256) (370 . -1))))
即使如此（关于是否应用了索引/真/书的颜色）：
7
例如，可能出现额外的地面军事系统，如：
8
问题在哪里？笑脸，该死的
谢谢大家！
谢谢你回答李，
我做了一些测试：
[颜色=#8b4513]；Asigning Color:；不适用于多段多段线、样条曲线，其中指定了truecolor（或配色系统）；；但当它们具有索引颜色时有效；当GC 420被移除时，适用于一切事物（defun C：测试（/e enx（（非（setq e（汽车（entsel color=#2F4; F4f]“\n选择实体：”）[颜色=绿色]e（setq enx（entget e）（setq enx（如果（功能（lambda（x）（=420（car x））； 你好，
我尝试setbylayer更改动态块的颜色，但由于未知原因，即使我从设计中仅选择3个块来更改颜色，它也会更改未选择的其他块的颜色。
我也试过这些口吃，但没有成功。
非常感谢
页:
1
[2]