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

VBA如何检查图层

简单的问题。
我想要的是,当用户单击按钮时,宏将执行一些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
 
来自开发人员文档示例的代码
页: [1]
查看完整版本: VBA如何检查图层