创建选择集时如果选择集重名则会出错，这个大家都是知道的。
一般的处理方法是通过检查选择集中是否有同名的选择集，如果有则清空选择集。
这个方法大家一直在用，而且实用函数中也提供了一个专用的函数来解决这个问题。
但目前还存在 一个BUG。
当用户点击打开文件对话框，但又点了对话框中的取消键取出(也就是本来想打开文件，但最后没有打开，又回到原来的图中)。这时该函数就存在问题。
这时选择集的ss.Count属性以及Item等属性均会出错。
这个问题以前有网友提过，但没有认真去对待，现在解决如下：
大家创建选择集后试图使用ss.Count，如果出错，则进行进一步处理，将选择集删除，再重建。如果没有出错，则直接通过，以下为实现的函数
-
- Function CreatSSet() As AcadSelectionSet
- Dim ss As AcadSelectionSet
- Dim i As Integer
- On Error Resume Next
- Set ss = ThisDrawing.SelectionSets.Add("mccad")
- If Err Then
- Err.Clear
- Set ss = ThisDrawing.SelectionSets("mccad")
- ss.Clear
- End If
- i = ss.Count
- If Err Then
- ss.Delete
- Err.Clear
- Set ss = ThisDrawing.SelectionSets.Add("mccad")
- End If
- Set CreatSSet = ss
- End Function
| 
置顶卡
