숫자합계 sum 리습 수정부탁합니다

문자삽입점 지정 후 문자 높이 선택을 ⇒ 문자높이 선택 후 문자 삽입점 지정으로 수정 부탁드립니다.

(defun c:sum (/ z ss sno no tno sum x entity etype num h pt)
(setvar "cmdecho" 0)
(prompt "nSelect Text: ")
(setq ss (ssget))
(setq sno (sslength ss))
(setq no 0)
(setq sum 0.0)
(setq tno 0)
(repeat sno
(setq x (ssname ss no))
(setq etype (cdr (assoc 0 (entget x))))
(if (= etype "TEXT")
(progn
(setq entity (entget x))
(setq num (cdr (assoc 1 entity)))
(setq num (atof num))
(setq sum (+ sum num))
(setq tno (1+ tno))
)
)
(setq no (1+ no))
)
(setq tno (itoa tno))
(setq sum (rtos sum 2 3))
(princ "nAdding ")
(princ tno)
(princ " nTexts: ")
(princ "nThe Result is: ")
(princ sum)
(princ " ")
(princ "n도면에 기록할까요? ")
(setq z (strcase (getstring)))
(if (or (= z "") (= z "Y"))
(progn
(setq pt (getpoint "n문자 삽입점 지정: "))
(setq h (getvar "textsize"))
(prompt "n문자 높이: ")
(princ H)
(princ " : ")
(setq z (getdist))
(if z
(setq h z)
)
(command "text"
(setq z pt)
(setq z h)
(setq z 0.0)
(setq z sum)
)
)
)
(setvar "cmdecho" 1)
(setvar "blipmode" 1)
(prin1))