Topic: Global Attribute Edit w/ Widcard

[GDF]

I trying to use Peter's function with a wildcard to reset a tags value.
(AttributeStringSubst "SYMRM" "NOTE2" wildcard "")
Need help, please.

Code - Auto/Visual Lisp: [Select]

1. ;;;(AttributeStringSubst BlockName TagString OldText NewText)
2. ;;;Peter Jamtgaard
3. (defun AttributeStringSubst
4.                                  (strBlockName    strTagString
5.                                   strPattern      strNewString
6.                                   /               strString
7.                                  )
8.   (vlax-for
9.             objLayout
10.                      (vla-get-layouts
11.                        (vla-get-activedocument (vlax-get-acad-object))
12.                      )
13.     (vlax-for
14.               objBlock
15.                       (vla-get-block objLayout)
16.       (if (and (wcmatch
17.                  (vla-get-objectname objBlock)
18.                  "AcDbBlockReference,AcDbMInsertBlock"
19.                )
20.                (wcmatch (strcase strBlockName)
21.                         (strcase (vla-get-name objBlock))
22.                )
23.                (= (vla-get-hasattributes objBlock) :vlax-true)
24.           )
25.         (foreach
26.                   objAttribute
27.                               (vlax-invoke objBlock "getattributes")
28.           (setq strString (vla-get-textstring objAttribute))
29.           (if (wcmatch
30.                 (strcase (vla-get-tagstring objAttribute))
31.                 (strcase strTagString)
32.               )
33.             (if (not (vl-string-search strPattern strNewString))
34.               (progn (while (vl-string-search strPattern strString 0)
35.                        (setq strString
36.                               (vl-string-subst strNewString strPattern strString)
37.                        )
38.                      )
39.                      (vla-put-textstring objAttribute strString)
40.               )
41.             )
42.           )
43.         )
44.       )
45.     )
46.   )
47.   (princ))
48.  

[Lee Mac]

Perhaps this can help Gary -
https://www.theswamp.org/index.php?topic=58363.msg615317#msg615317

Though, I'm unsure what you mean by 'reset' - do you mean revert to the default value held by the attribute definition?

[GDF]

Thanks Lee...works perfectly!!!