CAD开发者社区 › 首页 ›AutoCAD二次开发指南› ActiveX 开发指南› ActiveX：开发人员指南› 创建和编辑 AutoCAD 实体› 关于使用选择集（VBA/ActiveX）› 关于定义选择集的规则（VBA/ActiveX） › 查看内容

ActiveX 开发指南

关于扩展数据的筛选（VBA/ActiveX）

2023-1-5 01:23| 发布者: admin| 查看: 1418| 评论: 0|来自: AutoCAD

摘要: 外部应用程序可以将文本字符串、数值、三维点、距离和图层名称等数据附加到 AutoCAD 对象。

外部应用程序可以将文本字符串、数值、三维点、距离和图层名称等数据附着到 AutoCAD 对象。

此数据称为扩展数据或 xdata。您可以筛选包含指定应用程序的扩展数据的实体。

选择包含 xdata 的圆圈

以下示例筛选包含“MY_APP”应用程序添加的 xdata 的圆圈：

Sub Ch4_FilterXdata()
  Dim sstext As AcadSelectionSet
  Dim mode As Integer
  Dim pointsArray(0 To 11) As Double
  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
  Dim FilterType(1) As Integer
  Dim FilterData(1) As Variant
  Set sstext = ThisDrawing.SelectionSets.Add("SS9")

  FilterType(0) = 0
  FilterData(0) = "Circle"
  FilterType(1) = 1001
  FilterData(1) = "MY_APP"

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