동심원을 그릴려는데요
지름 2의 원있으면 거기서 1과2옵셋을 무한 반복해야합니다
(대략 천번정도…3번정도 작업했는데…죽을거같아요;;)
옵셋 특성에 보면 모드에들어가서 어떻게 하면 된다는데
제가 쓰는 캐드는 그런게 안나오네요.
옵셋 명령을 치면 통과점(T), 지우기(E), 도면층(L) 이렇게 뜨는데요…
통과점을 눌러서 객체를 선택하면 종료(E), 다중(M), 명령취소(U) 이렇게 나오는데,
여기서 어찌어찌 해야하는건가요?
답변 좀 부탁드립니다~
공유
힘들기는 마찬가지죠
통과점은 포인트 찍은 곳에 그린다는 것이고
다중은 반복한다는 것이니 점을 계속 찍어야 하는 것은 마찬가지 입니다.
반복해서 동심원 그리는 리습을 간단하게 만들었으니 사용하세요.
(defun c:circle_n(/)
(setq p (getpoint “n중심을 선택하세요:”))
(setq r (getdist p “n처음그릴 원의 지름:”))
(entmake (list ‘(0 . “CIRCLE”) (cons 10 p) (cons 40 r) ) )
(setq n (getint “n몇개를 더 그릴까요?:”))
(setq d_list ‘() d_str “”)
(while (setq d (getdist (strcat “증가치 현재 입력은 < “d_str ” >입니다.
n추가 입력하세요: n 완료는 엔터입니다,:”)))
(setq d_list (append d_list (list d)))
(setq d_str (strcat d_str ” ” (rtos d)))
);while
(setq i 0 j (length d_list))
(repeat n
(setq r (+ r (nth (rem i j) d_list)))
(entmake (list ‘(0 . “CIRCLE”) (cons 10 p) (cons 40 r) ) )
(setq i (1+ i))
)
)