CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2023 开发者帮助 › 查看内容

AutoCAD 2023 开发者帮助

关于在选择集筛选条件中使用通配符模式（VBA/ActiveX）

2024-5-18 18:54| 发布者: admin| 查看: 333| 评论: 0|原作者: admin|来自: AutoCAD

筛选器列表中的符号名称和字符串可以包含通配符模式。

下表标识了 AutoCAD 可识别的通配符，以及每个通配符在字符串上下文中的含义：

通配符
字符	定义
# （磅）	匹配任何单个数字
@ （在）	匹配任何单个字母字符
.（句点）	匹配任何单个非字母数字字符
*（星号）	匹配任何字符序列，包括空字符序列，并且可以在搜索模式中的任何位置使用：开头、中间或结尾
?（问号）	匹配任何单个字符
~（波浪号）	如果它是模式中的第一个字符，则它与模式以外的任何字符匹配
[...]	匹配随附的任意一个字符
[~...]	匹配任何未括起来的单个字符
- （连字符）	在括号内用于指定单个字符的范围
，（逗号）	分离两种模式
' （反向引用）	转义特殊字符（按字面意思读下一个字符）

使用单引号（'）表示字符不是通配符，而是按字面意思理解。例如，若要指定在选择集中仅包含名为“*U2”的匿名块，请使用以下筛选器参数：

FilterType(0) = 2
FilterData(0) = "`*U2"

选择文本中出现特定单词的多行文本

下面的代码将选择条件定义为文本字符串中出现“The”的任何条件。此示例还演示了选择方法的用法：MtextSelectByPolygon

Sub Ch4_FilterPolygonWildcard()
  Dim sstext As AcadSelectionSet
  Dim FilterType(1) As Integer
  Dim FilterData(1) As Variant
  Dim pointsArray(0 To 11) As Double
  Dim mode As Integer
  mode = acSelectionSetWindowPolygon
  pointsArray(0) = -12#: pointsArray(1) = -7#: pointsArray(2) = 0
  pointsArray(3) = -12#: pointsArray(4) = 10#: pointsArray(5) = 0
  pointsArray(6) = 10#: pointsArray(7) = 10#: pointsArray(8) = 0
  pointsArray(9) = 10#: pointsArray(10) = -7#: pointsArray(11) = 0
  Set sstext = ThisDrawing.SelectionSets.Add("SS10")

  FilterType(0) = 0
  FilterData(0) = "MTEXT"
  FilterType(1) = 1
  FilterData(1) = "*The*"

  sstext.SelectByPolygon mode, pointsArray, FilterType, FilterData
End Sub