修改文字为当前系统时间

wang.bay

;;;修改文字为今天系统的日期
(defun C:rq()
   (setq ty (getvar "textstyle"))
   (setq cm(getvar "cmdecho"))
   (setq lay(getvar "clayer"))
   (setvar "cmdecho" 0)
   (setq mytext (menucmd "M=$(edtime,$(getvar,date), YYYY/Mo/DD)"))
   (prompt "\n请选择需要编辑的文字：")
   (setq OBJ (entsel))
   (SETQ TEMP (CONS 1 mytext))
   (setq result (subst temp (assoc 1 (entget (car OBJ))) (entget (car OBJ))))
   (entmod result)
   (SETQ TEMP (CONS 62 50))
   (setq result (subst temp (assoc 62 (entget (car OBJ))) (entget (car OBJ))))
   (entmod result)
   (setvar "textstyle" ty)
   (setvar "cmdecho" cm)
   (setvar "clayer" lay)
(princ)
)