I keep the properties window open and docked always, this would make it easier for you. then you could insert it and select.
I did this really quickly in vba and it seems to work.Public booBlkIns As Boolean
Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
If Right(CommandName, 6) Like "INSERT" Then
ThisDrawing.SendCommand ".pselect l ddchprop" & vbCr
booBlkIns = False
End If
End Sub
Private Sub AcadDocument_ObjectAdded(ByVal Object As Object)
If TypeOf Object Is AcadBlockReference Then
booBlkIns = True
Else
booBlkIns = False
End If
End Sub
Standard disclaimer:
I couldn't code my way out of a wet paper bag, nor do I try very hard to do so so use at your own risk. If it blows up and destroys your drawing, computer, car, girlfriend, etc., you have my sympathy but I will not in any way take responsibility for it happening.