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

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

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

发表回复

精选推荐