첫번째 질문

(defun dtr(a)
(*pi (/ a 180.0)))

이 구문 이해가 가면서도 잘 안갑니다.

제가 아는대로 이해하면 a = 90 이면 (*3.14(/ 90 180))
이라는 소린데 이게 무엇을 나타대는지 모르겠어요

두번째 질문

(setq ss (ssget))
(setq count 0)
(setq gg(entget(ssname ss count)))
(setq rad1 (cdr(assoc 40 gg)) )

이 구문 해석 좀 부탁드립니다.

세번째 질문

(setq ts 3.0)
(setq rad2 (* rad1 2.))
(if (< ts rad2)

위 구문과 연결된 구문인데요  원의 지름 치수를 파악하고 움직이는 구문인데
제가 이해 하기로는 ts가 3이니까
rad2가 3보다 클경우 라고 이해하고 있는데 지름이 3보다 크면 무조건 동작해야 하는거 아닌가요?
3보다 커도 조건문안 구문이 동작 안하드라구요

혹시 3이라는 숫자가 정수가 아닌 다른 수의 개념인지 궁금합니다.