社区 › VB › 如何防止

雪山飞狐_lzh 发表于 2004-4-15 20:23:00

如何防止

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

雪山飞狐_lzh 发表于 2004-4-16 22:32:00

斑竹可以说说么？

雪山飞狐_lzh 发表于 2004-4-17 17:49:00

明总救救急呀

雪山飞狐_lzh 发表于 2004-4-25 20:43:00

我已经弄清楚了SendCommand "(command)" + vbCr
这么简单，哈哈

mccad 发表于 2004-4-25 21:02:00

我试过无效

雪山飞狐_lzh 发表于 2004-4-25 21:08:00

可以呀，明总，这是我的代码
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.Count1 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 发表于 2004-4-25 21:18:00

但我这样却不行：
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 发表于 2004-4-25 21:22:00

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

查看完整版本: 如何防止