Below is a copy/paste of the code that is in your zip file. Where in this does the values get written back to the drawing properties? How do I set what drawing property gets written to? I have a value that I would like to write to the "Title" drawing property.
Thanks
(defun C:CHG-ATT-TAGS (/ ss blk Tagname NewValue Tag x atts att)
; Change Attribute Tag Values
(vl-load-com)
(setq ss nil)
(setq Tagname (strcase (getstring "\nAttribute TagName:")))
(setq NewValue (getstring 1 "\nNew Attribute Value String:"))
(setq Tagname "XX") ; name of attribute tag
(setq NewValue " ") ; just replace with a space character
(setq ss (ssget "_X" (list (cons 0 "INSERT") (cons 66 1))))
; get just Blocks w/ attr
(if (/= ss nil)
(progn
(setq x 0)
(repeat (sslength ss)
(setq blk (vlax-ename->vla-object (ssname ss x)))
(if (safearray-value
(setq atts (vlax-variant-value (vla-getattributes blk)))
)
(progn
(setq atts (vlax-safearray->list
(vlax-variant-value (vla-getattributes blk))
)
)
(foreach att atts
(setq Tag (strcase (vla-get-tagstring att)))
(if (= Tag (strcase Tagname))
(vla-put-textstring att NewValue)
) ; if
) ; foreach
) ; progn
) ; if
(setq x (+ x 1))
) ; repeat length ss
) ; progn
) ; if
(princ)
) ; end function
(C:CHG-ATT-TAGS) ; run function when loaded - for scripting..
(princ) ; silent load