리즙 수정 부탁 합니다.
DIST 에서 얻은 결과 값이 사선 칫수가 나오는 것을 X 값 Y 값
을 나오게 할려구 합니다.
(defun c:AQ()
(setvar “cmdecho” 0)
(setvar “osmode” 1)
(setq pt1 (getpoint “nBase point-> int of “))
(setq pt2 (getpoint pt1 “nSecond point-> int of”))
(setvar “osmode” 1)
(setq pt3 (getpoint “nBase point-> int of “))
(setq pt4 (getpoint pt3 “nSecond point-> int of”))
(setq dist1 (/ (distance pt1 pt2) 1))
(setq dist2 (/ (distance pt3 pt4) 1))
(setq pt1 (getpoint “n>>> calculation text point : “))
(setq pt2 (getpoint pt1 “n>>> area text point : “))
(setq sum (/ (* dist1 dist2) 1.0))
(setq tdist1 (rtos dist1 2 2))
(setq tdist2 (rtos dist2 2 2))
(setq tsum (rtos sum 2 2))
(setq ttt (strcat “재질” ” ” ” t2.0 ” tdist1 ” x ” tdist2 ” : ” ))
(setq h (getvar “textsize”))
(prompt “n>>> text height <")
(princ h)
(princ “> : “)
(setq z (getdist))
(if z
(setq h z)
)
(command “text” “ml”
(setq z pt1)
(setq z h)
(setq z 0.0)
(setq z ttt)
)
(setvar “blipmode” 0)
(prin1)
)