可以呀,明总,这是我的代码
Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)
On Error Resume Next
Dim lBlockObject As AcadObject
Dim ss As AcadSelectionSet
Set ss = ThisDrawing.ActiveSelectionSet
If ss.Count 1 Then Exit Sub
Set lBlockObject = ss(0)
Select Case ObjectType(lBlockObject)
Case oNull
ThisDrawing.SendCommand "(command) "
Case oObject
frmDwgC.Change lBlockObject
ThisDrawing.SendCommand "(command) "
Case oTable
frmTable.Change lBlockObject
ThisDrawing.SendCommand "(command) "
End Select
End Sub
具体的处理部分没贴上,不过确实可以达到效果即:
为双击事件添加代码处理无名块时防止CAD调用refedit命令