Da es vielleicht noch jemanden geben könnte, den es interessiert, antworte ich mir selbst, auch wenn das ein wenig schräg erscheinen mag.
Die Lösung:
Gar nicht verwirren lassen, sondern tatsächlich einfach nur denselben Block einfügen und wieder löschen:
Sub blockrefresh(block_dateiname As String)
Dim in_point(2) As Double
Dim temp_block As AcadBlockReference
in_point(0) = 0
in_point(1) = 0
in_point(2) = 0
Set temp_block = ThisDrawing.ModelSpace.InsertBlock(in_point, blockdateiname, 1, 1, 1, 0)
tempblock.Delete
End Sub
Wenn der Block vorher existiert hat, ist er nun entsprechend der Änderungen in der Datei angepasst. Dies gilt dann auch für Beigaben wie z.B. Attributwertänderungen, etc.
Viel Spass damit...
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP