社区 › Auto Lisp › 更改颜色例程

leos98 发表于 2022-7-6 14:36:39

更改颜色例程

你好
我寻找一个例程，将改变特定的图层颜色，我想要的颜色。例如，将颜色为10的所有层更改为颜色为13，将颜色为50的层更改为颜色为53，依此类推。我需要这样，当我们在公司设置外部参照时，我们可以偏移建筑师的图层颜色。
谢谢
Leos98

GE13579 发表于 2022-7-6 14:42:43

QSELECT对于这类事情很有用，具体取决于需要更改的图层和图形的数量。选择图层后使用特性。

leos98 发表于 2022-7-6 14:43:42

谢谢
但我要做的是创建一个例程来设置外部参照。到目前为止，我有一个，采取architec的图纸和分离所有的外部参照，他有，设置所有对象的BYLAYER，清除图形和其他东西。现在，我还想将颜色更改例程包括在内。

GE13579 发表于 2022-7-6 14:49:15

好的，对不起，我帮不上什么忙，但是如果一切顺利的话，一个Mod可以将这个移到AutoLISP/VBA中。。。部分

Tiger 发表于 2022-7-6 14:49:35

有一个命令可以更改、合并和类似于层。。。不幸的是，我记不起来了，而且今天无法访问autocad（忘记借用许可证-doh！）所以无法查看。。。。如果没有别的事，我明天会查一下。

lpseifert 发表于 2022-7-6 14:53:22

这是比尔·克莱默的一首老歌。它会更改所有实体（如果不是Bylayer）的颜色，而不仅仅是图层。。。
颜色F。LSP

leos98 发表于 2022-7-6 14:56:17

谢谢
我下载了，看起来很复杂。我甚至不知道如何将其纳入我已经创建的例程中。有更简单的吗？

Tiger 发表于 2022-7-6 15:00:04

我想到的命令叫做LAYTRANS——如果你有一个具有正确图层的模板，LAYTRANS可以让你将图形中的图层转换为所选模板中的图层。您可以保存这些翻译以供再次使用。

Lee Mac 发表于 2022-7-6 15:02:20

这只会更改图层颜色-只会影响设置为“bylayer”的ents
 
（defun c：laycol（/colLst lay col）（vl load com）（setq colLst’（（10.13）；；

leos98 发表于 2022-7-6 15:06:12

李·麦克
谢谢，它工作得很好，有没有一种方法，而不是做（10.13）我可以做（红色。13）我尝试了，但它没有工作。

查看完整版本: 更改颜色例程