Can I insert attribute in all current opened drawing's layout?

[skchui6159]

(defun reptag (tag newvalue ent / alist )
(if (and (= (type ent) (read "VLA-OBJECT")) newvalue)
(progn
(setq alist ( vlax-invoke ent 'GetAttributes))
(foreach a alist
(if (= (vla-get-tagstring a) tag)
(vlax-put-property a 'TextString newvalue)
);i
);fe
);p
(if (= 'ename (type ent)) (reptag tag newvalue (vlax-ename->vla-object ent)));i
);i
(princ));d

(defun c:OS ( / ent ss1)
;(setq ent (car (entsel)))
(foreach Layout (layoutlist)
(setq dateofinput "07/24")
(setq ss1 (ssget '(788 190 0)))
(setq ent (ssname ss1 0))
(reptag "ORIGINAL" "ORIGINAL" ent)
(reptag "SIGNED" "SIGNED" ent)
(reptag "GSTAUTHDATE" dateofinput ent)
(reptag "GSTFCHECKDATE" dateofinput ent)
(reptag "GST2CHECKDATE" dateofinput ent)
(reptag "GST1CHECKDATE" dateofinput ent)
(reptag "GSTDRAWDATE" dateofinput ent)
); foreach end
(princ))

The above lisp can run only single layout, but I want to apply all current opened drawing's? Anyone can help? Thx

[skchui6159]

Change one Block only. Block Name is "TITLE BLOCK". Tag Name is "GSTDWGNO". Thank you.

[paullimapa · Accepted solution]

Try attached BW7.lwp

[skchui6159]

Thank you for very much!  CHEERS! It works great!

[paullimapa]

You are welcome…cheers!!!

[skchui6159]

.

[skchui6159]

@paullimapa A more question, how to change the "Test Style" and "Justification" to Center , height for Specific "tag" in a Block using Lisp, thank you🤣

[paullimapa]

Since that’s a new topic, you should create a new post to get maximum feedback 

[skchui6159]

@paullimapa OK, thx