홈/ 질문/Q 113624
다음
진행 중
JMinG
Lv.0
등록일: 2022-02-12T21:43:56+09:00 카테고리:

안녕하세요 회전각도 0도로 맞춰주는 리습이 있나요?

안녕하세요 회전각도 0도로 맞춰주는 리습이 있나요?

블록을 항상 특성에서 회전 0으로 돌리는게 불편하여 
0도로 맞춰주는 리습 검색해봤는데 안나오더라구요 ㅜㅜ
공유

    관련 있는 질문들

    2 답변

    1. aalan
    2. Lv.11
      ;=====================참조 회전 ====================================================================
      (defun c:RTR ()
      (vl-load-com)
      (defun dtr (a) (* pi (/ a 180.0)))
      (defun rtd (a) (* 180.0 (/ a pi)))  ;(defun rtd (a) (/ (* a 180.0) pi))
      (defun tan (a) (/ (sin a) (cos a)))
        (setvar “cmdecho” 0)
        (setq _osm (getvar “osmode”))
        (setq _ortho (getvar “orthomode”))
        (if (= rr_ang nil)(setq rr_ang 0))
        (setq ss (ssget))
        (setq q1 (getpoint “n>> base point : “)
              q2 (getpoint q1 “n>> second point : “)
        )
        (setq q3 (getpoint “n>> base point, if enter = horizontally. “))
        (if (= q3 nil)
            (progn
              (setq rr_ang 0)
              (setq ang (angle q1 q2)
                    d1 (rtd ang)
                    d2 (* (rtd ang) -1)
              )
              (if (>= d1 90)
                  (setq d2 (- 180 d1))
              )
              (command “rotate” ss “” q1 d2)
            )
            (progn
              (setq q4 (getpoint q3 “n>> get direction : “)
                    rr_ang (angle q3 q4)
                    ang (angle q1 q2)
                    d1 (- (rtd rr_ang)(rtd ang))
              )
              (command “rotate” ss “” q1 d1)
            )
        )
        (princ)
      )
      (princ “nt객체를 사선으로 rotate 합니다. command: rr”)
      (princ)
      참조회전 리습입니다.
      보통 구글검색하실 때  검색어를 다양하게 해보시면 원하는 리습을 구하시기 편할거에요.
      • 0
    3. Lv.0

      아이고 정말감사합니다

      • 0