[编程交流] 属性值更新全局

(setq tag "DT3" ss  (ssget "_X" '((0 . "INSERT") (66 . 1) (2 . "[color=red]Title-A1-Text[/color]")) ))

(defun C:TBP (/ adoc alayouts match tag)
   (setq 
tag  "DT3"
  match "(PART *"
)
 (setq adoc 
(vla-get-activedocument(vlax-get-acad-object))
alayouts 
(vla-get-layouts adoc))
 (vlax-for alayout alayouts  
     (vlax-for obj (vla-get-block 
alayout)
(if (and (eq "AcDbBlockReference"(vla-get-objectname 
obj))
  (eq (strcase (vla-get-effectivename obj)) 
"TITLE_A1_TEXT")
(vlax-write-enabled-p obj))
  (vl-some
'(lambda (x)
       (if
(and
    (eq (vla-get-tagstring x) 
tag)
    (wcmatch (strcase (setq str (vla-get-textstring 
x))) match)
  )
(vl-catch-all-error-p
(vl-catch-all-apply
'vla-put-textstring
       (list x 
(strcat "MEP " str))
     )
)
)
     )
    (vlax-invoke 
obj 'getattributes)
)
)
     )
)
   (princ)
 )