如何删除图层状态？

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中工作

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

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

我怎么找到它？

如何删除图层状态？

发表回复

精选推荐