Rtext path changer (AutoLISP tool)

Rtext path changer changes the path of a selected rtext object.

(DEFUN
   C:RTPATH (/ EG ES NEWPATH OLDPATH)
  (SETQ ES (ENTSEL))
  (SETQ EG (ENTGET (CAR ES)))
  (SETQ OLDPATH (CDR (ASSOC 1 EG)))
  (SETQ NEWPATH (GETSTRING (STRCAT "\nOld path: " OLDPATH " New path: ")))
  (ENTMOD (SUBST (CONS 1 NEWPATH) (ASSOC 1 EG) EG))
)