홈/ 질문/Q 173544
다음
진행 중
욱디내꺼디
Lv.0
등록일: 2022-10-13T13:27:57+09:00 카테고리:

원을 사각형으로 치환

원을 사각형으로 치환

원이 몇천개가 있는 상태입니다. 그 원을 제일 왼쪽에 예시로 나와있는것 처럼
사각형으로 바꾸어야하는 상황입니다. 일일히 원에 중심에다가 사각형을 하나씩 co하자 하니
너무 오래걸릴 것 같습니다. 원의 모양과 크기는 모두 같습니다.
일괄로 저 원들을 사각형으로 변경하거나 원위에 사각형이 나오게 하고싶습니다.
결론: 원을 모두 사각형으로 한방에 변경하는 방법!

공유

    관련 있는 질문들

    답변을 남겨주세요

    답변을 등록하기 위해서는 로그인이 필요합니다.

    아직 계정이 없으신가요?

    1 답변

    1. aalan
    2. Lv.3

      간단한 기능이라 리습으로 하면 될 듯 해요.

      ;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)

      • 0