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

phenixliu

我有个问题请教各位大虾：

以下是我的简单的代码，好像也是明经通道出过的书的代码：

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。

请教大虾，这是为什么，如何解决呢？不胜感激。

雪山飞狐_lzh

卸载掉AcDblClkEditPe.arx（Cad的双击事件处理程序），然后再试

phenixliu

谢谢，我试试看。