[求助] 请问各位大虾

yslike

请问各位大虾，我能否控制CAD 的删除操作，某些数据不能删除，如删除，我要首先得到所选择的对象，我的操作完了以后再删除对象，请问该功能能否实现，怎样实现？谢谢

yslike

论坛了没有人吗，太冷清了吧，

leeyeafu

我没有完全明白你的意思。好象你想要修改ACAD系统的删除命令执行方式，不要说VBA做不到，在ARX中我曾尝试修改ACAD的系统命令，最终还是失败了。不过写一个自己的删除命令倒是应该能做到的。VBA中可以这样写宏：
Sub MyErase()
  '先得到选择集，或者可以由用户在绘图区域选择对象
  
  ‘完成你的操作

  For Each 对象 In 选择集
    对象.Erase
  Next 对象

End Sub

efan2000

Document文档有一个ObjectErased事件，可以捕获删除。
Private Sub AcadDocument_ObjectErased(ByVal ObjectID As Long)
    MsgBox "The ID of the object deleted is: " & ObjectID

    Dim tempObj As AcadObject
    Set tempObj = ThisDrawing.ObjectIdToObject(objectID)
    if 如果不满足条件 then
     ThisDrawing.SendCommand "_u" & vbCr
    end if
End Sub

yslike

该事件内我写过代码,不过此时已经不能再取出删除的对象
set tempObj = ThisDrawing.ObjectIdToObject(objectID) 出错
错误提示
   方法 'ObjectIdToObject' 作用于对象 'IAcadDocument' 时失败
你那里不出错吗?