[VBA程序]：如何选择不在某层上的内容？

cityplan

用VBA如何实现选取不在某一层（如TEMP）上的全部内容。

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

灯火

解铃还需系铃人 ：)

2. 
   
3.     Dim gpCode(0 To 2) As Integer
   
4.     Dim dataValue(0 To 2) As Variant
   
5.     Dim TempSet As AcadSelectionSet
   
6. 
   
7.     gpCode(0) = -4: dataValue(0) = "〈not"
   
8.     gpCode(1) = 8: dataValue(1) = "TEMP"
   
9.     gpCode(2) = -4: dataValue(2) = "not〉"
   
10. 
    
11.     TempSet.Select acSelectionSetCrossing, p1, p2, gpCode, dataValue
    

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

Qun

"~TEMP"

秋枫

最初由 Qun 发布
[B]"~TEMP" [/B]

稍微详细一点，如何？

灯火

To QF

2. 
   
3. Sub TempSet()
   
4. 
   
5.     Dim gpCode(0) As Integer
   
6.     Dim dataValue(0) As Variant
   
7.     Dim TempSet As AcadSelectionSet
   
8. 
   
9.     On Error Resume Next
   
10.     Set TempSet = ThisDrawing.SelectionSets("TEST")
    
11.     If Err.Number <> 0 Then
    
12.         Err.Clear
    
13.         Set TempSet = ThisDrawing.SelectionSets.Add("TEST")
    
14.     Else
    
15.         TempSet.Clear
    
16.     End If
    
17.     On Error GoTo 0
    
18. 
    
19.     gpCode(0) = 8: dataValue(0) = "~TEMP"
    
20. 
    
21.     TempSet.Select acSelectionSetAll, , , gpCode, dataValue
    
22.     TempSet.Highlight True
    
23. 
    
24. End Sub
    

<br /> Sub TempSet()<br /> <br />     Dim gpCode(0) As Integer<br />     Dim dataValue(0) As Variant<br />     Dim TempSet As AcadSelectionSet<br /> <br />     On Error Resume Next<br />     Set TempSet = ThisDrawing.SelectionSets("TEST")<br />     If Err.Number <> 0 Then<br />         Err.Clear<br />         Set TempSet = ThisDrawing.SelectionSets.Add("TEST")<br />     Else<br />         TempSet.Clear<br />     End If<br />     On Error GoTo 0<br /> <br />     gpCode(0) = 8: dataValue(0) = "~TEMP"<br /> <br />     TempSet.Select acSelectionSetAll, , , gpCode, dataValue<br />     TempSet.Highlight True<br /> <br /> End Sub<br />

秋枫

谢谢。
不知道你们是如何知道的，我查了一下vlisp帮助文件，没有提到~的这种用法。不过试了一下，果然可以。

高手啊。

XDSoft

最初由 秋枫 发布
[B]谢谢。
不知道你们是如何知道的，我查了一下vlisp帮助文件，没有提到~的这种用法。不过试了一下，果然可以。

高手啊。 [/B]

这就是论坛的作用啊，这次你知道了，就也成为高手了。

希望大家热情交流，都成为高手。

灯火

ssget 识别的通配模式与 wcmatch 函数识别的通配模式相同

efan2000

在选择集的过滤机制中，可以使用通配符。

1. 
   
2.   [FONT=courier new]
   
3. 有效的通配符
   
4. 字符        定义
   
5. #（井号）        匹配任何数字字符
   
6. @ (At)        匹配任何字母字符
   
7. .（句点）        匹配任何非字母数字字符
   
8. *（星号）        匹配任何字符串，可在搜索字符串的任何位置使用
   
9. ?（问号）        匹配任何单个字符，例如，?BC 匹配 ABC、3BC，等等
   
10. ~（波浪号）        匹配不包含自身的任何字符串，例如，~*AB* 匹配所有不包含 AB 的字符串
    
11. [ ]        匹配括号中包含的任一字符，例如，[AB]C 匹配 AC 和 BC
    
12. [~]        匹配括号中未包含任一字符，例如，[AB]C 匹配 XC 而不匹配 AC
    
13. [-]（连字符）        在方括号中为单个字符指定区间，例如，[A-G]C 匹配 AC、BC，等等直到 GC，但不匹配 HC
    
14. '（单引号）        逐字读取字符，例如，'*AB 匹配 *AB
    
15.   [/FONT]
    

复制代码