테이블속성에 있는 회전값을 텍스트의 회전값에 입력시켜 자동으로 텍스트를 회전시키는 리습

테이블속성에 있는 회전값을 텍스트의 회전값에 입력시켜 자동으로 텍스트를 회전시키는 리습입니다
그런데 예전 버전이 낮을때는 작동이 되었던것같은데 버전이 높은캐드에서는 작동이 안됩니다
문제가 뭔지 알수가 없어서 글을 올리니 고수님들의 좋은 의견을 부탁드립니다

(defun C:rot (/ ss n en get el)
  (setq ss (ssget))
  (setq n 0)
  (repeat (sslength ss)
    (setq en (ssname ss n))
    (setq get(entget en))
    (setq el (ade_odgetfield en "rot" "Rotation" 0))
    (setq get(subst (cons 51 el)(assoc 51 get) get))
    (entmod get)
    (setq n (1+ n))))

리습은위와 같이 짜여진 간단한 리습입니다