Topic: Xref Attacher Identifier

[whdjr]

Does anyone have any partial code or ideas of how this could be done in a small office with less than 10 users?

I would like a way that if I open a file that has an xref in it I can click on the xref an it will tell me what user attached that xref.  Would this be some xdata that is tagged onto the xref that collects the username variable at the time they attached the xref?

All ideas and suggestions would be helpful.

[ronjonp]

maybe incorporate this into a reactor:

Code: [Select]

(defun c:putx (/ keyw uname DWGNAME SS E count XD)
  (defun timedate (/ cdate ctime ampm stime)
    (setq cdate (rtos (fix (getvar 'cdate)) 2 0)
  ctime (rtos (rem (getvar 'cdate) 1) 2 6)
  ampm (if (<= (atof (substr ctime 3 2)) 12)
  "AM"
  "PM"
)
  stime (strcat
  (substr cdate 5 2)
  "-"
  (substr cdate 7 2)
  "-"
  (substr cdate 1 4)
  " @ "
  (substr ctime 3 2)
  ":"
  (substr ctime 5 2)
  ":"
  ampm
)
    )
  )
  (setvar "cmdecho" 0)
  (initget 1 "Select All")
  (setq Keyw (getkword "\nEnter selection option (Select / All): "))
  (cond
    ((= Keyw "Select") (setq SS (ssget)))
    ((= Keyw "All") (setq SS (ssget "X")))
  )
  (if (not (tblsearch "APPID" "XREF_INFO"))
    (regapp "XREF_INFO")
  )
  (setq uname (getenv "username"))
  (setq Count 0)
  (repeat (sslength SS)
    (setq e (entget (ssname SS Count)))
    (if (not (assoc -3 e))
      (progn
(setq xd (list (list -3
     (list "XREF_INFO"
   (cons 1000
(strcat "Attached by "
uname
" on "
(timedate)
)
   )
     )
       )
)
)
(setq e (append e xd))
(entmod e)
(setq Count (+ Count 1))
      )
    )
  )
  (princ)
)