AcadDoc.layers.Count----得到图中所有的图层 的总层数遍历所有的层 某一层 LLL=AcadDoc.layers.item i------也就是得到第i层用--LLL.Name----得到某一层的层名通过比较 如果该层正是 你想要改颜色的那个 层,那就用 LLL.TureColor ---来设置层的颜色------------------对了,前提是图中所有图元的颜色都是"ByLayer"--也就是“随层”
贱人工具箱不行吗?图层功能很强大了啊