Lv.0 등록일: 2020-12-212020-12-21T12:54:04+09:00 2020-12-21T12:54:04+09:00카테고리: AutoCAD & CADian 객체 각도는 유지한채 회전 하는 리습 객체 각도는 유지한고 회전 하는 리습 을 만들수 있을까요? 도면은 첨부했습니다. 공유 Facebook 관련 있는 질문들 선배님들 덕트 엘보 작성 리습좀 봐주세요 insert 삽입할때 레이어도 같이 변경가능할까요? 캐드 파일을 PDF로 변환 할 때 문제점 도와주세요 ㅠ 질문오토캐드 라인타입이 너무 많은데 어떻게 정리하나요.. 6 답변 작성 순 최신 순 공감 순 CATS_Developer Lv.19 2020-12-21T15:58:47+09:00답변 등록 답변 등록 일시 2020-12-21 3:58 pm 도면 봤습니다. 선택한 객체를 기준점을 중심으로 모양은 유지한 체로 회전 시키면 되는건가요??ㅎㅎ 엔씨벤딩 Lv.0 2020-12-21T16:46:19+09:00답변 등록 답변 등록 일시 2020-12-21 4:46 pm 이걸로 한번 해보세요. 첨부한 형상만 가능하고, 다른 형상이 있으면 코드를 살짝 수정하시면 될 듯 합니다. (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) ) CATS_Developer Lv.19 2020-12-21T22:35:33+09:00답변 등록 답변 등록 일시 2020-12-21 10:35 pm 첨부된 영상 참고해주세요 ㅎㅎ CATS_RFO_객체 회전하기.mp4 위 기능이 맞으면 카페 참고해주세요 ^^ RFO 명령어 소개 링크 백발도인 Lv.31 2020-12-22T09:00:14+09:00답변 등록 답변 등록 일시 2020-12-22 9:00 am CATS_Developer 님 Good 입니다요. CATS_Developer Lv.19 2020-12-22T10:26:12+09:00답변 등록 답변 등록 일시 2020-12-22 10:26 am 항상 감사합니다 ^^ [Deleted User] 2020-12-27T18:34:08+09:00답변 등록 답변 등록 일시 2020-12-27 6:34 pm 리습으로 받아 볼수는 없을까요 ㅜㅜ????
도면 봤습니다.
이걸로 한번 해보세요.
첨부된 영상 참고해주세요 ㅎㅎ
CATS_Developer 님 Good 입니다요.
항상 감사합니다 ^^
리습으로 받아 볼수는 없을까요 ㅜㅜ????