添加块属性程序

kvstone

首先，我有个疑问，为Blockreference 添加新的属性，是否需要先给 BlockTableRecored 添加属性，在对每个BlockReference添加属性

然后，下面的程序是为了给BlockTableRecord添加新属性，程序可以运行，没有任何错误，但是属性并没有添加成功，请大家帮忙看看，挑挑毛病在哪

1. Public Sub AddAttribute(ByVal attTag As String, ByVal attText As String)
   
2.         Dim doc As Document = Application.DocumentManager.MdiActiveDocument
   
3.         Dim attRef As AttributeReference
   
4. 
   
5.         Dim blkTr As BlockTableRecord
   
6. 
   
7.         Using docLock As DocumentLock = doc.LockDocument
   
8.             Using trs As Transaction = doc.Database.TransactionManager.StartTransaction()
   
9. 
   
10.                 bkRef = trs.GetObject(MyClass.BlockId, OpenMode.ForRead)
    
11. 
    
12.                 If bkRef.IsDynamicBlock Then
    
13.                     _blkTbRecId = bkRef.DynamicBlockTableRecord
    
14.                 Else
    
15.                     _blkTbRecId = bkRef.BlockTableRecord
    
16.                 End If
    
17.                 blkTr = TryCast(trs.GetObject(_blkTbRecId, OpenMode.ForWrite), BlockTableRecord)
    
18. 
    
19.                 Dim attDef As AttributeDefinition = New AttributeDefinition(blkTr.Origin, attText, attTag, "", doc.Database.Textstyle)
    
20. 
    
21.                 blkTr.AppendEntity(attDef)
    
22.                 trs.AddNewlyCreatedDBObject(attDef, True)
    
23. 
    
24.                 trs.Commit()
    
25.             End Using
    
26.         End Using
    
27.     End Sub
    

Public Sub AddAttribute(ByVal attTag As String, ByVal attText As String)<br />         Dim doc As Document = Application.DocumentManager.MdiActiveDocument<br />         Dim attRef As AttributeReference<br /> <br />         Dim blkTr As BlockTableRecord<br /> <br />         Using docLock As DocumentLock = doc.LockDocument<br />             Using trs As Transaction = doc.Database.TransactionManager.StartTransaction()<br /> <br />                 bkRef = trs.GetObject(MyClass.BlockId, OpenMode.ForRead)<br /> <br />                 If bkRef.IsDynamicBlock Then<br />                     _blkTbRecId = bkRef.DynamicBlockTableRecord<br />                 Else<br />                     _blkTbRecId = bkRef.BlockTableRecord<br />                 End If<br />                 blkTr = TryCast(trs.GetObject(_blkTbRecId, OpenMode.ForWrite), BlockTableRecord)<br /> <br />                 Dim attDef As AttributeDefinition = New AttributeDefinition(blkTr.Origin, attText, attTag, "", doc.Database.Textstyle)<br /> <br />                 blkTr.AppendEntity(attDef)<br />                 trs.AddNewlyCreatedDBObject(attDef, True)<br /> <br />                 trs.Commit()<br />             End Using<br />         End Using<br />     End Sub<br />

sieben

1，为Blockreference 添加新的属性，是否需要先给 BlockTableRecored 添加属性
答：需要
2，另外在生成块参考Blockreference 时还需要把BlockTableRecored 的属性重新往Blockreference添加一次，否则不会显示

sieben

Transaction ctrans, BlockReference bref, BlockTableRecord btr

          foreach (ObjectId idAtt in btr)
          {
            Entity ent = (Entity)ctrans.GetObject(idAtt, OpenMode.ForRead);
            if (ent is AttributeDefinition)
            {
              AttributeDefinition attDef = (AttributeDefinition)ent;
              AttributeReference attRef = new AttributeReference();
              attRef.SetAttributeFromBlock(attDef, bref.BlockTransform);        
                attRef.TextString = attDef.TextString; //或设置别的值
              bref.AttributeCollection.AppendAttribute(attRef);
              ctrans.AddNewlyCreatedDBObject(attRef, true);
            }
          }