;;;Standalone tool for setting modifier in CLG layernames.  (uses USTR MKLAYR)
(defun setuser ( )
  (setq usrd (ustr 0 "\nEnter User Defined Group Code " usrd nil))
  (setq curlset (strcat (if mjrg mjrg "?")(if llt llt "-")(if prod prod "????")(if colra colra (if colr colr "?"))(if modf modf "")(if usrd (strcat "-" usrd) "")))
  (eval curlset)
);defun