VBA如何检查图层
简单的问题。我想要的是,当用户单击按钮时,宏将执行一些vba代码,并检查当前图形中是否包含某些图层。。。比如layerA,layerB,layerC。如果图形没有这些图层,请为当前图形创建这些图层。
有什么帮助吗?劝告非常感谢。 好啊所以我设法做到了。。。但现在的问题是如何设置图层线型的颜色?有点像
此图纸。层。项目(计数器)。TrueColor=?????? 我相信AutoCAD 2004有更老的版本。颜色属性仍然可用,但未在帮助文件中列出。
更新的。可以通过首先创建对象来修改TrueColor:
Set color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")
然后相应地修改属性:
Call color.SetRGB(80, 100, 244)
最后:
ThisDrawing.Layers.Item(counter).TrueColor = color
来自开发人员文档示例的代码
页:
[1]