不知道这个函数怎么用法获取子对象，大家帮帮忙给我段代码啊谢谢
Dim db As Database = AcadApp.DocumentManager.MdiActiveDocument.Database
Using trans As Transaction = db.TransactionManager.StartTransaction()
Dim brf As BlockReference = trans.GetObject(id, OpenMode.ForRead)
'''这里如何遍历子对象
End Using
置顶卡
