십자선 회전 리습

도면상 라인을 선택하면 그 라인의 기울기에 맞춰서

십자선의 회전되는 리습인데요

실행하면

오류: no function definition: RTD 라고 뜨고 실행이 안됩니다.

이전에는 잘 사용했는데요

2017 버전에서는 안되네요 고수님들 도움 부탁드립니다.

(defun c:b (/ a b c d e f g)
   (setvar “snapmode” 0)
   (prompt “nselect of entity ?:”)
   (setq a (entget (car (entsel))))
   (setq b (assoc 10 a))
   (setq c (assoc 11 a))
   (setq d (list (nth 1 b) (nth 2 b)))
   (setq e (list (nth 1 c) (nth 2 c)))
   (setq f (angle d e))
   (setq g (rtd f))
   (command “snap” “r” “0,0” g)
   (setvar “snapmode” 0)
   (prin1))

(defun c:ss (/ sr)
   (setvar “snapmode” 0)
   (setq sr (getreal “nsnap angle ?:”))
   (if (= sr nil) (setq sr 0))
   (command “‘snap” “r” “” sr)
   (setvar “snapmode” 0)
   (prin1)
)