CAD VBA块和引用滤波方法.docVIP

共享一下?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