将所有层添加到ByLayer

kpblc · 发表于 2007-8-16 12:51:34

这个应该很简单，但是由于某种原因，我仍然得到一个错误
有人看到这个问题吗？??谢谢您马克代码0]

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

deegeecees · 发表于 2007-8-16 12:58:21

.颜色已过时。 .TRUECOLOR是新的替代品。
您使用的是哪个版本的 AutoCAD？ 2008 有一个名为 SETBYLAYER 的命令，你可能想要查看它。

Sub AllLayersToByLayer()
    Dim color As AcadAcCmColor
    Dim layer As AcadLayer
    
    Set color = New AcadAcCmColor
    With color
        .ColorMethod = acColorMethodByACI
        .ColorIndex = "256"
    End With
    
    For Each layer In ThisDrawing.Layers
        layer.TrueColor = color
    Next layer
End Sub