0 Members and 1 Guest 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