(defun C:VV ( )
(setvar "cmdecho" 0)
(setq en (ssget "TEXT,MTEXT"))
(setq en-date (entget (car en)))
(setq cenpt (cdr (assoc 10 en-date)))
(setq rr (cdr (assoc 1 en-date)))
(command "change" e "" "p" "la" "rr" "")
(princ)

逻辑有问题，ssget要循环改的。

ssget得到的是个选择集合 这个集可以是一个或多个图元 要 ssname