선을 선택1선택2로 선택하면 닫아주는 리습 입니다.
선택을 드레그로 가능할까요?
;두선 잇기
(defun c:ll ()
(setq L1 (entsel “n첫번째 라인 선택 : “))
(setq L11 (cdr (assoc 10 (entget (car L1)))))
(setq L12 (cdr (assoc 11 (entget (car L1)))))
(setq L1sx (car L11))
(setq L1sy (cadr L11))
(setq L1ex (car L12))
(setq L1ey (cadr L12))
(setq pt11 (max L1sx L1ex))
(setq pt33 (min L1sx L1ex))
(setq pt22 (max L1sy L1ey))
(setq pt44 (min L1sy L1ey))
(setq L2 (entsel “n두번째 라인 선택 : “))
(setq L21 (cdr (assoc 10 (entget (car L2)))))
(setq L22 (cdr (assoc 11 (entget (car L2)))))
(setq L2sx (car L21))
(setq L2sy (cadr L21))
(setq L2ex (car L22))
(setq L2ey (cadr L22))
(setq pt55 (max L2sx L2ex))
(setq pt77 (min L2sx L2ex))
(setq pt66 (max L2sy L2ey))
(setq pt88 (min L2sy L2ey))
(setq pt1 (list pt11 pt22 0.0))
(setq pt2 (list pt33 pt44 0.0))
(setq pt3 (list pt55 pt66 0.0))
(setq pt4 (list pt77 pt88 0.0))
(command “LINE” pt1 pt3 “”)
(princ)
)
(princ “nThe Command is ‘LL’, Good Luck!”)
(princ)
안되는건가요???고수님들 부탁드립니다.ㅠ