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) = ""
    Dim TempSet As AcadSelectionSet
    TempSet.Select acSelectionSetCrossing, p1, p2, gpCode, dataValue
页: [1]
查看完整版本: 如何选择除了某层以外的所有内容？