match only rotation of text lisp

(defun mangerr (msg)
  (if (null wasworld) (command "_.ucs" "_p"))
  (if msg (princ msg))
  (if olderr (setq *error* olderr))
  (princ)
)

(defun c:mang (/ olderr wasworld ent elist orient sset ssqty index ssqty next nxlst nxrot nwlst)
  (setq olderr *error* *error* mangerr)
  (command "_.undo" "_g")
  (if (= (getvar "worlducs") 1)(setq wasworld T))
  (if (null wasworld) (command ".ucs" "w"))
  (setq ent (entsel))
  (setq elist (entget (car ent)))
  (setq orient (assoc 50 elist))
  (prompt "\nSelect objects to match rotation:  ")
  (setq sset (ssget))
  (setq ssqty (sslength sset))
  (setq index 0)
  (repeat ssqty
     (setq next (ssname sset  index))
     (setq nxlst (entget next))
     (setq nxrot (assoc 50 nxlst))
     (setq nwlst (subst orient nxrot nxlst))
     (entmod nwlst)
     (setq index (1+ index))
  )
  (if (null wasworld)(command "_.ucs" "_p"))
  (setq *error* olderr)
  (command "_.undo" "_end")
  (princ)
)