[求助]此程序如何能對屬性文字做修改

ljs026

(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)
) 如何能对属性文字做修改

meflying

一般不会有人用属性当文字使用的，一般都是做成属性块，而根据块的不同，属性文字在块中的位置及属性的TAG都不同，所以必须针对不同的块单独编程的。。。