改变图层的颜色sc
之前有人问过这个问题，但我找不到下降解决方案，请协助：我有一个很好的小程序执行以下操作：我输入“C51”，然后程序要求选择某个对象/元素，作为回报将整个对象/元素的图层更改为颜色 51。然后我制作了 C60 等。
整个程序不超过几行，但我自己编写这样的程序实在太笨了。我确实知道，对于对 lisp 了解最少的人来说，这项任务是轻而易举的。
如果你们中的任何好人愿意帮助我，请为傻瓜做出解释：即：采取这一行，放入记事本，另存为..，放入文件夹，（我需要更改autocad自动运行文件，我记得）
我确实希望有人能帮助我，感谢你.
不完全是您要找的东西，但我多年来一直在使用它。它允许您通过选择图层上的对象来更改图层颜色。不确定我从哪里得到它或是谁写的，但我发现它非常有用。
(defun c:lc (/ clr lay) (vl-load-com) (setq lay (cdr (assoc 8 (entget (car (entsel "\nSelect object to change layer color: ")) ) ) )clr (acad_colordlg 1) ) (if (and lay clr) (vla-put-color (vlax-ename->vla-object (tblobjname "layer" lay)) clr ) ) (princ))
页:
[1]