홈/ 질문/Q 113224
다음
진행 중
Lv.0
등록일: 2021-07-20T15:11:20+09:00 카테고리:

연속 rotate 리습 질문입니다

회전시에 보통 45/90도로 회전을 많이 하는 편입니다. 

rotate로 매번 각도 입력하기도 귀찮고 마우스 돌리는것도 귀찮아서 연속회전 리습을 찾아봤는데 못찾겠더라구요. 그래서 리습은 아무것도 모르지만 인터넷 뒤져가면서 야매로 한번 써봤습니다.

(defun c:qr ()
  (setvar “cmdecho” 0)
  (setq c 0)
  (setq a (getint “n각도:”))
  (setq b (ssget))
  (while (= c 0)
    (command “rotate” b “” a “” pause))
    (princ)
  )
지정한 각도로 스페이스바를 연속으로 눌러서 연속회전은 가능합니다. 그런데 문제가 있습니다.
1. 연속회전시 반응이 느림 (pause 때문인가?)
2. 연속회전은 되지만 “알 수 없는 명령 “QR”.  도움말을 보려면 F1을 누르십시오.” 문구가 계속 나옴
3. 커맨드를 종료했다 다시 실행하면 각도를 다시 입력 해야함
4. getint “n각도:” 부분에 전에 입력했던 각도가 나오게 하고싶음
5. 회전시 기준점이 객체의 중심이었으면 좋겠음
이러한 문제입니다. 유튜브나 구글에서 영상도 보고 영어로도 찾아봤는데 처음이라 어렵습니다.
능력자님들 도움좀 부탁드립니다.

공유

    관련 있는 질문들

    4 답변

    1. aalan
    2. Lv.3

      저도 잘은 못하지만…

      (defun c:RTT (/ obje point1 )  ;선택 객체를 90도씩 회전
      (defun *error* (msg) (princ) )
        
      (prompt “nRotate-90 , Select Entity :”)
      (setq obje (ssget))
      (setq point1 (getpoint “nPick Center-Point : “))  
        
        (while (/= point1 nil)
           (command “rotate” obje “” point1 “90”)
           (princ)
              (setq point1 (getpoint “nClick Center-Point to Continue…”))
        ) ;while end
      ) ;defun end
      이런 식으로 하면 어떨까요?
      • 0
    3. Lv.3

      이전 각도 기억하게 하는 건 이렇게 하면 될 것 같구요.

      (defun c:RTT2 (/ obje point1 ang )  ;
      (defun *error* (msg) (princ) )
      (if (= rotv nil) (setq rotv “90”) )
      (if (= rotv 0) (setq rotv “90”) )
      (princ “n이전 각도 : “)
      (princ rotv)
      (setq ang (getstring “n각도 입력 : “))
      (if (= ang “”) (setq ang rotv) (setq rotv ang))
      (prompt “Continuous-Rotate , Select Entity :”)
      (setq obje (ssget))
      (setq point1 (getpoint “nPick Center-Point : “))  
        
        (while (/= point1 nil)
           (command “rotate” obje “” point1 ang)
           (princ)
              (setq point1 (getpoint “nClick Center-Point to Continue…”))
        ) ;while end
      ) ;defun end
      • 0
    4. Lv.3

      회전 기준점을 객체의 중심점으로 하는 건,

      함수를 하나 만들어서 호출해서 쓰시면 될 듯..
      • 0

    5. 감사합니다. 도움이 많이 됐습니다. 일이 훨씬 편해졌습니다 ㅠㅠ

      • 0