[编程交流] 检索用户prof的简单方法

(defun c:STAMP (/ opt date ent text)
 (initget 1 "Date Name")
 (setq opt (getkword "\nSpecify stamp [Date/Name]: "))
 (while
   (not
     (and
(setq ent (car (entsel "\nSelect text to modify: ")))
(eq "TEXT" (cdr (assoc 0 (setq ent (entget ent)))))
     )
   )
  (prompt "\n**Please select a text to modify!**")
 )
 (if (eq "Date" opt)
   (progn
     (setq date (rtos (getvar "CDATE") 2 0))
     (setq text (strcat (substr date 5 2) "/" (substr date 7 2) "/" (substr date 3 2)))
   )
   [b][color=red](setq text (getvar "???"))[/color][/b]
 )
 (entmod (subst (cons 1 text)(assoc 1 ent) ent))
 (princ)
)

(defun c:STAMP (/ *error* opt date ent text)
 (defun *error* (msg)
   (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
        (princ (strcat "\n** Error: " msg " **"))
   )
   (princ)
 )
   (initget 1 "Date Name")
   (setq opt (getkword "\nSpecify stamp [Date/Name]: "))
   (while
     (not
       (and
         (setq ent (car (entsel "\nSelect text to modify: ")))
         (setq ent (entget ent))
         (OR
           (eq "TEXT" (cdr (assoc 0 ent)))
           (eq "MTEXT" (cdr (assoc 0 ent)))
         )
       )
     )
    (prompt "\n**Please select a text to modify!**")
   )
   (if (eq "Date" opt)
     (progn
       (setq date (rtos (getvar "CDATE") 2 0))
       (setq text (strcat (substr date 5 2) "/" (substr date 7 2) "/" (substr date 3 2)))
     )
     (setq text (getvar "CPROFILE"))
   )
   (entmod (subst (cons 1 text)(assoc 1 ent) ent))
   (princ)
)