Lisp or VBA file to update multiple drawing titleblocks

[logan_ownbey5UKQZ]

I am looking to create an LISP or VBA file that will update all drawing title block attributes in a folder. It needs to get all the attributes in the title block and all the user to select which attributes to update. It then needs to apply those updates to each drawing in the folder and save those drawings.

[Sea-Haven]

A couple of answers and a question.

"to each drawing in the folder" Are the title blocks in Model or in layouts within a dwg ?

This function gets a list of dwgs.

(setq dwgs (vl-directory-files "d:/drawings" "*.dwg"))

You can either use a script or OBDX to do what you want and change an attribute value.

Re select attribute simplest way is to have at least one dwg open and pick the attribute this will return Tagname and block name. You enter new value and current dwg is updated, others are also updated. 

(setq ent (entget (car (nentsel "\nPick a attribute "))))
(setq tagname (cdr (assoc 2 ent)))
(setq tagstr (cdr (assoc 1 ent)))
(setq bname (cdr (assoc 2 (entget (cdr (assoc 330 ent)))))) ; thanks Lee-mac