选择集存在的BUG及解决方法

mccad

创建选择集时如果选择集重名则会出错，这个大家都是知道的。
一般的处理方法是通过检查选择集中是否有同名的选择集，如果有则清空选择集。
这个方法大家一直在用，而且实用函数中也提供了一个专用的函数来解决这个问题。

但目前还存在 一个BUG。
当用户点击打开文件对话框，但又点了对话框中的取消键取出(也就是本来想打开文件，但最后没有打开，又回到原来的图中)。这时该函数就存在问题。
这时选择集的ss.Count属性以及Item等属性均会出错。
这个问题以前有网友提过，但没有认真去对待，现在解决如下：
大家创建选择集后试图使用ss.Count，如果出错，则进行进一步处理，将选择集删除，再重建。如果没有出错，则直接通过，以下为实现的函数

2. Function CreatSSet() As AcadSelectionSet
   
3.     Dim ss As AcadSelectionSet
   
4.     Dim i  As Integer
   
5.     On Error Resume Next
   
6.     Set ss = ThisDrawing.SelectionSets.Add("mccad")
   
7.     If Err Then
   
8.         Err.Clear
   
9.         Set ss = ThisDrawing.SelectionSets("mccad")
   
10.         ss.Clear
    
11.     End If
    
12.     i = ss.Count
    
13.     If Err Then
    
14.         ss.Delete
    
15.         Err.Clear
    
16.         Set ss = ThisDrawing.SelectionSets.Add("mccad")
    
17.     End If
    
18.     Set CreatSSet = ss
    
19. End Function
    

Function CreatSSet() As AcadSelectionSet<br />     Dim ss As AcadSelectionSet<br />     Dim i  As Integer<br />     On Error Resume Next<br />     Set ss = ThisDrawing.SelectionSets.Add("mccad")<br />     If Err Then<br />         Err.Clear<br />         Set ss = ThisDrawing.SelectionSets("mccad")<br />         ss.Clear<br />     End If<br />     i = ss.Count<br />     If Err Then<br />         ss.Delete<br />         Err.Clear<br />         Set ss = ThisDrawing.SelectionSets.Add("mccad")<br />     End If<br />     Set CreatSSet = ss<br /> End Function<br />

myfreemind

这个问题倒是没有注意!