JMinGLv.0 등록일: 2022-02-122022-02-12T21:43:56+09:00 2022-02-12T21:43:56+09:00카테고리: AutoCAD & CADian 안녕하세요 회전각도 0도로 맞춰주는 리습이 있나요? 안녕하세요 회전각도 0도로 맞춰주는 리습이 있나요? 블록을 항상 특성에서 회전 0으로 돌리는게 불편하여 0도로 맞춰주는 리습 검색해봤는데 안나오더라구요 ㅜㅜ 공유 Facebook 관련 있는 질문들 오토캐드 폴리라인 방향 오토캐드 실선이 아닌 선 종류 TRIM 오류 캐드 배치탭에서 마스크기능 질문있습니다. 거리산출 리습 함수 오류 질문드립니다. 2 답변 작성 순 최신 순 공감 순 김보리 Lv.11 2022-02-14T08:41:10+09:00답변 등록 답변 등록 일시 2022-02-14 8:41 am ;=====================참조 회전 ==================================================================== (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) 참조회전 리습입니다. 보통 구글검색하실 때 검색어를 다양하게 해보시면 원하는 리습을 구하시기 편할거에요. JMinG Lv.0 2022-02-14T20:08:52+09:00답변 등록 답변 등록 일시 2022-02-14 8:08 pm 아이고 정말감사합니다
아이고 정말감사합니다