topic Re: Replace characters in a text block in Visual LISP, AutoLISP and General Customization Forum

Replace characters in a text block

Anonymous — Wed, 25 Nov 2020 18:27:30 GMT

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!!

Re: Replace characters in a text block

Kent1Cooper — Wed, 25 Nov 2020 19:04:51 GMT

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

Re: Replace characters in a text block

Moshe-A — Wed, 25 Nov 2020 19:06:39 GMT

@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) )

Re: Replace characters in a text block

Anonymous — Wed, 25 Nov 2020 19:08:13 GMT

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.

Re: Replace characters in a text block

Anonymous — Wed, 25 Nov 2020 19:17:41 GMT

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

Re: Replace characters in a text block

Anonymous — Wed, 25 Nov 2020 19:25:07 GMT

Changing the top line to..

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

Makes it work perfectly.