[求助]求助！关于选择集PickfirstSelectionSet

phenixliu · 发表于 2008-3-25 00:05:00

我有个问题请教各位大虾：
以下是我的简单的代码，好像也是乐筑天下出过的书的代码：
Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)
On Error Resume Next
Dim ss As AcadSelectionSet
Dim ent As AcadEntity
Set ss = ThisDrawing.PickfirstSelectionSet
MsgBox ss.Count
End Sub
上述代码目的是检测选择集数量，当对象是一个带有属性的块时，并且我的鼠标在此块上双击，ss.count返回一个0数值，如果我选择了此块，但鼠标在此块范围之外双击时，ss.count返回的值就是正确数值1。
请教大虾，这是为什么，如何解决呢？不胜感激。