用VB选择图层

systech · 发表于 2009-6-17 09:28:57

伙计们，
我知道您可以使用特定的名称来打开/关闭图层，但是在不知道图层名称的情况下有可能做到这一点吗？

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

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

Matt__W · 发表于 2009-6-17 10:09:04

    For Each lay In lays
        Set color = New AcadAcCmColor
        With color
            .ColorMethod = acColorMethodByACI
            .ColorIndex = "2"
        End With
        [color=red]If UCase$(lay.Name)[/color] [color=blue]Like[/color] [color=red](("*") & ("ALIGN") & ("*")) Then[/color]   [color=green]'This will freeze all layers that contain the word 'align'
                                                                    'Wildcards are used before and after the word[/color]
            lay.TrueColor = color
            lay.Freeze = False
            lay.LayerOn = True
        End If
    Next