Insert Block event

[grobnik]

Hi to everybody,

is there a way by VBA to trap the inserting block event ? I need to trap the event, and later identify the block inserted name for doing some other thing.

Thank you

[grobnik]

Sorry If AutoReply

I tried this simple code, and I inserted a block with attributes.

Private Sub AcadDocument_ObjectAdded(ByVal Object As Object)
    Debug.Print "PIPPI"
End Sub

The event has been trapped but I'm not able to evaluate the  Type Of Object inserted, see image below

[Ed__Jobe · Accepted solution]

Private Sub AcadDocument_ObjectAdded(ByVal Object as Object)
    If TypeOf Object Is AcadBlockReference Then
        'Save block.Name or ID, etc.
        Dim blkRef as AcadBlockReference
        Set blkRef = Object
        SaveSetting appname, section, key, blkRef.Name
    End If
End Sub

[grobnik]

Thank you Ed,

could you help me understanding the reasons because in my previous code the object count was zero, and now it's trapped ?

Thank you

[Ed__Jobe · Accepted solution]

It's simply that when you took your screenshot, the object type was a dictionary, not a blockref. This event is going to fire for every single object that gets added to the database, not just graphical entities.