VBA如何检查图层

firavolla · 发表于 2022-7-6 10:53:05

简单的问题。
我想要的是，当用户单击按钮时，宏将执行一些vba代码，并检查当前图形中是否包含某些图层。。。比如layerA，layerB，layerC。如果图形没有这些图层，请为当前图形创建这些图层。
有什么帮助吗？劝告非常感谢。

firavolla · 发表于 2022-7-6 11:46:39

好啊所以我设法做到了。。。但现在的问题是如何设置图层线型的颜色？有点像
此图纸。层。项目（计数器）。TrueColor=？？？？？？

SEANT · 发表于 2022-7-6 11:58:14

我相信AutoCAD 2004有更老的版本。颜色属性仍然可用，但未在帮助文件中列出。

更新的。可以通过首先创建对象来修改TrueColor：

Set color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")

然后相应地修改属性：

Call color.SetRGB(80, 100, 244)

最后：

ThisDrawing.Layers.Item(counter).TrueColor = color

来自开发人员文档示例的代码

[编程交流] VBA如何检查图层