아래 질문에 이어 제가 직접 해보려고 하는데.. 리습을 잘 몰라서요!!
제가 기존에 리습을 수정해서 제대로 값이 제대로 나오기는 했는데요!!
y값이 글씨가 커요!! 텍스트 크기가 0.5이면 딱맞는데요!!
이거 좀 수정해 주세요!!
;*********************************************
; Program : COORD4
; Coord Marking
; Yi Suk-Jong
; 96/5/28
;*********************************************
; 좌표값을 도면에 표시
; x=12.345
; y=24.456
;*********************************************
(defun c:coord4()
(defun SETERR(s)
(if (/= s “Function cancelled”)
(princ (strcat “nError: ” s))
); of If
(setq *error* oer seterr nil)
(princ)
); of SETERR
(setq oer *error* *error* seterr)
(setq ts (* (getvar “DIMTXT”) (GETVAR “DIMSCALE” ))) ;dimension text크기
(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 (getvar “luprec”)))) ;x좌표값
(setq pyt (strcat “Y=” (rtos py 2 (getvar “luprec”)))) ;y좌표값
(command “dim1” “leader” pt1 pt2 “” pxt)
(setq txtpnt (cdr (assoc 10 (entget (entlast))))) ;text삽입점
(setq txtpnt1 (list (car txtpnt)
(- (cadr txtpnt) (* 1.5 ts)) 0.0)) ;y좌표 삽입점
(if (< (car pt2) (car pt1))
(setq algn “MR”)
(setq algn “ML”)
)
(command “TEXT” algn txtpnt1 ts pyt) ;y좌표값 쓰기
(setq *error* oer seterr nil)
(princ)
);;; End of program COORD