CAD-VBA的块和参照过滤方法(共5页).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 NextIf j = 0 Then Set F