벽체 중심선 리습입니다
사용하다보면 자꾸 osnap이 꺼지는데 왜그런건가요?ㅠ
좀 고쳐주세요 ㅠ
;************************************
; Program : WC
; Wall Center Lines
; MODIFY Lee_Hoyoung
; 2003/07/21
;*************************************
; 벽체의 중심선을 작성하는 프로그램
;*************************************
;;********************************
(defun C:wc(/
l1 l2 dnum l1s l1e l2s l2e dst1
dst2 temp angs ange dt1 dt2 oldc count
dls dle
)
(SETQ QLAYER (GETVAR “CLAYER”))
(push-env)
(IF (TBLSEARCH “LAYER” “AA-AREA1”)
(COMMAND “LAYER” “S” “AA-AREA1” “”)
(COMMAND “-LAYER” “M” “AA-AREA1” “C” “40” “” “S” “” “”)
)
(setq l1 (entget (car (entsel “n첫번째선을 선택하시오: “))))
(setq l2 (entget (car (entsel “n두번째선을 선택하시오: “))))
(setq dnum 2)
(setq l1s (cdr (assoc 10 l1)))
(setq l1e (cdr (assoc 11 l1)))
(setq l2s (cdr (assoc 10 l2)))
(setq l2e (cdr (assoc 11 l2)))
(setq dst1 (distance l1s l2s))
(setq dst2 (distance l1s l2e))
(if (< dst2 dst1)
(progn
(setq temp l2s)
(setq l2s l2e)
(setq l2e temp)
)
)
(setq angs (angle l1s l2s))
(setq ange (angle l1e l2e))
(setq dst1 (distance l1s l2s))
(setq dst2 (distance l1e l2e))
(setq dt1 (/ dst1 dnum))
(setq dt2 (/ dst2 dnum))
(setq oldc (getvar “CECOLOR”))
;(setvar “CECOLOR” “GREEN”)
(setq count 1)
(repeat (1- dnum)
(setq dls (polar l1s angs (* count dt1)))
(setq dle (polar l1e ange (* count dt2)))
(command “LINE” dls dle “”)
(setq count (1+ count))
) ;of repeat
(setvar “CECOLOR” oldc)
(SETVAR “CLAYER” QLAYER)
(pop-env)
(prin1)
) ;of defun
(c:wc)