2018.12.26 19:05
(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))
(setq pxt (strcat "X=" (rtos py 2 4)))
(setq pyt (strcat "Y=" (rtos px 2 4)))
(command "line" pt1 pt2 "")
(setq txtpnt pt2)
(setq txtpnt1 (list (car txtpnt)
(- (cadr txtpnt) (* 1.5 ts)) 0.0))
(command ".text" "j" "bl" txtpnt ts "0.0" pxt)
(command ".text" "j" "bl" txtpnt1 ts "0.0" pyt)
(princ)
)
스케일이 1/1000 인 좌표도인데 로드해서 쓸라고 하니깐 글씨 크기가 엄청나게 크게
나오네요, 좌표도를 크게 할수는 없고 글씨 포인트만 1/1000로 줄일수 있을까요 ?
안녕하세요.
제가 개발하는 기반은 리습이 아니라서 리습 언어는 잘 모릅니다.
처음에 textsize 값을 받아오는 것을 보니 도면의 문자 크기로 그려지나봅니다.
명령창에 textsize 입력해서 원하는 문자 크기 입력하시고 실행하면 될겁니다.