;;================================================================
; 두원을 선택해서 장공 생성
;;----------------------------------------------------------------
(defun c:sss (/ e1 e2 e3 e4 pt1 rad pt2 pt3 pt4 pt5 p1 p2 p3 p4 p5 x x2 l1 l2 l3 l4 os)
(prompt "두원을 선택해서 장공을 만듭니다")(terpri)
(SETQ OS (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(setq e3 (entsel "왼쪽이나 아래쪽의 원을 먼저 찌거주셔요"))(terpri) ;;첫번째 원
(setq e1 (entget (car e3)))
(setq pt1 (cdr (assoc 10 e1))) ;;;선택한 원에서 중심점을 뽑아냅니다
(setq rad (cdr (assoc 40 e1))) ;;;선택한 원에서 반지름을 뽑아냅니다
(setq pt2 (list (+ (car pt1) rad) (cadr pt1))) ;;;원의 오른쪽 사분원점
(setq pt3 (list (- (car pt1) rad) (cadr pt1))) ;;;원의 왼쪽 사분원점
(setq pt4 (list (car pt1) (- (cadr pt1) rad))) ;;;원의 아래쪽 사분원점
(setq pt5 (list (car pt1) (+ (cadr pt1) rad))) ;;;원의 윗쪽 사분원점
(setq e4 (entsel "나머지 원을 찌거주셔요")) ;;두번째 원
(setq e2 (entget (car e4)))
(setq p1 (cdr (assoc 10 e2))) ;;;선택한 원에서 중심점을 뽑아냅니다
(setq p2 (list (+ (car p1) rad) (cadr p1))) ;;;원의 오른쪽 사분원점
(setq p3 (list (- (car p1) rad) (cadr p1))) ;;;원의 왼쪽 사분원점
(setq p4 (list (car p1) (- (cadr p1) rad))) ;;;원의 아래쪽 사분원점
(setq p5 (list (car p1) (+ (cadr p1) rad))) ;;;원의 윗쪽 사분원점
(setq x(car pt1)) (setq x2(car p1)) ;;원과 원의 x좌표를 통해
(if (< x x2) ;;가로인지 세로인지를 알아본다
(progn ;;가로이면
(setq l1 pt5)(setq l2 p5)
(setq l3 pt4)(setq l4 p4)
)
(progn ;;세로이면
(setq l1 pt3)(setq l2 p3)
(setq l3 pt2)(setq l4 p2)
))
(command "line" l1 l2 "")
(command "line" l3 l4 "")
(command "erase" e3 e4 "")
(command "arc" "c" pt1 l1 l3)
(command "arc" "c" p1 l4 l2)
(SETVAR "OSMODE" OS)
)
; 두원을 선택해서 장공 생성
;;----------------------------------------------------------------
(defun c:sss (/ e1 e2 e3 e4 pt1 rad pt2 pt3 pt4 pt5 p1 p2 p3 p4 p5 x x2 l1 l2 l3 l4 os)
(prompt "두원을 선택해서 장공을 만듭니다")(terpri)
(SETQ OS (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(setq e3 (entsel "왼쪽이나 아래쪽의 원을 먼저 찌거주셔요"))(terpri) ;;첫번째 원
(setq e1 (entget (car e3)))
(setq pt1 (cdr (assoc 10 e1))) ;;;선택한 원에서 중심점을 뽑아냅니다
(setq rad (cdr (assoc 40 e1))) ;;;선택한 원에서 반지름을 뽑아냅니다
(setq pt2 (list (+ (car pt1) rad) (cadr pt1))) ;;;원의 오른쪽 사분원점
(setq pt3 (list (- (car pt1) rad) (cadr pt1))) ;;;원의 왼쪽 사분원점
(setq pt4 (list (car pt1) (- (cadr pt1) rad))) ;;;원의 아래쪽 사분원점
(setq pt5 (list (car pt1) (+ (cadr pt1) rad))) ;;;원의 윗쪽 사분원점
(setq e4 (entsel "나머지 원을 찌거주셔요")) ;;두번째 원
(setq e2 (entget (car e4)))
(setq p1 (cdr (assoc 10 e2))) ;;;선택한 원에서 중심점을 뽑아냅니다
(setq p2 (list (+ (car p1) rad) (cadr p1))) ;;;원의 오른쪽 사분원점
(setq p3 (list (- (car p1) rad) (cadr p1))) ;;;원의 왼쪽 사분원점
(setq p4 (list (car p1) (- (cadr p1) rad))) ;;;원의 아래쪽 사분원점
(setq p5 (list (car p1) (+ (cadr p1) rad))) ;;;원의 윗쪽 사분원점
(setq x(car pt1)) (setq x2(car p1)) ;;원과 원의 x좌표를 통해
(if (< x x2) ;;가로인지 세로인지를 알아본다
(progn ;;가로이면
(setq l1 pt5)(setq l2 p5)
(setq l3 pt4)(setq l4 p4)
)
(progn ;;세로이면
(setq l1 pt3)(setq l2 p3)
(setq l3 pt2)(setq l4 p2)
))
(command "line" l1 l2 "")
(command "line" l3 l4 "")
(command "erase" e3 e4 "")
(command "arc" "c" pt1 l1 l3)
(command "arc" "c" p1 l4 l2)
(SETVAR "OSMODE" OS)
)