;*********************************************

; Program : COORD Marking

;           H. S. PARK

;           98/3/29

;*********************************************

; 좌표값을 도면에 표시

;*********************************************

(defun c:xy()

  (setq ts (getvar "textsize"))

  (setq pt1 (getpoint "Pick First Point:"))

  (setq pt2 (getpoint pt1 "Pick Second Point:"))

  (setq px (car pt1))

  (setq py (cadr pt1))

  ;****** real to string

  (setq pxt (strcat "X:" (rtos px 2 2)))    ;x좌표값

  (setq pyt (strcat "Y:" (rtos py 2 2)))    ;y좌표값

  (command "line" pt1 pt2 "")

  (setq txtpnt pt2)         ;   x좌표삽입점

  (setq txtpnt1 (list (car txtpnt)

              (- (cadr txtpnt) (* 1.5 ts)) 0.0))     ;y좌표 삽입점

  (command ".text" "j" "bl" txtpnt  ts "0.0" pxt)  ;x좌표값 쓰기

  (command ".text" "j" "bl" txtpnt1 ts "0.0" pyt)  ;y좌표값 쓰기

  (princ)

);;; End of program COOR