请问能不能部分屏蔽AUTOCAD本身对事件响应的功能

雪山飞狐_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

sule365

lzh741206 这个我尝试了 但生效要在下次操作才行 每次调用加载和卸载函数，不能马上生效，需等这次响应过程处理完到下次操作才可以，好象没有什么好办法，设想是不是采用两个响应事件过程来解决这个问题，第一个用来卸掉系统双击响应，第二个添加自己的响应，在第一个事件处理结束再触发第二个。不知道VBA中可否定义自己的事件和主动触发事件的功能？

雪山飞狐_lzh

不会呀，我在2005里调试的挺好的，在BeginDoubleClick事件里做一次应该没问题呀

sule365

一直用的2002 看来我要用2005了

sule365

是不是其他的原因 我再查查

雪山飞狐_lzh

2002里好像是不行，其它图元的双击事件也要编，源码共享有一个例子，你可以看看