(defun C:CHGSLNT (/ #A #B #C)
 (setq #A (car (entsel "Select text to change obliquing angle: ")))
 (setq #B (getangle (strcat "\nNew obliquing angle <"
 (angtos (cdr (assoc 51 (setq #C (entget #A))))) ">: ")))
 (setq #C (subst (cons 51 #B) (assoc 51 #C) #C))
 (entmod #C)
 (prompt (strcat "\nChanged obliquing angle to: " (angtos #B) "\n"))
 (princ))