图层索引替代-不是？，只是分享。

Bashworth · 发表于 2006-6-21 18:53:08

我想当我在这里的时候，不妨分享一个我必须为我正在开发的程序构建的小Sumfin。
花了很长时间才找到任何可用的信息，所以我想它也可能对其他人有用。
那么，你想在ADT中设置层键覆盖吗？（如果你必须问什么是层键覆盖，你不想知道，相信我。）
这是我为设置它而写的一个小子。

copy

Sub SetLayerKeyOverride(LayerStateToUse As String)
    Dim app As New AecBaseApplication
    Dim doc As AecBaseDocument
    Dim dbPref As AecBaseDatabasePreferences
    Dim cLayerKeyStyles As AecLayerKeyStyles
    Dim layerKeyStyle As AecLayerKeyStyle
   
    app.Init ThisDrawing.Application
    Set doc = app.ActiveDocument
    
    Set cLayerKeyStyles = doc.LayerKeyStyles
    Set dbPref = doc.Preferences
    
    Set layerKeyStyle = cLayerKeyStyles.Item(dbPref.LayerStandard)
    
    layerKeyStyle.OverrideSettings.Item(0).Value = LayerStateToUse
    layerKeyStyle.OverrideSettings.Item(5).Value = " "
    
End Sub