Question

AutoCAD Lisp,怎么快速更改图层颜色？

AutoCAD Lisp,怎么快速更改图层颜色？
需要做到这功能：
按1，回车，按某个图案，回车，这个图案的图层就全部改成1号颜色。
按2，回车，按某个图案，回车，这个图案的图层就全部改成2号颜色。
请大神帮忙写一下代码，谢谢！

Answer 1

Autolisp代码如下:
(defun c:1 ( / ent obj tc);如果修改1为2，命令为2
(vl-load-com)
(if (setq ent (entsel "\n请选择要修改颜色图层的对象"))
(progn
(setq tc (cdr (assoc 8 (entget (car ent)))))
(setq obj (vla-add (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) tc))
(vla-put-color obj 1);如果把1修改为2，颜色变2
)
)
(princ)
);复制粘贴到记事本，以[.lsp]为后缀命名，加载到AutoCAD，就可以运行。