EATTEDIT and objectmodifed event

[Anonymous]

Hello,

We are just now upgrading to acad2005.

I first noticed that when using the eattedit command either by command
line or by double clicking, that the objectmodified event that had
work previously when modifying our title block attributes no longer
appears to recognize the fact that the title block has been modified.

Is there something I have overlooked?

What can be done to work around this problem?

I past versions when title block was modified and the objectmodified
event recognized it and it was our title block that was changed my
program extracted the attribute info to an MS Access database. But
that does't work now.

this code worked for several years:

'-----
Private Sub AcadDocument_ObjectModified(ByVal Object As Object)
Dim Myblks As String

Myblks =
"XINFO,MOREREVS,DINFO,EINFO,FINFO,FAB-INFO,FAB-REV,SXREF,CXREF," & _
"cxref,sxref,PROJDES,PROJDES4," & _
"36X24T,42X30T,44X34T,W-36X24T,W-42X30T,W-44X34T," & _
"A_36X24T,A_40X26T,A_42X30T,A_44X34T," & _
"B_36X24T,B_40X26T,B_42X30T,B_44X34T," & _
"B-36X24T,B-40X26T,B-42X30T,B-44X34T," & _
"V85X11T,36X24R,42X30R,44X34R," & _
"W-36X24R,W-42X30R,W-44X34R," & _
"A_36X24R,A_40X26R,A_42X30R,A_44X34R," & _
"B_36X24R,B_40X26R,B_42X30R,B_44X34R," & _
"B-36X24R,B-40X26R,B-42X30R,B-44X34R," & _
"C_FAB_T,C_FAB_T1,B_FAB_T1,B_FAB_T"

If TypeOf Object Is AcadBlockReference Then

If InStr(Myblks, UCase(Object.Name)) Then
If InStr(1, Me.GetVariable("CMDNAMES"), "ATTEDIT",
vbTextCompare) > 0 _
Or InStr(1, Me.GetVariable("CMDNAMES"), "DDATTE",
vbTextCompare) > 0 Then

'Code for update here
Debug.Print "RUN DATAGRABBER"
datagrabber.datagrabber
'MsgBox "got it"
End If
End If

End If
End Sub

I have changed "ATTEDIT" to "EATTEDIT" and it does not work with
EATTEDIT.

Any suggestions or solutions would be greatly appreciated.

TIA