홈/ 질문/Q 112739
다음
진행 중
Lv.0
등록일: 2020-12-21T12:54:04+09:00 카테고리:

객체 각도는 유지한채 회전 하는 리습

객체 각도는 유지한고 회전 하는 리습 을 만들수 있을까요?

도면은 첨부했습니다.

공유

    관련 있는 질문들

    6 답변

    1. aalan

    2. 리습으로 받아 볼수는 없을까요 ㅜㅜ????

      • 0
    3. Lv.19

      항상 감사합니다 ^^

      • 0
    4. Lv.31

      CATS_Developer 님 Good 입니다요.

      • 0
    5. Lv.19

      첨부된 영상 참고해주세요 ㅎㅎ

      위 기능이 맞으면 카페 참고해주세요 ^^
      • 0
    6. Lv.0

      이걸로 한번 해보세요.

      첨부한 형상만 가능하고, 다른 형상이 있으면 코드를 살짝 수정하시면 될 듯 합니다.
      (defun c:rty ( / ss pnt ang sslen ssno num smember entn ss2 pnt2 os)
      (defun *error* (msg) (setvar “osmode” os)  (princ) )
      (setq os (getvar “osmode”))  
        (setq ss (ssget) )
        (setq pnt (getpoint “nSelect Rotate Point : “) )
        (setq ang (getreal “nInput Angle : “) )
      (setvar “osmode” 0)
        (command “rotate” ss “” pnt ang ) 
        
          (setq sslen (sslength ss)
        ssno 0
                num 0)
          
      (while (/= sslen ssno) ;while bbb
      (progn
        (setq smember (ssname ss ssno))
        (setq ssno (+ ssno 1)) 
        (setq entn (cdr (assoc 0 (entget smember))))
        (if ( = entn “TEXT”)(progn
            (setq pnt2 (cdr (assoc 11 (entget smember))))
            (setq plus (cdr (assoc 40 (entget smember))))
            (setq plus (* plus 1.2)) 
        ));if end  
      );p end
      );while end
      (setq ss2 (ssget “w” (list ( – (car pnt2) plus ) (+ (cadr pnt2) plus ) 0 )  (list ( + (car pnt2) plus ) (- (cadr pnt2) plus ) 0 )    ))
      (command “rotate” ss2 “” pnt2 (- 0 ang) ) 
      (setvar “osmode” os)  
      )
        
      • 0
    7. Lv.19

      도면 봤습니다.

      선택한 객체를 기준점을 중심으로 모양은 유지한 체로 회전 시키면 되는건가요??ㅎㅎ
      • 0