두원을 연결 하기

입력한 값의 Circle을 두점 클릭후 연결 하게 하려고 만든 리습입니다. 그런데 라인은 형성이 되는데 circle이 엉뚱한 곳에 찍히고, 하나밖에 안나오네요 어디가 잘못 된건가요?
(defun c:um2 ()
(setvar “cmdecho” 0)
(setq Os (getvar “osmode”))
(setvar “textstyle” “te”)
(setq scale (getvar “dimscale”))
(setq th (* scale 1.6))
(setvar “osmode” 512)
(setq dia (getstring “nSize을 입력하세요: “))
(setq pt1 (getpoint “nFirst point: “))
(setq pt2 (getpoint “nCont point: “))
(COMMAND “layer” “s” “TE” “”)
(command “circle” “0” th pt1 pt2 “”)
(COMMAND “line” pt1 pt2 “”)
(setvar “osmode” Os)
)
위 리습에서 입력(Circle에 대한 지름)값을 Dimscale에 따른 크기로 조정할려면 (setq th (* scale 1.6)) 을 (setq th (* scale dia))로 변경해야 되나요?