Pick Point 좌표 표시

(defun KM:getCOORD ( / pt th coordpt txtdxf )
(setq pt (getpoint "pick point:"))
(setq th (* (getvar "DIMSCALE") 1.0))
(setq coordpt (strcat "(" (rtos (car pt) 2 4) " " (rtos (cadr pt) 2 4) ")"))
(setq txtdxf (list (cons 0 "TEXT") (cons 10 pt) (cons 1 coordpt) (cons 40 th)))
(entmake txtdxf)
(princ)
)

(defun c:getp ( / )
(KM:getCOORD)
)

(defun KM:MKPTS ( / )
(setq pts nil)
(while (setq pts (append pts (list (getpoint "Pick Point:"))))
(princ))
)

KM:MKPTS ;; Make List of Coordinates of Points