홈/ 질문/Q 106016
다음
진행 중
windwizen
Lv.0
등록일: 2016-02-02T14:44:17+09:00 카테고리:

선택한 블럭들을 한꺼번에 블럭 자체의 기준점 중심으로 지정한 각도로 회전 시키는 리습이 있을까요?

아래 리습은 얼마전에 수야12님이 올려주신 리습입니다

리습 실행하면 선택한 블럭들이 90도로 회전하는데

블럭을 블럭의 기준점 중심으로 지정한 각도대로 돌릴 수 있게 수정이 가능할까요?

고수님들 부탁좀 드리겠습니다


(defun c:ff(/ ss en ro)(vl-load-com)

(setq ss(ssget (list (cons 0 “INSERT”))) n 0)

 (repeat (sslength ss)

  (setq en(ssname ss n))

(setq ro(cdr(assoc 50(entget en))))

(vla-put-rotation

(vlax-ename->vla-object en)

(+ ro 1.5708)

)

(setq n(1+ n))

)

 (princ)

 ) 


공유

    관련 있는 질문들

    2 답변

    1. aalan
    2. Lv.21
      (defun c:ff(/ ss en ro dtr)(vl-load-com)
       (defun dtr(a)(* pi(/ a 180.0)))
      (setq ss(ssget (list (cons 0 “INSERT”))) n 0)
      (setq ang(dtr(getreal “n회전각입력:”)))
       (repeat (sslength ss)
        (setq en(ssname ss n))
      (setq ro(cdr(assoc 50(entget en))))
      (vla-put-rotation
      (vlax-ename->vla-object en)
      (+ ro ang)
      )
      (setq n(1+ n))
      )
       (princ)
       ) 
      수고하세요 ㅎㅎ;;
      • 0
    3. Lv.0

      아… 정말 감사합니다!
      바쁘실텐데 바로바로 수정을 해 주시고…
      지금 써 보고 글 남기는데 잘 됩니다
      신경써주셔서 감사합니다~

      • 0
    windwizen
    Lv.0
    등록일: 2016-01-23T12:03:03+09:00 카테고리:

    선택한 블럭들을 한꺼번에 블럭 자체의 기준점 중심으로 회전 시키는 리습이 있을까요?

    첨부 이미지처럼 도면을 돌려서 그려야 할 때가 가끔 있는데

    회전 시킨 도면의 블럭을 블럭 자체의 기준점 중심으로 지정한 각도대로 회전 시켜주는 리습이 있는지

    질문 드립니다 (지정한 영역의 블럭이 한꺼번에 지정한 각도대로 회전되었으면 좋겠습니다)

    검색을 해 봤는데 못찾겠네요. 고수님들 부탁좀 드립니다

    캡처.PNG

    공유

      관련 있는 질문들

      2 답변

      1. Lv.21
        (defun c:ff(/ ss en ro)(vl-load-com)
        (setq ss(ssget (list (cons 0 “INSERT”))) n 0)
         (repeat (sslength ss)
          (setq en(ssname ss n))
        (setq ro(cdr(assoc 50(entget en))))
        (vla-put-rotation
        (vlax-ename->vla-object en)
        (+ ro 1.5708)
        )
        (setq n(1+ n))
        )
         (princ)
         ) 
         
        • 0
      2. Lv.0

        수야님 감사합니다. 바로 올려주신걸 모르고 바빠서 이제서야 들어와서 봤네요

        질문 의도대로 잘 되네요… 감사합니다!

        하나 더 질문을 드리자면… 각도를 지정해서 돌리는 방법은 없을까요?

        수고스러우시겠지만 가능하다면 수정을 좀 부탁드립니다… 꾸벅…

        • 0