홈/ 질문/Q 103339
다음
진행 중
Lv.0
등록일: 2015-02-03T10:25:41+09:00 카테고리:

회전 카피 리습 요청

회전카피리습.png

회전 카피를 쉽게 할 수 있는 리습 부탁드립니다.
기존 rotate명령으로는
1. rotate -> 2. 객체선택 -> 3. 기준점선텍 -> C -> R -> 기준점 -> 객체위치 -> 카피시키고 싶은 포인트선택 순으로 불필요한 공정이 너무 많습니다.
한번에 객체선택, 기준점 선택, 회전 카피시키고 싶은 포인트 선택으로 끝내는 리습이나 비슷한 수준의 리습 부탁드립니다. 

공유

    관련 있는 질문들

    9 답변

    1. aalan

    2. 원하시는 3단계로 축소하면

      선택한 객체의 중심(기준포인트)가 여러 객체일 경우
      애매해집니다.
      적어도 4단계로 하시는걸 추천드립니다.
      객체 선택, 기준점, 상대참조점(ex. 객체 중심 등 회전기준점), copy 될 포인트
       ps. 물론 rotate 시킬 객체가 무조건 단일 객체일때는 3공정도 상관없지만요.
      어떤걸 원하시는건가요.
      • 0

    3. ^^; 4단계로 부탁드립니다.

      • 0
    4. (setq a (ssget))
      (setq b (getpoint))
      (command “rotate” a “” b “c” “r” b pause pause)
      • 0

    5. 처음에 회전 카피를 시작할 명령어는 뭐라고 쳐야 하나요?

      • 0

    6. 이런… 직접 지정하시라고 빼놓은겁니다만;;

      (defun c:QR()
      (setq a (ssget))
      (setq b (getpoint))
      (command “rotate” a “” b “c” “r” b pause pause)
      )
      QR로 사용해주세요. (객체 선택하고 누르셔도되고 명령어 치고 객체선택해도 상관은 없어요)
      • 0

    7. 와 잘됩니다. 감사합니다. ^^ 실시간 댓글도 감사합니다.

      • 0

    8. (defun c:QR()
      (setq a (ssget))
      (setq b (getpoint))
      (command “rotate” a “” b “c” “r” b pause pause)
      (initget 0 “Y N”)
      (setq ta (getkword (strcat “n이전 객체 삭제? [Yes (Y) / No (N)] <N>:”)))
      (if (= ta “Y”)
      (command “erase” “p” “”)
      )
      )
      번외 version…..
      (은 만든김에 제가 사용하려고 한켠에 모셔둬보았습니다.     언젠가 쓰겠지 하겠거니
      복사는 별로 안쓰니까…
      (defun c:QR()
      (setq a (ssget))
      (setq b (getpoint))
      (command “rotate” a “” b “c” “r” b pause pause “erase” “p” “”)
      (initget 0 “Y”)
      (setq ta (getkword (strcat “n이전 객체 유지? [Yes (Y)]:”)))
      (if (= ta “Y”)
      (command “undo” “1”)
      )
      )
      • 0

    9. 상당히 유용한 리습이네요.
      한가지만 더 추가 가능하신지요?
      한번하고 끝나지말고 연속으로 각도만 지정하면 될수있게요….

      • 0

    10. 라인상의 임의의 한 점을 선택해서 기준점을 삼을때 기준점이 한쪽 구석으로 이동해버리는 버그가 있어 수정합니다.

      아래의 것은 제가 작성한건 아니고, http://blog.daum.net/gijushin/31 에서 카피해왔습니다.

      (defun c:rc ( / rr p1 r_ang d_ang)
       (setvar “cmdecho” 0)
       (command “undo” “be”)

       (setq rr (ssget)
             p1 (getpoint “n base point: “)
             r_ang (getangle p1 “n Rotate angle:”)
             d_ang (/ (* r_ang 180) pi) )
       (if (= d_ang 0)
        (progn (setq r_ang (getangle “n Rotate angle”))
        (setq d_ang (/ (* r_ang 180) pi)))
       )

       (setq osm (getvar “osmode”))
       (setvar “osmode” 0)
       (command “copy” rr “” p1 p1)
       (command “rotate” rr “” p1 d_ang)

       (setvar “osmode” osm)
       (command “undo” “e”)
       (princ)
      )

      • 0