Draw Order Problem with Dynamic Block

csharp

        [CommandMethod("DOinBlock")]
        public static void RunMyCommand()
        {
            Document dwg = Application.DocumentManager.MdiActiveDocument;
            Editor ed = dwg.Editor;

            //Ask user to select a block. In real world, I use code
            //to select all targeting blocks by its name, so that
            //user does not have to select block manually
            PromptEntityOptions opt = new PromptEntityOptions(
                "nSelect a block:");
            opt.SetRejectMessage("\nInvalid: not a block.");
            opt.AddAllowedClass(typeof(BlockReference), true);
            PromptEntityResult res = ed.GetEntity(opt);
            if (res.Status == PromptStatus.OK)
            {
                SetDrawOrderInBlock(dwg, res.ObjectId);
                ed.Regen();
            }
            else
            {
                ed.WriteMessage("\n*Cancel*");
            }
            Autodesk.AutoCAD.Internal.Utils.PostCommandPrompt();
        }

        private static void SetDrawOrderInBlock(Document dwg, ObjectId blkId)
        {
            using (Transaction tran = dwg.TransactionManager.StartTransaction())
            {
                BlockReference bref = (BlockReference)tran.GetObject(blkId, OpenMode.ForRead);
                BlockTableRecord bdef = (BlockTableRecord)tran.GetObject(bref.BlockTableRecord, OpenMode.ForWrite);
                DrawOrderTable doTbl = (DrawOrderTable)tran.GetObject(bdef.DrawOrderTableId, OpenMode.ForWrite);
                ObjectIdCollection col = new ObjectIdCollection();
                foreach (ObjectId id in bdef)
                {
                    if (id.ObjectClass.DxfName.ToUpper() == "HATCH")
                    {
                        col.Add(id);
                    }
                }
                if (col.Count > 0)
                {
                    doTbl.MoveToBottom(col);
                }
                tran.Commit();
            }
        }