[编程交流] 修改文本。

(defun c:revtxt nil
 (
   (lambda ( s i / e a l ) (vl-load-com)
     (if s
       (while (setq e (ssname s (setq i (1+ i))))
         (if (wcmatch (setq a (cdr (assoc 1 (setq l (entget e))))) "*x*")
           (entupd
             (cdr
               (assoc -1
                 (entmod
                   (subst
                     (cons 1 (substr a 1 (1+ (vl-string-position 120 a)))) (assoc 1 l) l
                   )
                 )
               )
             )
           )
         )
       )
     )
   )
   (ssget "_:L" '((0 . "TEXT"))) -1
 )
 (princ)
)