Lee,
The Bedit, followed by attsync is ok but it strips all my values... I have attempted to solve this through the following:
(defun BLOCK_TAG_REPLACE (sBlock sNewString sOldPrompt)
(setq ss1 (ssget "X"(list (cons 0 "INSERT")(cons 2 sBlock)(cons 410(getvar "CTAB")))))
(setq entname (ssname ss1 0))
(setq titletext (vlax-ename->vla-object entname))
(setq attributes (vlax-invoke titletext "GetAttributes"))
(foreach attrib attributes
(setq temp (vla-get-PromptString attrib))
(alert temp)
(if
(= (vla-get-PromptString attrib) sOldPrompt)
(vla-put-TagString attrib sNewString)
)
)
)
(DEFUN C:GTTEST ()
(BLOCK_TAG_REPLACE "A1-TITLE" "SHT" "Drawing Number")
)
In manipulating the above, I can easily get it to alter based on the current tag string. However, with many tags being XXXX it is rather difficult to distinguish them.
The only problem I am having is obtaining the promptstring... Any suggestions?