원을 사각형으로 치환
컨텐츠 정보
- 91 조회
- 1 댓글
- 0 추천
- 0 비추천
-
목록
본문
원이 몇천개가 있는 상태입니다. 그 원을 제일 왼쪽에 예시로 나와있는것 처럼
사각형으로 바꾸어야하는 상황입니다. 일일히 원에 중심에다가 사각형을 하나씩 co하자 하니
너무 오래걸릴 것 같습니다. 원의 모양과 크기는 모두 같습니다.
일괄로 저 원들을 사각형으로 변경하거나 원위에 사각형이 나오게 하고싶습니다.
결론: 원을 모두 사각형으로 한방에 변경하는 방법!
관련자료
우남써니타리님의 댓글
간단한 기능이라 리습으로 하면 될 듯 해요.
;1. 복사하고 싶은 선들을 선택 ;2. 원본객체의 복사기준점을 선택 ;3. 복사하고 싶은 위치의 원들을 모두 선택 (defun c:test1 (/ os sscopy pt1 sstarget ssno pt11) (defun *error* (msg) (setvar “osmode” os) (princ) ) (setq os (getvar “osmode”))
(princ “n복사할 객체들을 선택하세요.”) (setq sscopy (ssget)) (setq pt1 (getpoint “n복사기준점을 선택하세요.”))
(princ “n복사할 대상원들을 선택하세요.”) (setq sstarget (ssget ‘((0 . “CIRCLE”))))
(setq ssno 0) (if (and (/= sscopy nil) (/= sstarget nil) )(progn (setvar “osmode” 0) (repeat (sslength sstarget) (setq pt11 (cdr (assoc 10 (entget (ssname sstarget ssno))))) (setq ssno (1+ ssno)) (command “copy” sscopy “” pt1 pt11 ) ) ));pif
(setvar “osmode” os) ) (princ)