쉽게 가는 방법 있을까요.

Question

Lv.0

등록일: 2007-07-232007-07-23T14:08:46+09:00 2007-07-23T14:08:46+09:00카테고리: AutoCAD & CADian

쉽게 가는 방법 있을까요.

써클이 엄청 많은데요(한 5천개쯤)
이 써클을 같은 이름의 블럭화를 해야 하거든요.
단순한 방법은 블럭을 만들어 써클에 센타선 맞춰서 일일이 카피하는 방법이긴 하거든요.
근데 갯수가 너무 많다 보니 혹시 쉽게 가는 방법이 있을까 해서요.
리습이나 그런거 없을까요???
혹시 좋은 방법 아시는 분 지나치지 마시고 알려주시면 정말 감사하겠습니다.
분량이 너무 많아서 고민중이거든요.
혹시 몰라 샘플도면도 넣었어요.

5 답변

[Deleted User] · Answer 1 · 2007-07-23T15:41:57+09:00

쉽게 가져..^^
1. 원만 선택해 줍니다
2. 원의 중심에 넣을 블럭을 선택합니다.
3. 원의 중심에 블럭들이 다 들어가고 원은 삭제됩니다.

(defun c:asd(/ ss k ss1 ed1 bn en ed cen k)
(setq os (getvar “osmode”))
(setq ss (ssget (list (cons 0 “circle”))))
(setq k 0 ss1 nil)
(command “undo” “be”)
(setvar “osmode” 0)
(while (= ss1 nil) (setq ss1 (entsel “n삽입할 블럭을 선택하세요 :”)))
(setq ed1 (entget (car ss1))
bn (cdr (assoc 2 ed1)))
(repeat (sslength ss)
(setq en (ssname ss k)
ed (entget en))
(setq cen (cdr (assoc 10 ed)))
(command “insert” bn cen “” “” “”)
(setq k (1+ k))
);repeat
(command “erase” ss “”)
(setvar “osmode” os)
(command “undo” “e”)
(princ)
);defun