Replace characters in a text block

[Anonymous]

I have a text block, block name is "TITLEBLOCKTEXT"

The attribute tag is "PNUM"

I want to replace all instances of the character "A" with "J"

Example = A001 changed to J001.

I found how to change text strings, but nothing related to text in a block.  Any help is much appreciated!!

[Kent1Cooper]

Will FIND do what you want?  It can change text content within Attributes.

[Moshe-A · Accepted solution]

@Anonymous ,

check this one.

Moshe

(defun c:A2J (/ ss old new)
 (if (setq ss (ssget '((0 . "insert") (2 . "titleblocktext") (66 . 1))))
  (foreach ename (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
   (if (not
          (vl-catch-all-error-p
            (setq old (vl-catch-all-apply
                               'getpropertyvalue (list ename "pnum")))
          )
       )
    (if (or
          (setq new (vl-string-subst "J" "A" old))
          (setq new (vl-string-subst "j" "a" old))
        )
     (vl-catch-all-apply 'setpropertyvalue (list ename "pnum" new))
    ); if
   ); if
  ); foreach  
 )

 (princ) 
)  

[Anonymous]

That is going to find all letter A and I only want to replace the character in one attribute (PNUM).  The block contains 20+ attributes, so selecting it returns all character A's.

[Anonymous]

It works great except it is asking for me to select objects.  Can it select the block text automatically rather than having to select it manually?  

I have 200 drawings I need to change

[Anonymous]

Changing the top line to..

(setq ss (ssget "x" '((0 . "insert") (66 . 1) (2 . "TITLEBLOCKTEXT"))))

Makes it work perfectly.