如何选择除了某层以外的所有内容？

cityplan

如何选择除了某层以外的所有内容？
用VBA如何实现选取不在某一层（如TEMP）上的全部内容。

如某幅图有0层、TEMP、BUILDING三层，如何选取所有的内容，但TEMP层上的除外，用VBA如何实现！！！

WIN171

你可以遍历图元，if图元的图层<>temp,则把图元放入预先定义的选择集内。

cityplan

晕，这也叫方法。不如你叫我将TEMP层先关闭更简单些！

cityplan

Dim gpCode(0 To 2) As Integer
    Dim dataValue(0 To 2) As Variant
    gpCode(0) = -4: dataValue(0) = "<not"
    gpCode(1) = 8: dataValue(1) = "TEMP"
    gpCode(2) = -4: dataValue(2) = "not>"
    Dim TempSet As AcadSelectionSet
    TempSet.Select acSelectionSetCrossing, p1, p2, gpCode, dataValue