如何遍历块属性

hnzgs

2. Dim db As Database = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Database
   
3. Dim ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
   
4. Dim ent As PromptEntityResult = ed.GetEntity("请选择图框块")
   
5.         '判断是否选择成功
   
6.         If ent.Status = PromptStatus.OK Then
   
7.             Using transaction As Transaction = db.TransactionManager.StartTransaction()
   
8.                 '获取选择的实体
   
9.                 Dim entity1 As Entity
   
10.                 entity1 = DirectCast(transaction.GetObject(ent.ObjectId, OpenMode.ForRead, True), Entity)

Dim db As Database = Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Database<br /> Dim ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor<br /> Dim ent As PromptEntityResult = ed.GetEntity("请选择图框块")<br />         '判断是否选择成功<br />         If ent.Status = PromptStatus.OK Then<br />             Using transaction As Transaction = db.TransactionManager.StartTransaction()<br />                 '获取选择的实体<br />                 Dim entity1 As Entity<br />                 entity1 = DirectCast(transaction.GetObject(ent.ObjectId, OpenMode.ForRead, True), Entity)

如上代码，选择一个块后，如何实现遍历该块里的所有属性？（需要块中属性名称及属性值）