CAD VBA的块和参照过滤方法.doc

共享一下?CAD-VBA中，屏幕选择集中对块参照的过滤方法，供参考： Dim melem As AcadEntity Dim selsetCollection As AcadSelectionSets 定义选择集集合 Dim i,j As Long Dim ent As Object 查找图形中的每个选择集,是否已存在 Set selsetCollection = ThisDrawing.SelectionSets i = 0 j = 0 For Each FilterSet In selsetCollection If xxx = FilterSet.Name Then’’’’”xxx”为自己想用的选择集名 j = 1 Exit For End If i = i + 1 Next If j = 0 Then Set FilterSet = ThisDrawing.SelectionSets.Add(xxx) Else FilterSet.Clear End If ‘’’’’’’定义过滤器数组，设定过滤参数 Dim sFilterType(1) As Integer Dim sFilterData(1) As Variant sFilterType(0) = 100 sFilterData(0) = AcDbBlockReference sFilterType(1) = 2 sFilterData(1) = ~ FilterSet.SelectOnScreen sFilterType, sFilterData ‘’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’ 另附DXF组码表，以便对上段程式的理解； DXF下表列出了组码或组码范围以及组码值的解释。在此表中，“固定”表明组码始终具有相同的用途。如果组码不固定，则其用途取决于上下文。关于此表中使用的缩写和格式方面的信息。 按数字次序排列的组码 组码 说明 -5 APP：永久反应器链 -4 APP：条件运算符（仅与 ssget 一起使用） -3 APP：扩展数据 (XDATA) 标记（固定） -2 APP：图元名参照（固定） -1 APP：图元名。每次打开图形时，图元名都会发生变化，从不保存（固定） 0 表示图元类型的字符串（固定） 1 图元的主文字值 2 名称（属性标记、块名等） 3-4 其他文字或名称值 5 图元句柄；最多 16 个十六进制数字的字符串（固定） 6 线型名（固定） 7 文字样式名（固定） 8 图层名（固定） 9 DXF：变量名称标识符（仅在 DXF 文件的 HEADER 段中使用） 10 主要点；直线或文字图元的起点、圆的圆心，等等 DXF：主要点的 X 值（后跟 Y 和 Z 值代码 20 和 30） APP：三维点（三个实数的列表） 11-18 其他点 DXF：其他点的 X 值（后跟 Y 值代码 21-28 和 Z 值代码 31-38） APP：三维点（三个实数的列表） 20, 30 DXF：主要点的 Y 值和 Z 值 21-28, 31-37 DXF：其他点的 Y 值和 Z 值 38 DXF：如果非零，则为图元的标高 39 如果非零，则为图元的厚度（固定) 40-48 双精度浮点值（文字高度、缩放比例等） 48 线型比例；双精度浮点标量值；默认值适用于所有图元类型 49 重复的双精度浮点值。一个图元的可变长度表（例如，LTYPE 表中的虚线长度）中可能会出现多个 49 组。7x 组始终出现在第一个 49 组之前，用以指定表的长度 50-58 角度（在 DXF 文件中以度为单位，在 AutoLISP 和 ObjectARX 应用程序中以弧度为单位） 60 图元可见性；整数值；未赋值或值为 0 时表示可见；值为 1 时表示不可见 62 颜色号（固定） 66 “图元跟随”标志（固定） 67 空间 — 模型空间或图纸空间（固定） 68 APP：指示视口是处于打开状态但在屏幕上完全不可见，还是未激活或处于关闭状态 69 APP：视口标识号 70-78 整数值，例如重复计数、标志位或模式 90-99 32 位整数值 100 子类数据标记（将派生类名作为字符串）从其他具体类派生的所有对象和图元类必须具有此标记。子类数据标记用于分离由同一对象的继承链中的不同类定义的数据。 对于从 O