社区 › Auto Lisp › 按颜色更改图层

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

试试这个：-
(Defun C:1 ()
(setq A (entsel))
(command "_chprop" A "" "_LA" "Solid" "_C" "7" "")
(princ)
)
 
理解以下代码，并根据您的任务进行修改。。。
(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

(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
 
(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

它坏了，请帮我查一下

查看完整版本: 按颜色更改图层