[讨论]：一个部分屏蔽双击事件的例子

雪山飞狐(lzh)

Private pUnLoadDbClick As Boolean
Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)
Dim ss As AcadSelectionSet
Dim pobj As AcadEntity
    Set ss = ThisDrawing.PickfirstSelectionSet
    Set pobj = ss(0)
    If ss.Count = 1 And pobj.EntityName = "AcDbBlockReference" Then
        If Not pUnLoadDbClick Then Application.UnloadArx "acdblclkedit.arx": pUnLoadDbClick = True
    Else
        If pUnLoadDbClick Then Application.LoadArx "acdblclkedit.arx": pUnLoadDbClick = False
    End If
End Sub

雪山飞狐(lzh)

我用的是加载卸载acdblclkedit.arx的办法，2005里调试通过，各位有没有好一点的其他办法？