리습검토 부탁드립니다~~ 제발요~~

거리 및 각도 재는 리습인데요..
2008할때는 잘 되다가 2010로 갈아타고 나서부터 각도부분에서 오류가 납니다..ㅜㅜ
어디가 문제인지 고수님들 부탁드립니다.

(defun c:d()
(setq os (getvar “osmode”))
(setvar “cmdecho” 0)
(setvar “osmode” os)
(setq p1 (getpoint “n1ST point:”))
(setvar “osmode” os)
(setq p2 (getpoint p1 “n2ND Point:”))
(setvar “osmode” os)
(setq dst (distance p1 p2))
(princ (strcat “nDelta X = ” (rtos (- (car p1) (car p2)) 2 4) ” mm”))
(princ (strcat ” , Delta Y = ” (rtos (- (cadr p1) (cadr p2)) 2 4) ” mm  “))
(princ (strcat “n거리= ” (rtos dst 2 4) ” mm”))
(princ (strcat ” , 각도 = ” (rtos (rtd (angle p1 p2)) 2 4) ” 도”))
(setvar “osmode” os)
(princ)
)