基于颜色生成层

Smirnoff · 发表于 2022-7-6 10:28:44

谢谢我尽量把事情简单化，就像我的想法一样。很高兴看到你回来-大卫

Lee Mac · 发表于 2022-7-6 10:31:30

嗨，大卫，这就像一个魔咒，我能为“按层”实体做什么？有没有另一个lisp可以将“按层”与实际颜色交换？。也可以添加线型吗？基于颜色和线型生成图层。层可以命名为“C8隐藏，C8连续，C11虚线，C11隐藏…”

谢谢大家

David Bethel · 发表于 2022-7-6 10:36:37

对于图层颜色和线型-（这可能会产生一个图层“C256-BYLAYER”）

(entmod (subst (cons 8 (strcat "C" (itoa clr)))(assoc 8 ed) ed))

对于bylayer值，我将转到图层表，找出当前指定给该图层的颜色和/或线型。

默认值为“C7-连续”

也许还有很多更优雅的方式可以做到这一点，但谁说我很优雅-大卫

arqi · 发表于 2022-7-6 10:38:50

具有图层颜色和线型

copy


[b][color=BLACK]([/color][/b]defun c:encl [b][color=FUCHSIA]([/color][/b]/ ss en ed nl[b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]setq ss [b][color=MAROON]([/color][/b]ssget[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
      [b][color=NAVY]([/color][/b]while [b][color=MAROON]([/color][/b]setq en [b][color=GREEN]([/color][/b]ssname ss 0[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]setq ed [b][color=GREEN]([/color][/b]entget en[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]setq nl [b][color=GREEN]([/color][/b]if [b][color=BLUE]([/color][/b]assoc 62 ed[b][color=BLUE])[/color][/b]
                          [b][color=BLUE]([/color][/b]strcat [color=#2f4f4f]"C"[/color] [b][color=RED]([/color][/b]itoa [b][color=PURPLE]([/color][/b]cdr [b][color=TEAL]([/color][/b]assoc 62 ed[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
                          [color=#2f4f4f]"C256"[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]setq nl [b][color=GREEN]([/color][/b]if [b][color=BLUE]([/color][/b]assoc 6 ed[b][color=BLUE])[/color][/b]
                          [b][color=BLUE]([/color][/b]strcat nl [color=#2f4f4f]"-"[/color] [b][color=RED]([/color][/b]cdr [b][color=PURPLE]([/color][/b]assoc 6 ed[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]
                          [b][color=BLUE]([/color][/b]strcat nl [color=#2f4f4f]"-BYLAYER"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]entmod [b][color=GREEN]([/color][/b]subst [b][color=BLUE]([/color][/b]cons 8 nl[b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]assoc 8 ed[b][color=BLUE])[/color][/b] ed[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
             [b][color=MAROON]([/color][/b]ssdel en ss[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
 [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]