〔求助〕vba中我想构造要一个改物体属性的函数

subtlation

Public Sub ChangeAtt(ent As object, Att As String, value As Variant)
  With ent
  .Att = value
  End With
End Sub
其中ent表示实体，att是这个实体的一个属性，value是值
上面的程序运行到.Att = value时会出错，不知道有没有办法解决？
或者vba有自带的类似的函数？

mccad

2. ' 函数
   
3. Sub SetAttValue(AttEnt As AcadBlockReference, Tag As String, Value As String)
   
4.     Dim Att As AcadAttributeReference
   
5.     If AttEnt.HasAttributes = True Then
   
6.         Dim AttVal As Variant
   
7.         AttVal = AttEnt.GetAttributes
   
8.         Dim i As Integer
   
9.         For i = 0 To UBound(AttVal)
   
10.             If AttVal(i).TagString = Tag Then
    
11.                 AttVal(i).TextString = Value
    
12.             End If
    
13.         Next i
    
14.     End If
    
15. End Sub
    
16. ' 例子
    
17. Sub mjtd()
    
18.     Dim ent As AcadEntity
    
19.     Dim pnt As Variant
    
20.     ThisDrawing.Utility.GetEntity ent, pnt, "Get Block:"
    
21.     SetAttValue ent, "CLBJ", "mjtd.com"
    
22. End Sub
    

' 函数<br /> Sub SetAttValue(AttEnt As AcadBlockReference, Tag As String, Value As String)<br />     Dim Att As AcadAttributeReference<br />     If AttEnt.HasAttributes = True Then<br />         Dim AttVal As Variant<br />         AttVal = AttEnt.GetAttributes<br />         Dim i As Integer<br />         For i = 0 To UBound(AttVal)<br />             If AttVal(i).TagString = Tag Then<br />                 AttVal(i).TextString = Value<br />             End If<br />         Next i<br />     End If<br /> End Sub<br /> ' 例子<br /> Sub mjtd()<br />     Dim ent As AcadEntity<br />     Dim pnt As Variant<br />     ThisDrawing.Utility.GetEntity ent, pnt, "Get Block:"<br />     SetAttValue ent, "CLBJ", "mjtd.com"<br /> End Sub<br />