使用VB选择图层

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

伙计们，我知道你们可以用特定的名称打开/关闭图层，但有可能在不知道图层名称的情况下这样做吗？

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

您可以使用LIKE函数

    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