嘘
你一点都不有趣；英雄联盟 试试这个….（或使用DGCs建议的方法）
Sub AllLayersToByLayer()
Dim color As AcadAcCmColor
Dim obj As AcadEntity
Set color = New AcadAcCmColor
With color
.ColorMethod = acColorMethodByACI
.ColorIndex = "256"
End With
For Each obj In ThisDrawing.ModelSpace
obj.TrueColor = color
Next obj
End Sub 我知道，有时候我觉得自己像一条湿毯子
；
不，我同意你的观点，我过去编程只是为了好玩，现在我通常有一个规则，那就是从nec中编程
然而，有人早些时候问你是否可以同时将所有对象全局更改为bylayer，于是智力开始发挥作用  ；哈哈，我原以为我需要5分钟的时间来拼凑，但显然没有'；哈哈，有些事情你可以做
我可以使用acad中的filter命令，具体询问他在这一层中使用最多的是哪一层，然后创建一个他可以运行的过滤器
It'；真的没什么大不了的，我只是好奇马克 Matts代码是您需要的。
页:
1
[2]