如何防止

雪山飞狐_lzh

为双击事件添加代码处理无名块时如何防止CAD调用refedit命令


或者说：


为双击事件添加代码时如何防止CAD调用相关命令

雪山飞狐_lzh

斑竹可以说说么？

雪山飞狐_lzh

明总救救急呀

雪山飞狐_lzh

我已经弄清楚了



SendCommand "(command)" + vbCr


这么简单，哈哈

mccad

我试过无效

雪山飞狐_lzh

可以呀，明总，这是我的代码 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命令

mccad

但我这样却不行：

2. Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)
3.        Dim ss As AcadSelectionSet
4.        Set ss = ThisDrawing.ActiveSelectionSet
5.        MsgBox "当前选定的对象数量为" & ss.Count
6.        ThisDrawing.SendCommand "(command)" + vbCr
7. End Sub

Private Sub AcadDocument_BeginDoubleClick(ByVal PickPoint As Variant)        Dim ss As AcadSelectionSet        Set ss = ThisDrawing.ActiveSelectionSet        MsgBox "当前选定的对象数量为" & ss.Count        ThisDrawing.SendCommand "(command)" + vbCr End Sub

雪山飞狐_lzh

refedit命令要求输入，用ThisDrawing.SendCommand "(command)" + vbCr可以消除，其他的就没办法了，可能是这个原因