0 Members and 2 Guests are viewing this topic.
Set block = ThisDrawing.BlocksFor Each item In blockstr = item.EntityName 'Get t attributesIf item.EntityName = "AcDbAttributeDefinition" Thenif item.TextString ="DD25" then item.TextString="HH38"End IfEnd IfNext item