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

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，就可以运行。