选择集存在的BUG及解决方法
创建选择集时如果选择集重名则会出错，这个大家都是知道的。一般的处理方法是通过检查选择集中是否有同名的选择集，如果有则清空选择集。
这个方法大家一直在用，而且实用函数中也提供了一个专用的函数来解决这个问题。
但目前还存在 一个BUG。
当用户点击打开文件对话框，但又点了对话框中的取消键取出(也就是本来想打开文件，但最后没有打开，又回到原来的图中)。这时该函数就存在问题。
这时选择集的ss.Count属性以及Item等属性均会出错。
这个问题以前有网友提过，但没有认真去对待，现在解决如下：
大家创建选择集后试图使用ss.Count，如果出错，则进行进一步处理，将选择集删除，再重建。如果没有出错，则直接通过，以下为实现的函数
Function CreatSSet() As AcadSelectionSet
Dim ss As AcadSelectionSet
Dim iAs 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
这个问题倒是没有注意!
页:
[1]