社区 › VB › 如何删除图层状态？

DaveW 发表于 2006-9-11 16:40:13

每天学点东西！！！

Matersammichman 发表于 2006-9-11 16:40:55

所以我的问题是你能通过代码创建一个层状态吗？

DaveW 发表于 2006-9-11 16:52:10

查看LayerStateManager对象……它可以为您完成所有工作，从而避免与字典发生冲突。

SomeCallMeDave 发表于 2006-9-11 17:07:37

我无法使删除部分在07中工作
Public Sub DelLayerState()
    Dim colLayers As AcadLayers
    Dim objDict As AcadDictionary
    Dim objLayerStates As AcadDictionary
    Dim objXrec As AcadXRecord
   
    Set colLayers = ThisDrawing.Layers
    If colLayers.HasExtensionDictionary Then
       Set objDict = colLayers.GetExtensionDictionary
       Set objLayerStates = objDict("ACAD_LAYERFILTERS")
       objLayerStates("adf").Delete
   End If
End Sub

DaveW 发表于 2006-9-11 17:08:12

我怎么找到它？

查看完整版本: 如何删除图层状态？