VBA能控制图层的新组过滤器吗？

qflut

在CAD中用layer可以创建新组过滤器。但是如何通过VBA创建或者编辑这个图层过滤器呢？我看CAD的对象树里没有图层过滤器相关的。

谁能教教我啊？到底用VBA能不能做到呢？

qflut

折腾了半天，囫囵吞枣的拷贝到如下一点点咚咚，期待高人指点，这里面的xtype及xvalue的意思，为什么xtype多个值是1呢？如果我需要把axis及axis-text等图层都加进来又该如何设置xtype及xvalue呢？

2.   
3.     Dim xRec As AcadXRecord
4.     Dim oDict1 As AcadDictionary, oDict2 As AcadDictionary
5.     Dim xtype(0 To 6) As Integer
6.     Dim xvalue(0 To 6) As Variant
7.     Dim name As String
8.     name = "结构图层" 'Filter name
9.     xtype(0) = 1: xvalue(0) = name 'Filter Name:
10.     xtype(1) = 1: xvalue(1) = "AXIS" 'Layer Name
11.     xtype(2) = 1: xvalue(2) = "*" 'Color
12.     xtype(3) = 1: xvalue(3) = "*" 'Lineyype
13.     xtype(4) = 70: xvalue(4) = 0 'DXF (0 Both (On/Off) + 0 Both (Frz/Thaw) = 0)
14.     xtype(5) = 1: xvalue(5) = "*" 'Lineweight
15.     xtype(6) = 1: xvalue(6) = "*" 'PlotStyle
16.     'xtype(7) = 1: xvalue(7) = "AXIS-TEXT" 'Layer Name
17.     Set oDict1 = acaddoc.Layers.GetExtensionDictionary
18.     Set oDict2 = oDict1.AddObject("ACAD_LAYERFILTERS", "AcDbDictionary")
19.     Set xRec = oDict2.AddXRecord(name)
20.     xRec.SetXRecordData xtype, xvalue
21.     acaddoc.Utility.Prompt xRec.Item(0).name

       Dim xRec As AcadXRecord     Dim oDict1 As AcadDictionary, oDict2 As AcadDictionary     Dim xtype(0 To 6) As Integer     Dim xvalue(0 To 6) As Variant     Dim name As String     name = "结构图层" 'Filter name     xtype(0) = 1: xvalue(0) = name 'Filter Name:     xtype(1) = 1: xvalue(1) = "AXIS" 'Layer Name     xtype(2) = 1: xvalue(2) = "*" 'Color     xtype(3) = 1: xvalue(3) = "*" 'Lineyype     xtype(4) = 70: xvalue(4) = 0 'DXF (0 Both (On/Off) + 0 Both (Frz/Thaw) = 0)     xtype(5) = 1: xvalue(5) = "*" 'Lineweight     xtype(6) = 1: xvalue(6) = "*" 'PlotStyle     'xtype(7) = 1: xvalue(7) = "AXIS-TEXT" 'Layer Name     Set oDict1 = acaddoc.Layers.GetExtensionDictionary     Set oDict2 = oDict1.AddObject("ACAD_LAYERFILTERS", "AcDbDictionary")     Set xRec = oDict2.AddXRecord(name)     xRec.SetXRecordData xtype, xvalue     acaddoc.Utility.Prompt xRec.Item(0).name

qflut

经过一整天的不断尝试以及找资料，终于发现：如果图层过滤器要选中axis和axis-text图层，那么只需要将axis替换成axis,axis-text.

感觉坛子里大家都不愿意回答问题，帮助我这样的新手嘛。

另外，创建了这个图层过滤器，但是并没有激活啊，需要用layer进去激活，否则图层过滤器还是全部