如何删除图层状态？

Jeff_M · 发表于 2006-9-11 16:40:13

每天都要学习！！！

Jeff_M · 发表于 2006-9-11 16:40:55

所以我的问题是，你能通过代码创建一个layerstate吗？

Jeff_M · 发表于 2006-9-11 16:52:10

查看LayerStateManager对象……省去了字典的麻烦，它为您完成了所有工作。

Jeff_M · 发表于 2006-9-11 17:07:37

我无法在07中使用删除部分

copy

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

Jeff_M · 发表于 2006-9-11 17:08:12

我怎么找到它？

如何删除图层状态？

发表回复

精选推荐