;;
;; 좌표 추출하기
;;
(defun c:xy()
(setq lup(getvar “luprec”))
(setvar “luprec” 3)
(setq zin(getvar “dimzin”))
(setvar “dimzin” 0)
(setvar “cmdecho” 0)
(setq po (getpoint “Pick First Point:”))
(setq po2 (getpoint po “Pick Second Point:”))
(setq Xp (strcat “X=” (rtos (cadr po) 2 3)))
(setq Yp (strcat “Y=” (rtos (car po) 2 3)))
(command “leader” po po2 “” xp yp “”)
)
여기서 글자크기 조절하는게 어떤건지 궁급합니다..
하나씩 해봐도 조절이 안되네요.
(command “leader” po po2 “” xp yp “”) 를
하이구야님이 말씀하신대로 (command “textsize” “5” “leader” po po2 “” xp yp “”)
수정하시라는것 같습니다.
textsize에 의해서 결정되는듯 합니다.