图层索引替代-不是？，只是分享。
我想当我在这里的时候，不妨分享一个我必须为我正在开发的程序构建的小Sumfin。花了很长时间才找到任何可用的信息，所以我想它也可能对其他人有用。
那么，你想在ADT中设置层键覆盖吗？（如果你必须问什么是层键覆盖，你不想知道，相信我。）
这是我为设置它而写的一个小子。
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
然后只需使用
在另一个例程中调用它，就像我说的，只是一个小助手，我在自己的搜索中找不到任何东西。
您需要将对AEC Base 4.0 Application Library和AEC Base 4.0 Object Library的引用添加到您的项目中才能正常工作。
**** Hidden Message ***** 天啊！头奖！！谢谢CSO！（感恩节有点晚了，但我现在知道什么是图层键和你的权利，我不想知道。 嗯……我只是想用一下这个。*书签*
页:
[1]