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

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

 我来答

1个回答

#热议# 海关有哪些禁运商品？查到后怎么办？

朱06CAD
2019-04-14 · 知道合伙人软件行家

朱06CAD
知道合伙人软件行家

采纳数：4172 获赞数：18068

高中，熟悉AutoCAD。会autolisp及VBA程序。

向TA提问私信TA

关注

展开全部

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