改变图层的颜色sc

Mar_Yuval · 发表于 2022-7-6 04:05:04

之前有人问过这个问题，但我找不到下降解决方案，请协助：我

有一个很好的小程序执行以下操作：我输入“C51”，然后程序要求选择某个对象/元素，作为回报将整个对象/元素的图层更改为颜色 51。然后我制作了 C60 等。

整个程序不超过几行，但我自己编写这样的程序实在太笨了。我确实知道，对于对 lisp 了解最少的人来说，这项任务是轻而易举的。

如果你们中的任何好人愿意帮助我，请为傻瓜做出解释：即：采取这一行，放入记事本，另存为..，放入文件夹，（我需要更改autocad自动运行文件，我记得）

我确实希望有人能帮助我，感谢你.

RobDraw · 发表于 2022-7-6 05:09:01

不完全是您要找的东西，但我多年来一直在使用它。它允许您通过选择图层上的对象来更改图层颜色。不确定我从哪里得到它或是谁写的，但我发现它非常有用。

copy

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

[编程交流] 改变图层的颜色sc

发表回复

精选推荐