아래 리습에서 스케일 크기를 바꿔서 적용해도 같은 크기로 나오는데 크기조정할 수있는 방법좀 부탁드립니다.
메일로 부탁드립니다.suuuk@hanmail.net
(defun c:xy(/ p0 p0x p0y sca scax lup zin po2 xp)
(vl-load-com)
(command “ucs” “”)
(setq p0 ‘(0 0 0));;
(defun xy_0 (#aa / #a #b #c #index #d #e);;#aa
(setq #a(vl-string->list #aa))
(if (member 45 #a)
(setq #a(vl-remove 45 #a) #e ‘(45))
);;if
(setq #b(member 46 #a))
(setq #c(- (length #a)(length #b)))
(setq #index 0)
(repeat #c
(if (eq 3 #index)
(setq #d(cons (nth (setq #c(1- #c))#a)(cons 44 #d))#index 0)
(setq #d(cons (nth (setq #c(1- #c))#a)#d))
);;if
(setq #index(1+ #index))
);;repeat
(apply ‘strcat (mapcar ‘chr (append #e(append #d #b))))
);;defun
(setq p0x (car p0))
(setq p0y (cadr p0))
(setq p0 (trans p0 1 0))
(command “ucs” “o” p0)
(setq p0 ‘(0 0))
(setq sca (getreal “n Scale 의 값 을 입력 <1>:”))
(if (= sca nil)
(setq sca 1)
)
(setq scax (/ 1.0 sca))
(setvar “dimlfac” scax)
(setq lup(getvar “luprec”))
(setvar “luprec” 2)
(setq zin(getvar “dimzin”))
(setvar “dimzin” 2)
(setvar “cmdecho” 0)
(while (setq po (getpoint “nPick First Point:”))
(command “ucs” “o” p0)
(if po
(progn
(setq po2 (getpoint po “Pick Second Point:”))
(setq xp (strcat “N ” (xy_0(rtos (cadr po) 2 3))
” E ” (xy_0(rtos (car po) 2 3))
)
)
(command “leader” po po2 “” xp “”)
);;progn
);;if
);;while
(command “ucs” “w”)
);;defun