캐드 분류
원 중심선 리습관련
컨텐츠 정보
- 194 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
기존 2002버전에서 사용하던 원 중심선 리습인데 2012에 적용해서 사용할려 하는데 먹지가 않습니다.
뭐가 문제인지 고수님들 부탁드립니다.
(DEFUN C:CL (/ e et1 r1 s1 r l1 l2 l3 l4 old_os t1 t2)
(defun dtr(a) (* pi (/ a 180.0)) )
(setq e (entsel "nSelect the circle: "))
(setq et1 (entget (car e)))
(setq r1 (assoc 40 et1))
(setq s1 (cdr (assoc 10 et1)))
(setq r (getdist s1 "nPick the CenterLine endpoint: "))
(setq l1 (polar s1 (dtr 180) r)
l2 (polar s1 0 r)
l3 (polar s1 (dtr 90) r)
l4 (polar s1 (dtr -90) r)
)
(setq old_os (getvar "osmode"))
(setvar "osmode" 255)
(command "line" l1 l2 "")
(setq t1 (entlast))
(command "line" l3 l4 "")
(setq t2 (entlast))
(if (= (tblsearch "LAYER" "cen") nil)
(command "layer" "new" "cen" "color" "1″ "c" "ltype" "center" "c" "")
)
(command "chprop" t1 t2 "" "la" "C" "")
(setvar "osmode" old_os)
)
관련자료
댓글 2
/ 1 페이지
.gif)
