[LISP程序]：昨天下载的Lisp程序，看不懂，请帮忙注释一下！

bigcat9898

是一个将现行的文字内容转变成当前的日期

(defun c:rq(/ entn entl text high)
(setq entn (car (entsel "选择加年月日的文字")))
(setq entl (entget entn))
(setq ti (rtos (getvar "cdate") 2 6))
(setq yy (substr ti 1 4))
(setq mm (substr ti 5 2))
(setq mm (atoi mm))
(setq mm (itoa mm))
(setq dd (substr ti 7 2))
(setq dd (atoi dd))
(setq dd (itoa dd))
(setq text (strcat yy "." mm "." dd))
(setq entl (subst (cons 1 text) (assoc 1 entl) entl))
(entmod entl)
(princ)
)

非常实用，所以想搞懂，请晓东的大虾帮帮忙！小弟叩谢！

zxq0220

(defun c:rq(/ entn entl text high) ;定义命令RQ 斜线后是函数内部变量
(setq entn (car (entsel "选择加年月日的文字")));将选择的文字实体名存入entn
(setq entl (entget entn));读出实体表存入entl
(setq ti (rtos (getvar "cdate") 2 6));读出当前时间，并转成字符串存入变量ti
(setq yy (substr ti 1 4));从变量ti中取出年
(setq mm (substr ti 5 2));从变量ti中取出月
(setq mm (atoi mm));转换月成整数
(setq mm (itoa mm));转换月成字串（这两步是取消月份前的零）
(setq dd (substr ti 7 2));从变量ti中取出日
(setq dd (atoi dd));同上
(setq dd (itoa dd));同上
(setq text (strcat yy "." mm "." dd));合并年月日
(setq entl (subst (cons 1 text) (assoc 1 entl) entl));用新数据替换数据库
(entmod entl);数据库更新
(princ);平静无返回值退出
);函数定义结束

bigcat9898

非常感谢NO:166843，zxq0220大虾，建议斑竹对这样的热心高级会员加分。