如何替换表中的属性？

Set block = ThisDrawing.Blocks
For Each item In block
str = item.EntityName
 'Get t attributes
If item.EntityName = "AcDbAttributeDefinition" Then
if item.TextString ="DD25" then  item.TextString="HH38"
End If
End If
Next item

(defun c:Test ( / attDefId blk blkRecId enm tbl)
  (if
    (and
      (setq enm (car (entsel)))
      (setq tbl (vlax-ename->vla-object enm))
      (= "AcDbTable" (vla-get-objectname tbl))
      (/= 0 (setq blkRecId (vla-getblocktablerecordid tbl 0 0)))
    )
    (progn
      (setq blk (vla-objectidtoobject (vla-get-activedocument (vlax-get-acad-object)) blkRecId))
      (vlax-for obj blk
        (if
          (and
            (not attDefId)
            (= "AcDbAttributeDefinition" (vla-get-objectname obj))
          )
          (setq attDefId (vla-get-objectid obj))
        )
      )
      (if attDefId
        (vla-setblockattributevalue tbl 0 0 attDefId "New String")
      )
    )
  )
  (princ)
)