属性块名称修改？

幸运草

请问用vb.net如何修改属性块的名称？

guohq

如果要更改块名称，则可以这样更改

2. ''' <summary>
   
3.     ''' 更改块定义的名称
   
4.     ''' </summary>
   
5.     ''' <param name="OldName">旧名称</param>
   
6.     ''' <param name="NewName">新名称</param>
   
7.     ''' <returns></returns>
   
8.     ''' <remarks></remarks>
   
9.     Public Function RenameBlockDef(ByVal OldName As String, ByVal NewName As String) As Boolean
   
10.         Using Trans As Transaction = DB.TransactionManager.StartTransaction
    
11.             Dim BlkTable As BlockTable = Trans.GetObject(MyBase.DB.BlockTableId, OpenMode.ForRead)
    
12.             If BlkTable.Has(OldName) = True AndAlso BlkTable.Has(NewName) = False Then
    
13.                 Dim BlkR As BlockTableRecord = Trans.GetObject(BlkTable.Item(OldName), OpenMode.ForWrite)
    
14.                 BlkR.Name = NewName
    
15.                 RenameBlockDef = True
    
16.             Else
    
17.                 RenameBlockDef = False
    
18.             End If
    
19.             Trans.Commit()
    
20.         End Using
    
21.     End Function

''' <summary><br />     ''' 更改块定义的名称<br />     ''' </summary><br />     ''' <param name="OldName">旧名称</param><br />     ''' <param name="NewName">新名称</param><br />     ''' <returns></returns><br />     ''' <remarks></remarks><br />     Public Function RenameBlockDef(ByVal OldName As String, ByVal NewName As String) As Boolean<br />         Using Trans As Transaction = DB.TransactionManager.StartTransaction<br />             Dim BlkTable As BlockTable = Trans.GetObject(MyBase.DB.BlockTableId, OpenMode.ForRead)<br />             If BlkTable.Has(OldName) = True AndAlso BlkTable.Has(NewName) = False Then<br />                 Dim BlkR As BlockTableRecord = Trans.GetObject(BlkTable.Item(OldName), OpenMode.ForWrite)<br />                 BlkR.Name = NewName<br />                 RenameBlockDef = True<br />             Else<br />                 RenameBlockDef = False<br />             End If<br />             Trans.Commit()<br />         End Using<br />     End Function

guohq

如果要修改块参照里的属性，则可以

2. ''' <summary>
   
3.     ''' 更改块中属性名称
   
4.     ''' </summary>
   
5.     ''' <param name="IDs">块参照ID</param>
   
6.     ''' <param name="OldAttName">旧名称</param>
   
7.     ''' <param name="NewAttName">新名称</param>
   
8.     ''' <param name="RenameAll">遇到多个同名AttName，如果RenameAll = True ,则全部重新命名，否则 改第一个</param>
   
9.     ''' <returns>修改成功返回 True ,不成功则返回 False</returns>
   
10.     ''' <remarks></remarks>
    
11.     Public Function ReNameAtt(ByVal IDs() As ObjectId, ByVal OldAttName As String, ByVal NewAttName As String, Optional ByVal RenameAll As Boolean = True) As Boolean()
    
12.        Dim rtn(IDs.Length - 1) As Boolean
    
13.         OldAttName = OldAttName.Trim.ToUpper : NewAttName = NewAttName.Trim.ToUpper
    
14.         Using Trans As Transaction = DB.TransactionManager.StartTransaction
    
15.             Dim obj As DBObject = Nothing, blk As BlockReference = Nothing, Atts As AttributeCollection = Nothing,Att As AttributeReference = Nothing
    
16.             For I As Integer = 0 To IDs.Length - 1
    
17.                 obj = Trans.GetObject(IDs(I), OpenMode.ForWrite)
    
18.                 If TypeOf obj Is BlockReference Then
    
19.                     blk = obj
    
20.                     Atts = blk.AttributeCollection
    
21.                     For J As Integer = 0 To Atts.Count - 1
    
22.                         Att = Trans.GetObject(Atts(J), OpenMode.ForWrite)
    
23.                         If Att.Tag.ToUpper = OldAttName Then
    
24.                             Att.Tag = NewAttName
    
25.                             If RenameAll = False Then
    
26.                                 Continue For
    
27.                             End If
    
28.                         End If
    
29.                     Next
    
30.                     rtn(I) = True
    
31.                 End If
    
32.             Next
    
33.             Trans.Commit()
    
34.         End Using
    
35.         ReNameAtt = rtn
    
36.     End Function

''' <summary><br />     ''' 更改块中属性名称<br />     ''' </summary><br />     ''' <param name="IDs">块参照ID</param><br />     ''' <param name="OldAttName">旧名称</param><br />     ''' <param name="NewAttName">新名称</param><br />     ''' <param name="RenameAll">遇到多个同名AttName，如果RenameAll = True ,则全部重新命名，否则 改第一个</param><br />     ''' <returns>修改成功返回 True ,不成功则返回 False</returns><br />     ''' <remarks></remarks><br />     Public Function ReNameAtt(ByVal IDs() As ObjectId, ByVal OldAttName As String, ByVal NewAttName As String, Optional ByVal RenameAll As Boolean = True) As Boolean()<br />        Dim rtn(IDs.Length - 1) As Boolean<br />         OldAttName = OldAttName.Trim.ToUpper : NewAttName = NewAttName.Trim.ToUpper<br />         Using Trans As Transaction = DB.TransactionManager.StartTransaction<br />             Dim obj As DBObject = Nothing, blk As BlockReference = Nothing, Atts As AttributeCollection = Nothing,Att As AttributeReference = Nothing<br />             For I As Integer = 0 To IDs.Length - 1<br />                 obj = Trans.GetObject(IDs(I), OpenMode.ForWrite)<br />                 If TypeOf obj Is BlockReference Then<br />                     blk = obj<br />                     Atts = blk.AttributeCollection<br />                     For J As Integer = 0 To Atts.Count - 1<br />                         Att = Trans.GetObject(Atts(J), OpenMode.ForWrite)<br />                         If Att.Tag.ToUpper = OldAttName Then<br />                             Att.Tag = NewAttName<br />                             If RenameAll = False Then<br />                                 Continue For<br />                             End If<br />                         End If<br />                     Next<br />                     rtn(I) = True<br />                 End If<br />             Next<br />             Trans.Commit()<br />         End Using<br />         ReNameAtt = rtn<br />     End Function

mokson

看见代码就头晕了。