topic Re: Search name Tag names & modify in Visual LISP, AutoLISP and General Customization Forum

Search name Tag names & modify

Automohan — Mon, 01 Mar 2021 13:48:26 GMT

I have a huge number of Attribute blocks to be cleaned with multiple projects by Script !

A lisp will search for same Tags names & rename it as per

what ever you choose:

SCALE_1

SCALE_2

always upper tag name is the scale of A1 size

" below tag name is the scale of A3 size

You can choose whether

SCALE_1 & SCALE_2 or SCALE_A1 & SCALE_A3 or SCALE1 & SCALE2

Any help will be greatly appreciated.

Say block name is "Attribute Drawing Title"

Re: Search name Tag names & modify

Moshe-A — Mon, 01 Mar 2021 14:12:49 GMT

@Automohan hi,

In databse therse is no garanty that the list of attributes would be in the order it shows in Block Attribute Manager, how would the program know if the first SACLE is A1?

Instead of using two SCALE attributes, is it possiable to merge them and set it to "1:1000, 1:2000" (if it's mtext then it could be in two lines)

Moshe

Re: Search name Tag names & modify

maratovich — Mon, 01 Mar 2021 14:27:40 GMT

Please attach an example of the original dwg file, and an example of how it should be.

Re: Search name Tag names & modify

Automohan — Tue, 02 Mar 2021 08:25:11 GMT

Thanks for your suggestion to my thread, Yes Mtext will do one or more lines of text

so not possible with a script with load lisp to modify, I will do manually by opening each dwg,

there were available lisps to change Tag name.

Re: Search name Tag names & modify

pbejse — Thu, 04 Mar 2021 07:55:30 GMT

Are you looking to find a program that will detect mutiple tag names in a block / Rename / Re-populate the values?

Will there me more than just one named TAG that ahve multiples in a block?

Or you just looking for something specific to work on your block?

Re: Search name Tag names & modify

Automohan — Thu, 04 Mar 2021 13:33:27 GMT

Looking for a Lisp program to load with Script to run with multiple files...

I just wanted to correct the errors of the Tag names only, the values should remain same.....

Re: Search name Tag names & modify

pbejse — Thu, 04 Mar 2021 15:25:15 GMT

@Automohan wrote:

Looking for a Lisp program to load with Script to run with multiple files...

I just wanted to correct the errors of the Tag names only, the values should remain same.....

Seems to work with limited testing. [ multiple similar tags ]

(defun c:RDT (/ _vl-remove_f _replace aDoc ss e atbv f process) ; RenameDuplicateTag ;; pBe Mar 2021 ;;; (Defun _vl-remove_f (k l m) ((if m vl-remove-if vl-remove-if-not ) '(lambda (b) (member (Car b) k) ) l ) ) (defun _replace (l lst) (foreach m l (mapcar '(lambda (o / tbr) (setq tbr (assoc (Car m) lst)) (setq lst (subst (list o (cadr tbr)) tbr lst)) ) (Cadr m) ) ) lst ) (setq aDoc (vla-get-ActiveDocument (vlax-get-acad-object))) (if (setq ss (ssget "_X" '((0 . "INSERT") (66 . 1)))) (repeat (Setq i (sslength ss)) (setq e (vlax-ename->vla-object (ssname ss (setq i (1- i))))) (setq atbv (mapcar '(lambda (at) (list (vla-get-tagstring at) (vla-get-textstring at) ) ) (vlax-invoke e 'Getattributes) ) ) (cond ((setq f (assoc (setq fnm (vla-get-EffectiveName e)) process)) (setq process (vl-remove f process) process (Cons (list (Car f) (cons (list e (_replace d atbv)) (cadr f) ) ) process ) ) ) ((setq d ((lambda (b / l a s) (vlax-for atbb b (if (eq (Vla-get-objectname atbb) "AcDbAttributeDefinition" ) (setq l (cons (list (vla-get-tagstring atbb) atbb) l) ) ) ) (while (setq a (car l)) (if (> (length (setq p (_vl-remove_f (list (Car a)) l pbe_)) ) 1 ) (Setq s (cons p s)) ) (setq l (_vl-remove_f (list (Car a)) l t)) ) (mapcar '(lambda (j / n) (setq n 0) (list (Caar j) (mapcar '(lambda (k) (vla-put-tagstring (cadr k) (setq nn (strcat (car k) "_" (itoa (setq n (1+ n))))) ) nn ) (reverse j) ) ) ) s ) ) (vla-item (vla-get-blocks aDoc) fnm) ) ) (setq process (cons (list fnm (list (list e (_replace d atbv))) ) process ) ) ) ) ) ) (foreach blk process (command "_Attsync" "_name" (car blk)) (foreach blkobj (cadr blk) (foreach at (vlax-invoke (car blkobj) 'Getattributes) (if (setq m (assoc (vla-get-tagstring at) (cadr blkobj))) (Vla-put-textstring at (cadr m)) ) ) ) ) (princ) )

HTH

Re: Search name Tag names & modify

Automohan — Tue, 22 Feb 2022 14:18:38 GMT

Amazing, Thanks it works !

Sorry for the late reply !