cityplan 发表于 2002-7-9 22:54:00

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

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

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

WIN171 发表于 2002-7-9 23:07:00

笨办法，但可行

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

cityplan 发表于 2002-7-10 06:24:00

晕，这也叫方法。

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

cityplan 发表于 2002-7-10 12:47:00

还得靠自己！

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
页: [1]
查看完整版本: 如何选择除了某层以外的所有内容？