按层设置

Grrr · 发表于 2022-7-5 16:32:38

谢谢李的另一段精彩代码

loudy000 · 发表于 2022-7-5 16:36:06

顺便说一句，李：

(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组码，
但这是否意味着一个人可以做到这一点：

copy

(entmod (append (entget (ssname s (setq i (1- i)))) '((006 . "ByLayer") (062 . 256) (370 . -1))))

即使如此（关于是否应用了索引/真/书的颜色）：

copy

例如，可能出现额外的地面军事系统，如：

copy

问题在哪里？笑脸，该死的

Grrr · 发表于 2022-7-5 16:38:42

谢谢大家！

Lee Mac · 发表于 2022-7-5 16:43:37

谢谢你回答李，
我做了一些测试：
[code][颜色=#8b4513]；Asigning Color:[/Color]；不适用于多段多段线、样条曲线，其中指定了truecolor（或配色系统）；；但当它们具有索引颜色[color]时有效；当GC 420被移除时，适用于一切事物[color]（defun C：测试（/e enx（（非（setq e（汽车（entsel color=#2F4; F4f]“\n选择实体：”）[颜色=绿色][color=栗色][color=海军蓝]e[color=紫红色][color=紫红色]（setq enx[color=海军蓝]（entget e[color=海军蓝]）[/color b][color=紫红色]（setq enx[color=海军蓝]（如果（功能（lambda（x）（=420（car x）[enx）[color=35；8b4513]；

Grrr · 发表于 2022-7-5 16:47:08

你好，
我尝试setbylayer更改动态块的颜色，但由于未知原因，即使我从设计中仅选择3个块来更改颜色，它也会更改未选择的其他块的颜色。
我也试过这些口吃，但没有成功。
非常感谢

MirelaB · 发表于 2022-7-5 16:50:13

[编程交流] 按层设置

发表回复

精选推荐