(defun c:44 ( /)
(setq pt1 (getpoint “점1번 <<“))
(setq pt2 (getpoint “점2번 <<“))
(setq pt3 (getpoint “점3번 <<“))
(setq pt4 (getpoint “점4번 <<“))
(setq pt1_X (car pt1))
(setq pt2_X (car pt2))
(setq pt3_X (car pt3))
(setq pt4_X (car pt4))
(setq pt1_y (cadr pt1))
(setq pt2_y (cadr pt2))
(setq pt3_y (cadr pt3))
(setq pt4_y (cadr pt4))
(setq min_x(min pt1_x pt2_x pt3_x pt4_x))
(setq max_x(max pt1_x pt2_x pt3_x pt4_x))
(setq min_y(min pt1_y pt2_y pt3_y pt4_y))
(setq max_y(max pt1_y pt2_y pt3_y pt4_y))
(setq min_pt(list (- min_x 15) (- min_y 15)))
(setq max_pt(list (+ max_x 15) (+ max_y 15)))
(setq min_pt2(list (- min_x 65) (- min_y 65)))
(setq max_pt2(list (+ max_x 65) (+ max_y 65)))
(command “RECTANG” min_pt max_pt)
(command “RECTANG” min_pt2 max_pt2)
)
============================================================
위 리습에서 빨간색 부분의 네가지 값들이 모두 첫째 자리에서 올림 되어진 값이 나오기를 원합니다
예) 123.12 => 124
123.56 => 124