按颜色更改图层

zorro007 · 发表于 2022-7-5 23:58:26

大家好！
我需要一个lisp来改变层的颜色。我的意思是我有一个层名为：实心，隐藏的文件。当我选择对象时，它会发现并将颜色为“白色”的对象更改为“实心”层，颜色为“10”的对象更改为“隐藏”层，并将颜色更改为“ByLayer”。请帮帮我

satishrajdev · 发表于 2022-7-6 00:02:48

你想选择什么类型的对象？
i、 e.圆、线、文字、多段线

MSasu · 发表于 2022-7-6 00:07:59

通过使用QSELECT命令过滤项，然后在属性中调整其特征，可以很容易地实现这一点。

pBe · 发表于 2022-7-6 00:10:07

如果你能给出更好的描述，那么这是一个非常简单的代码

欢迎来到CAD导师zorro007

satishrajdev · 发表于 2022-7-6 00:14:19

试试这个：-

copy

(Defun C:1 ()
 (setq A (entsel))
 (command "_chprop" A "" "_LA" "Solid" "_C" "7" "")
 (princ)
)

理解以下代码，并根据您的任务进行修改。。。

copy

(command "_chprop" A "" "_LA" B "_C" C "")

A-选择对象
B-层名称
C-颜色代码

pBe · 发表于 2022-7-6 00:16:55

我们是否要假设“实心”和“隐藏”层已经存在？如果没有，这些图层的颜色是什么？

zorro007 · 发表于 2022-7-6 00:20:32

谢谢satishrajdev！
请为我提供if条件：
如果颜色为“白色”==>更改为图层“实心”
elseif颜色为“7”==>更改为图层“隐藏”
非常感谢你

是的，它已经存在了

pBe · 发表于 2022-7-6 00:25:10

copy

(Defun c:demo ( / ss i e cl lay)
(if     (setq ss
(ssget "_X" '((-4 . "<OR") (62 . 7) (62 . 10) (-4 . "OR>")))
      )
 (repeat (setq i (sslength ss))
   (setq e   (entget (ssname ss (setq i (1- i))))
  cl  (Cdr (assoc 62 e))
  lay (cdr (assoc cl '((7 . "SOLID") (10 . "HIDDEN"))))
   )
   (mapcar '(lambda (x)
       (setq e (entmod (subst x (assoc (car x) e) e)))
     )
    (list (cons 8 lay) '(62 . 256))
   )
 )
)
 (princ)
)

HTH公司

satishrajdev · 发表于 2022-7-6 00:27:41

颜色7仅表示白色。。。。正如你在第一篇文章中提到的，我已经修改了下面给出的lisp

copy

(Defun C:1 ()
 (setvar 'cmdecho 0)
 (setq A (entsel))
 (setq B (cdr (assoc 62 (entget (car A)))))
 (cond    ((= B 7) (command "_chprop" A "" "_LA" "Solid" ""))
   ((= B 10) (command "_chprop" A "" "_LA" "Hidden" ""))
 )
 (setvar 'cmdecho 1)
 (princ)
)

zorro007 · 发表于 2022-7-6 00:31:34

它坏了，请帮我查一下

[编程交流] 按颜色更改图层

发表回复

精选推荐