prevent deletion?

Hi!

Is there a way to prevent deleting objects with VBA?

Private Sub AcadDocument_ObjectErased(ByVal ObjectID As Long)
???
end sub

 

I don't know, but maybe if objectid = "12345" then send an undo or redraw. Or if its on its own layer you can lock the layer.

 

Hi Ledi,

if you want to completely ignore the "erase" command, try

Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
If CommandName = "ERASE" Then
MsgBox "Command is not allowed", vbCritical
ThisDrawing.SendCommand Chr(3) 'break command with ESC
End If
End Sub

Jimmy

 

But then i dont know on which object the delete is performed.

I think that i'm going to try something with ObjectARX in this case.

thank you

 

i found the solution, this works for me

Public COMM As String

Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
'MsgBox "Begin: " & CommandName
COMM = CommandName
End Sub

Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
'MsgBox "End: " & CommandName
COMM = ""
End Sub

Private Sub AcadDocument_ObjectErased(ByVal ObjectID As Long)
'MsgBox LUZ_X.UnErase(ObjectID)
If COMM = "ERASE" Then
MsgBox "HALO: " & ObjectID
ThisDrawing.SendCommand "UNDO 1 "
End If
End Sub