;-------------------------------------------------------------------------------
; c:Rev1NAME - Updates the date attributes on all tabs
;-------------------------------------------------------------------------------
(defun c:Rev1NAME (/ Ctab$ Layout$)
(setq Ctab$ (getvar "CTAB"))
(foreach Layout$ (layoutlist)
(command "LAYOUT" "S" Layout$)
;Replace the following with your blocknames and attribute tags
(PutBlkAttrib "Revtitle" "NAME" "D.K.")
);foreach
(setvar "CTAB" Ctab$)
(princ)
);defun c:Rev1NAME
One way to do it would be to get user login information. Let's say your users logins are DKing or DanielK or DanielKing. If it's the first two, you can use getvar, substr, strcase and strlen functions to create a login based function and replace the "D.K." above with your new function. However, if you want something simpler, because of the third condition or lack of consistency in login name convention, you can create a function with a list of user login names and initials, then still have the computer read the login name through getvar and set the initials from that. Something like:
(list (cons "DanielKing" "D.K.")
(cons "JoeW" "J.W.")
(cons "TBerns" "T.B.")
)
Try it out.