IJCAD2019にて、下記のソースで既存のブロック定義を更新し、画面に反映させようとしていますが、UpdateAnonymousBlocks()で「メソッドまたは操作は実装されていません。」とエラーが出てしまいます。
AutoCAD2010では同じソースでエラーなく処理が可能だったのですがやり方が変わったのでしょうか。
また、他の手段による実装をご存知の方がいらっしゃいましたらご教示いただけると助かります。

Dim dwgPath = "ファイルパス"
Dim listItem As SymbolItemClass = DirectCast(SymbolListBox.SelectedItem, SymbolItemClass)
Dim id As ObjectId
Dim dbObj As New BlockTableRecord
Using dbA As Database = HostApplicationServices.WorkingDatabase()
    Try
        Using sourceDb As Database = New Database(False, False)
            sourceDb.ReadDwgFile(dwgPath, System.IO.FileShare.Read, False, Nothing)
            id = dbA.Insert(listItem.Name, sourceDb, False)

            Dim oTr As Transaction = dbA.TransactionManager.StartTransaction
            dbObj = DirectCast(oTr.GetObject(id, OpenMode.ForRead), BlockTableRecord)
            dbObj.UpdateAnonymousBlocks()
            oTr.Commit()
            oTr.Dispose()
        End Using
    Catch ex As System.Exception
        MsgBox(ex.Message, MsgBoxStyle.Exclamation, "VB.NET 例外")
    End Try
End Using